Roma Sokolov avatar Roma Sokolov committed 6374eca

remove garbage

Comments (0)

Files changed (5)

.emacs.d/load/black_init.el

-;; MIT License Copyright (c) 2008 JD Huntington <jdhuntington at gmail dot com>
-;; Credits due to the excellent TextMate Blackboard theme
-;;
-;; All patches welcome
-
-(defun color-theme-blackboard ()
-  "Color theme by JD Huntington, based off the TextMate Blackboard theme, created 2008-11-27"
-  (interactive)
-  (color-theme-install
-   '(color-theme-blackboard
-     ((background-color . "#0C1021")
-      (background-mode . dark)
-      (border-color . "black")
-      (cursor-color . "#A7A7A7")
-      (foreground-color . "#F8F8F8")
-      (mouse-color . "sienna1"))
-     (default ((t (:background "#0C1021" :foreground "#F8F8F8"))))
-     (blue ((t (:foreground "blue"))))
-     (bold ((t (:bold t))))
-     (bold-italic ((t (:bold t))))
-     (border-glyph ((t (nil))))
-     (buffers-tab ((t (:background "#0C1021" :foreground "#F8F8F8"))))
-     (font-lock-builtin-face ((t (:foreground "#F8F8F8"))))
-     (font-lock-comment-face ((t (:italic t :foreground "#AEAEAE"))))
-     (font-lock-constant-face ((t (:foreground "#D8FA3C"))))
-     (font-lock-doc-string-face ((t (:foreground "DarkOrange"))))
-     (font-lock-function-name-face ((t (:foreground "#FF6400"))))
-     (font-lock-keyword-face ((t (:foreground "#FBDE2D"))))
-     (font-lock-preprocessor-face ((t (:foreground "Aquamarine"))))
-     (font-lock-reference-face ((t (:foreground "SlateBlue"))))
-
-     (font-lock-regexp-grouping-backslash ((t (:foreground "#E9C062"))))
-     (font-lock-regexp-grouping-construct ((t (:foreground "red"))))
-
-     (font-lock-string-face ((t (:foreground "#61CE3C"))))
-     (font-lock-type-face ((t (:foreground "#8DA6CE"))))
-     (font-lock-variable-name-face ((t (:foreground "#FF6400"))))
-     (font-lock-warning-face ((t (:bold t :foreground "Pink"))))
-     (gui-element ((t (:background "#D4D0C8" :foreground "black"))))
-     (region ((t (:background "#253B76"))))
-     (mode-line ((t (:background "grey75" :foreground "black"))))
-     (highlight ((t (:background "#222222"))))
-     (highline-face ((t (:background "SeaGreen"))))
-     (italic ((t (nil))))
-     (left-margin ((t (nil))))
-     (text-cursor ((t (:background "yellow" :foreground "black"))))
-     (toolbar ((t (nil))))
-     (underline ((nil (:underline nil))))
-     (zmacs-region ((t (:background "snow" :foreground "ble")))))))

.emacs.d/load/circe_init.el

-(autoload 'circe "circe" "Sane IRC client" t)
-
-(when (file-directory-p "~/var/circe")
-  (add-to-list 'load-path "~/var/circe"))
-
-(setq
- circe-default-nick "piranha"
- circe-default-user "piranha"
- circe-default-realname "Alexander Solovyov"
- circe-ignore-list nil
- circe-server-killed-confirmation 'ask-and-kill-all
- circe-server-auto-join-channels
- '(("freenode" "#mercurial" "#io-ru" "#firepython"))
- circe-nickserv-passwords
- `(("freenode" ,freenode-password))
- circe-nick-next-function 'prh/circe-nick-next)
-
-(defun prh/circe-nick-next (oldnick)
-  "Return a new nick to try for OLDNICK."
-  (cond
-   ;; If the nick ends with digit, increase it
-   ((string-match "^\\(.*\\)\\([0-9]\+\\)$" oldnick)
-    (concat (match-string 1 oldnick)
-            (number-to-string (1+ (string-to-number
-                                   (match-string 2 oldnick))))))
-   ;; Else just append 1
-   (t
-    (concat oldnick "1"))))
-
-(eval-after-load "circe"
-  '(progn
-     (require 'lui-irc-colors)
-     (add-to-list 'lui-pre-output-hook 'lui-irc-colors)
-     (require 'lui-logging)
-     (setq
-      lui-logging-directory "~/.emacs.d/circe"
-      lui-logging-file-format "{buffer}/%Y-%m-%d.txt")
-     (enable-lui-logging)
-     (require 'circe-nickcolor)
-     (setq circe-nickcolor-list
-           '("NavyBlue" "DarkGreen" "SeaGreen" "ForestGreen" "OliveDrab"
-             "brown" "red" "purple" "orange red"))
-     (enable-circe-nickcolor)
-     (define-key lui-mode-map (kbd "C-,") (fun-for-bind bs--show-with-configuration "circe"))
-     (add-hook 'lui-mode-hook 'no-scroll-margin)))
-
-(defun irc ()
-  "Connect to IRC."
-  (interactive)
-  (circe "irc.freenode.net" "6667" "freenode"))

.emacs.d/load/face_init.el

-;;; face-list.el --- convenience functions for face customization
-
-;; Copyright (C) 2000  Alex Schroeder <alex@gnu.org>
-
-;; Author: Alex Schroeder <alex@gnu.org>
-;; Maintainer: Alex Schroeder <alex@gnu.org>
-;; Version: 1.0.0
-;; Keywords: faces
-
-;; This file is not part of GNU Emacs.
-
-;; This is free software; you can redistribute it and/or modify it under
-;; the terms of the GNU General Public License as published by the Free
-;; Software Foundation; either version 2, or (at your option) any later
-;; version.
-
-;; This is distributed in the hope that it will be useful, but WITHOUT
-;; ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
-;; FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License
-;; for more details.
-
-;; You should have received a copy of the GNU General Public License
-;; along with GNU Emacs; see the file COPYING.  If not, write to the
-;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, Boston,
-;; MA 02111-1307, USA.
-
-;;; Commentary:
-
-;; This code allows you to browse the list of defined faces and to
-;; quickly call a face customization buffer for the face at point,
-;; thereby facilitating the job of a color theme author.
-
-;; Loading this code will advise `list-faces-display' to put the *Faces*
-;; buffer into `faces-list-mode'.  That modes provides two extra key
-;; bindings; one of them calls `face-describe' for the face at point,
-;; the other calls `customize-face' for the face at point.
-
-;; The two functions to describe and customize the face at point can be
-;; called from anywhere; they are `describe-face-at' and
-;; `customize-face-at'.  If you are working with Emacs and discover a
-;; face you don't like, put point on some text with the offending face
-;; and type M-x customize-face-at RET.
-
-
-
-;;; Code:
-
-(defadvice list-faces-display (after do-faces-list-mode activate)
-  "Start faces-list-mode after listing the faces."
-  (set-buffer (get-buffer "*Faces*"))
-  (faces-list-mode))
-
-(defun faces-list-mode ()
-  "Major mode to examine and modify faces.
-
-Use \\[describe-face-at] to describe the face at point.
-Use \\[customize-face-at] to customize the face at point."
-  (kill-all-local-variables)
-  (setq major-mode 'faces-list-mode)
-  (setq mode-name "Faces")
-  (use-local-map faces-list-mode-map)
-  (setq buffer-read-only t))
-
-(defvar faces-list-mode-map
-  (let ((map (make-sparse-keymap)))
-    (define-key map (kbd "e") 'customize-face-at)
-    (define-key map (kbd "RET") 'customize-face-at)
-    (define-key map (kbd "d") 'describe-face-at)
-    (define-key map (kbd "?") 'describe-face-at)
-    (define-key map (kbd "q") 'bury-buffer)
-    map)
-  "Mode map used for `faces-list-mode'.")
-
-(defun describe-face-at ()
-  "Describe face at point."
-  (interactive)
-  (describe-face (get-face-at)))
-
-(defun customize-face-at ()
-  "Customize face at point."
-  (interactive)
-  (customize-face (get-face-at)))
-
-(defun get-face-at ()
-  "Determine face at point using `get-char-property'.  
-If char at point has no face property, examine the text on the same line
-as point as well."
-  (let ((face (get-char-property (point) 'face)))
-    (unless face
-      (let ((start (point)))
-	(while (null (or (setq face (get-char-property (point) 'face))
-			 (eolp)))
-	  (forward-char 1))))
-    (unless face
-      (let ((start (point)))
-	(while (null (or (setq face (get-char-property (point) 'face))
-			 (bolp)))
-	  (forward-char -1))))
-    (unless face
-	(error "No face selected."))
-    (if (listp face)
-	(setq face (car face)))
-    face))
-
-(provide 'face-list)
-
-;;; face-list.el ends here

.emacs.d/load/jabber_init.el

-(when (file-directory-p "~/var/jabber.el")
-  (add-to-list 'load-path "~/var/jabber.el"))
-(autoload 'jabber-connect-all "jabber" "Emacs Jabber client" t)
-(global-set-key (kbd "C-x C-j C-c") 'jabber-connect-all)
-
-(setq
- jabber-account-list `(("piranha@eth0.net.ua/emagz"
-                        (:password . ,eth0-jabber))
-                       ("asolovyov@rainboo.com/emagz"
-                        (:password . ,rainboo-jabber)))
- jabber-roster-line-format " %-25n %u %-8s  %S"
- jabber-chat-buffer-show-avatar nil
- jabber-history-enabled t
- jabber-use-global-history nil
- jabber-history-dir "~/.emacs.d/jabber/"
- jabber-chat-buffer-format "*%n*"
- jabber-groupchat-buffer-format "*%n-muc*"
- )
-
-(eval-after-load "jabber"
-  '(progn
-     (add-hook 'jabber-chat-mode-hook 'no-scroll-margin)
-
-     (define-key jabber-chat-mode-map (kbd "C-,") (fun-for-bind bs--show-with-configuration "jabber"))
-     (define-key jabber-roster-mode-map (kbd "C-,") (fun-for-bind bs--show-with-configuration "jabber"))
-
-     (add-hook 'jabber-post-connect-hook 'jabber-autoaway-start)
-     (setq jabber-autoaway-method 'jabber-xprintidle-program)
-
-     (global-set-key (kbd "<f12>") (fun-for-bind toggle-buffer "*-jabber-*"))
-
-     (remove-hook 'jabber-alert-message-hooks 'jabber-message-echo)
-     (remove-hook 'jabber-alert-muc-hooks 'jabber-muc-echo)
-     (remove-hook 'jabber-alert-presence-hooks 'jabber-presence-echo)
-     (remove-hook 'jabber-alert-info-message-hooks 'jabber-info-echo)
-
-     (when nix
-       (setq jabber-notify-display-time 3)
-       (setq jabber-notify-max-length 30)
-
-       (defun jabber-notify-display (title text)
-         "Displays MESSAGE with TITLE through the libnotify"
-         (let (
-               (process-connection-type nil)
-               (length (* 1000 jabber-notify-display-time))
-               (message (if (> (length text) jabber-notify-max-length)
-                            (concat (substring text 0 jabber-notify-max-length) "...")
-                          text))
-               )
-           (start-process "jabber-notify" nil "notify-send" "-t" (number-to-string length) title message)
-           (process-send-eof "jabber-notify")))
-
-       (defun jabber-message-notify (from buffer text proposed-alert)
-         (if (member *jabber-current-show* '("" "chat"))
-             (let ((title (car (split-string from "@"))))
-               (jabber-notify-display title text))))
-
-       (defun jabber-muc-notify (nick group buffer text proposed-alert)
-         (message "%s" group)
-         (if (member *jabber-current-show* '("" "chat"))
-             (let ((group-name (car (split-string group "@"))))
-               (let ((title (concat nick "@" group-name)))
-                 (jabber-notify-display title text)))))
-
-       (define-personal-jabber-alert jabber-muc-notify)
-
-       (add-hook 'jabber-alert-message-hooks 'jabber-message-notify)
-       (add-hook 'jabber-alert-muc-hooks 'jabber-muc-notify-personal)
-       )
-     ))

.emacs.d/load/theme-black_init.el

-<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01//EN">
-<!-- Created by htmlize-1.34 in css mode. -->
-<html>
-  <head>
-    <title>color-theme-blackboard.el</title>
-    <style type="text/css">
-    <!--
-      body {
-        color: #F8F8F8;
-        background-color: #0C1021;
-      }
-      .builtin {
-        /* font-lock-builtin-face */
-        color: #F8F8F8;
-      }
-      .comment {
-        /* font-lock-comment-face */
-        color: #AEAEAE;
-        font-style: italic;
-      }
-      .comment-delimiter {
-        /* font-lock-comment-delimiter-face */
-        color: #AEAEAE;
-        font-style: italic;
-      }
-      .doc {
-        /* font-lock-doc-face */
-        color: #61CE3C;
-      }
-      .function-name {
-        /* font-lock-function-name-face */
-        color: #FF6400;
-      }
-      .keyword {
-        /* font-lock-keyword-face */
-        color: #FBDE2D;
-      }
-      .string {
-        /* font-lock-string-face */
-        color: #61CE3C;
-      }
-
-      a {
-        color: inherit;
-        background-color: inherit;
-        font: inherit;
-        text-decoration: inherit;
-      }
-      a:hover {
-        text-decoration: underline;
-      }
-    -->
-    </style>
-  </head>
-  <body>
-    <pre>
-<span class="comment-delimiter">;; </span><span class="comment">Blackboard Colour Theme for Emacs.
-</span><span class="comment-delimiter">;;</span><span class="comment">
-</span><span class="comment-delimiter">;; </span><span class="comment">Defines a colour scheme resembling that of the original TextMate Blackboard colour theme.
-</span><span class="comment-delimiter">;; </span><span class="comment">To use add the following to your .emacs file (requires the color-theme package):
-</span><span class="comment-delimiter">;;</span><span class="comment">
-</span><span class="comment-delimiter">;; </span><span class="comment">(require 'color-theme)
-</span><span class="comment-delimiter">;; </span><span class="comment">(color-theme-initialize)
-</span><span class="comment-delimiter">;; </span><span class="comment">(load-file "~/.emacs.d/themes/color-theme-blackboard.el")
-</span><span class="comment-delimiter">;;</span><span class="comment">
-</span><span class="comment-delimiter">;; </span><span class="comment">And then (color-theme-blackboard) to activate it.
-</span><span class="comment-delimiter">;;</span><span class="comment">
-</span><span class="comment-delimiter">;; </span><span class="comment">MIT License Copyright (c) 2008 JD Huntington &lt;jdhuntington at gmail dot com&gt;
-</span><span class="comment-delimiter">;; </span><span class="comment">Credits due to the excellent TextMate Blackboard theme
-</span><span class="comment-delimiter">;;</span><span class="comment">
-</span><span class="comment-delimiter">;; </span><span class="comment">All patches welcome
-</span>
-(<span class="keyword">defun</span> <span class="function-name">color-theme-blackboard</span> ()
-  <span class="doc">"Color theme by JD Huntington, based off the TextMate Blackboard theme, created 2008-11-27"</span>
-  (interactive)
-  (color-theme-install
-   '(color-theme-blackboard
-     ((background-color . <span class="string">"#0C1021"</span>)
-      (background-mode . dark)
-      (border-color . <span class="string">"black"</span>)
-      (cursor-color . <span class="string">"#A7A7A7"</span>)
-      (foreground-color . <span class="string">"#F8F8F8"</span>)
-      (mouse-color . <span class="string">"sienna1"</span>))
-     (default ((t (<span class="builtin">:background</span> <span class="string">"#0C1021"</span> <span class="builtin">:foreground</span> <span class="string">"#F8F8F8"</span>))))
-     (blue ((t (<span class="builtin">:foreground</span> <span class="string">"blue"</span>))))
-     (bold ((t (<span class="builtin">:bold</span> t))))
-     (bold-italic ((t (<span class="builtin">:bold</span> t))))
-     (border-glyph ((t (nil))))
-     (buffers-tab ((t (<span class="builtin">:background</span> <span class="string">"#0C1021"</span> <span class="builtin">:foreground</span> <span class="string">"#F8F8F8"</span>))))
-     (font-lock-builtin-face ((t (<span class="builtin">:foreground</span> <span class="string">"#F8F8F8"</span>))))
-     (font-lock-comment-face ((t (<span class="builtin">:italic</span> t <span class="builtin">:foreground</span> <span class="string">"#AEAEAE"</span>))))
-     (font-lock-constant-face ((t (<span class="builtin">:foreground</span> <span class="string">"#D8FA3C"</span>))))
-     (font-lock-doc-string-face ((t (<span class="builtin">:foreground</span> <span class="string">"DarkOrange"</span>))))
-     (font-lock-function-name-face ((t (<span class="builtin">:foreground</span> <span class="string">"#FF6400"</span>))))
-     (font-lock-keyword-face ((t (<span class="builtin">:foreground</span> <span class="string">"#FBDE2D"</span>))))
-     (font-lock-preprocessor-face ((t (<span class="builtin">:foreground</span> <span class="string">"Aquamarine"</span>))))
-     (font-lock-reference-face ((t (<span class="builtin">:foreground</span> <span class="string">"SlateBlue"</span>))))
-
-     (font-lock-regexp-grouping-backslash ((t (<span class="builtin">:foreground</span> <span class="string">"#E9C062"</span>))))
-     (font-lock-regexp-grouping-construct ((t (<span class="builtin">:foreground</span> <span class="string">"red"</span>))))
-
-     (font-lock-string-face ((t (<span class="builtin">:foreground</span> <span class="string">"#61CE3C"</span>))))
-     (font-lock-type-face ((t (<span class="builtin">:foreground</span> <span class="string">"#8DA6CE"</span>))))
-     (font-lock-variable-name-face ((t (<span class="builtin">:foreground</span> <span class="string">"#FF6400"</span>))))
-     (font-lock-warning-face ((t (<span class="builtin">:bold</span> t <span class="builtin">:foreground</span> <span class="string">"Pink"</span>))))
-     (gui-element ((t (<span class="builtin">:background</span> <span class="string">"#D4D0C8"</span> <span class="builtin">:foreground</span> <span class="string">"black"</span>))))
-     (region ((t (<span class="builtin">:background</span> <span class="string">"#253B76"</span>))))
-     (mode-line ((t (<span class="builtin">:background</span> <span class="string">"grey75"</span> <span class="builtin">:foreground</span> <span class="string">"black"</span>))))
-     (highlight ((t (<span class="builtin">:background</span> <span class="string">"#222222"</span>))))
-     (highline-face ((t (<span class="builtin">:background</span> <span class="string">"SeaGreen"</span>))))
-     (italic ((t (nil))))
-     (left-margin ((t (nil))))
-     (text-cursor ((t (<span class="builtin">:background</span> <span class="string">"yellow"</span> <span class="builtin">:foreground</span> <span class="string">"black"</span>))))
-     (toolbar ((t (nil))))
-     (underline ((nil (<span class="builtin">:underline</span> nil))))
-     (zmacs-region ((t (<span class="builtin">:background</span> <span class="string">"snow"</span> <span class="builtin">:foreground</span> <span class="string">"ble"</span>)))))))</pre>
-  </body>
-</html><p style='font-size: 8pt; font-family: monospace;'>;; Generated by JD Huntington using <a href='http://p.hagelb.org'>scpaste</a> at Thu Nov 27 11:54:22 2008.</p>
Tip: Filter by directory path e.g. /media app.js to search for public/media/app.js.
Tip: Use camelCasing e.g. ProjME to search for ProjectModifiedEvent.java.
Tip: Filter by extension type e.g. /repo .js to search for all .js files in the /repo directory.
Tip: Separate your search with spaces e.g. /ssh pom.xml to search for src/ssh/pom.xml.
Tip: Use ↑ and ↓ arrow keys to navigate and return to view the file.
Tip: You can also navigate files with Ctrl+j (next) and Ctrl+k (previous) and view the file with Ctrl+o.
Tip: You can also navigate files with Alt+j (next) and Alt+k (previous) and view the file with Alt+o.