Skip to content
This repository

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse code

init.el: some recent additions for encoding and textmate mode in

clojure mode.
  • Loading branch information...
commit 8815da6cbcd44ce210acda1eee8ec7f5e9f7c091 1 parent 1fb9bf3
jamieorc authored

Showing 1 changed file with 17 additions and 3 deletions. Show diff stats Hide diff stats

  1. +17 3 init.el
20 init.el
@@ -9,14 +9,22 @@
9 9 ;; If you edit it by hand, you could mess it up, so be careful.
10 10 ;; Your init file should contain only one such instance.
11 11 ;; If there is more than one, they won't work right.
12   - '(global-linum-mode t))
  12 + '(global-linum-mode t)
  13 + '(slime-net-coding-system (quote utf-8-unix))
  14 + '(global-auto-revert-mode t))
13 15
14 16 (setq linum-format "%5d ")
15 17 (setq mac-option-modifier 'meta
16   - scroll-conservatively 101)
  18 + scroll-conservatively 1001)
17 19
18 20 (setq exec-path (append exec-path '("/usr/local/bin")) )
19 21
  22 +(setq locale-coding-system 'utf-8)
  23 +(set-terminal-coding-system 'utf-8)
  24 +(set-keyboard-coding-system 'utf-8)
  25 +(set-selection-coding-system 'utf-8)
  26 +(prefer-coding-system 'utf-8)
  27 +
20 28 (global-set-key (kbd "s-o") 'ido-find-file)
21 29 (global-set-key (kbd "s-b") 'ido-switch-buffer)
22 30 (global-set-key (kbd "s-R") 'eval-last-sexp)
@@ -37,6 +45,10 @@
37 45 (add-hook 'clojure-mode-hook
38 46 '(lambda ()
39 47 (define-key clojure-mode-map (kbd "s-r") 'slime-eval-defun)))
  48 +(add-hook 'clojure-mode-hook 'textmate-mode)
  49 +(add-hook 'midje-mode-hook
  50 + '(lambda ()
  51 + (define-key midje-mode-map (kbd "s-=") '(insert " => "))))
40 52
41 53 ;; Auto-Complete
42 54 (require 'auto-complete-config)
@@ -55,4 +67,6 @@
55 67 ;; If you edit it by hand, you could mess it up, so be careful.
56 68 ;; Your init file should contain only one such instance.
57 69 ;; If there is more than one, they won't work right.
58   - '(default ((t (:inherit nil :stipple nil :background "White" :foreground "Black" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :height 140 :width normal :foundry "apple" :family "Monaco")))))
  70 + '(default ((t (:inherit nil :stipple nil :background "White" :foreground "Black" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :height 140 :width normal :foundry "apple" :family "Monaco"))))
  71 + '(isearch ((t (:background "yellow" :foreground "black")))))
  72 +

0 comments on commit 8815da6

Please sign in to comment.
Something went wrong with that request. Please try again.