dysinger (owner)

Revisions

gist: 230555 Download_button fork
public
Public Clone URL: git://gist.github.com/230555.git
Embed All Files: show embed
tim.el #
raw 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91

 (when window-system
  (color-theme-blackboard)
  (when (equal system-type 'darwin)
    (setq ispell-program-name "~/Homebrew/bin/aspell")
    (dolist (dir '("/usr/local/bin" "/usr/X11/bin"
                   "~/Homebrew/sbin" "~/Homebrew/bin"
                   "~/Library/Python/2.6/bin" "~/.gem/ruby/1.8/bin"
                   "~/bin"))
      (let ((path (expand-file-name dir)))
        (setenv "PATH" (concat (format "%s:" path) (getenv "PATH")))
        (setq exec-path (push path exec-path))))))
 
;; load-path
(mapcar (lambda (d) (add-to-list 'load-path
                            (expand-file-name d "~/.emacs.d")))
        '("rudel"))
 
;; rudel
(require 'rudel-loaddefs)
(setq rudel-configured-sessions
      `((:name "local" :backend obby
               :host "127.0.0.1"
               :username "tim@emacs" :color "pink"
               :encryption t :port 6522
               :global-password "" :user-password "")))
 
;; chicken scheme
(setq scheme-program-name "csi")
 
;; erlang
(require 'erlang-start)
 
;; lfe
(autoload 'lfe-mode "lfe-mode" "Load lfe-mode")
(add-hook 'lfe-mode-hook (function paredit-mode))
(add-to-list 'auto-mode-alist '("\\.lfe$" . lfe-mode))
 
;; common code mode hooks
(dolist (x '(clojure scheme emacs-lisp lisp ruby sh nxml erlang lfe))
  (add-hook
   (intern (concat (symbol-name x) "-mode-hook"))
   (lambda ()
     (highlight-80+-mode +1)
     (whitespace-mode))))
 
;; lisp mode hooks
(dolist (x '(clojure scheme emacs-lisp lisp lfe slime-repl))
  (add-hook
   (intern (concat (symbol-name x) "-mode-hook"))
   (lambda ()
     (paredit-mode))))
 
;; misc settings
 
(setq ring-bell-function 'ignore)
(setq debug-on-error nil)
;; (setq delete-by-moving-to-trash nil)
 
;; FIXME - add these keys below
;; (global-set-key [] `comment-or-uncomment-region)
;; (global-set-key [] `shrink-window)
;; (global-set-key [] `enlange-window)
;; (global-set-key [] `shrink-window-horizontally)
;; (global-set-key [] `enlange-window-horizontally)
 
;; (global-set-key [home] `beginning-of-buffer)
;; (global-set-key [end] `end-of-buffer)
(global-set-key (kbd "C-m") 'newline-and-indent)
 
;; pulse
 
(require 'pulse nil t)
(require 'pulse-advice nil t)
(setq pulse-iterations 5)
 
;; eshell functions
 
(defun eshell/rsync-to-swing ()
  (interactive)
  (dolist (x '(".emacs.d" ".gitconfig" ".gitignore" ".hg" ".mvn" ".ant"
               "src/sa-safe"))
    (start-process (format "rsyncing %s" x) "*Messages*"
                   "rsync" "-vua" "--delete" "--delete-excluded"
                   "--exclude=target,build,*.elc,*.class"
                   (expand-file-name (format "~/%s" x))
                   "swing.sa2s.us:")))
 
;; eshell aliases
 
(defalias 'eshell/e 'find-file)