init.el
changeset 26 bd86fe64dfc8
parent 25 303d1b762ccc
child 28 8f4bd2f2cc06
equal deleted inserted replaced
25:303d1b762ccc 26:bd86fe64dfc8
    14 
    14 
    15 (put 'set-goal-column 'disabled nil)                    ; enable goal column setting
    15 (put 'set-goal-column 'disabled nil)                    ; enable goal column setting
    16 (put 'narrow-to-region 'disabled nil)                   ; enable hiding
    16 (put 'narrow-to-region 'disabled nil)                   ; enable hiding
    17 (put 'narrow-to-page 'disabled nil)
    17 (put 'narrow-to-page 'disabled nil)
    18 
    18 
    19 (menu-bar-mode nil)                                     ; remove menu bar
    19 (menu-bar-mode -1)                                      ; remove menu bar
    20 (display-time-mode t)                                   ; show clock
    20 (display-time-mode t)                                   ; show clock
    21 (column-number-mode t)                                  ; show column numbers
    21 (column-number-mode t)                                  ; show column numbers
    22 (delete-selection-mode t)                               ; replace highlighted text
    22 (delete-selection-mode t)                               ; replace highlighted text
    23 (windmove-default-keybindings)                          ; move between windows with shift-arrow
    23 (windmove-default-keybindings)                          ; move between windows with shift-arrow
    24 (ido-mode t)                                            ; file/buffer selector
    24 (ido-mode t)                                            ; file/buffer selector
    66     (align-entire beg end)
    66     (align-entire beg end)
    67     (untabify beg end)
    67     (untabify beg end)
    68     (indent-region beg end)
    68     (indent-region beg end)
    69     (whitespace-cleanup-region beg end)))
    69     (whitespace-cleanup-region beg end)))
    70 
    70 
    71 ;; x stuff
    71 ;; X stuff
    72 (if window-system
    72 (if window-system
    73     (progn
    73     (progn
    74       (tool-bar-mode nil)   ; remove tool bar
    74       (tool-bar-mode -1)    ; remove tool bar
    75       (scroll-bar-mode nil) ; remove scroll bar
    75       (scroll-bar-mode -1)  ; remove scroll bar
    76       (visual-line-mode t)  ; word wrap break on whitespace
    76       (visual-line-mode t)  ; word wrap break on whitespace
    77       (set-default-font "Monospace-10")
    77       (global-hl-line-mode t)
       
    78       ))
    78 
    79 
    79       ;; twilight theme
    80 ;; terminal
    80       (require 'color-theme)
    81 (global-set-key (kbd "C-c s") '(lambda () (interactive) (ansi-term "bash" "shell"))) ; start term
    81       (load "color-theme-twilight")
       
    82       (color-theme-twilight)
       
    83       (global-hl-line-mode t)))
       
    84 
    82 
    85 ;; terminal and shell
    83 ;; OS specific configs
    86 (global-set-key (kbd "C-c t") '(lambda () (interactive) (ansi-term "bash" "term"))) ; start term
    84 (cond
    87 (global-set-key (kbd "C-c s") 'shell) ; start shell - acts like emacs buffer
    85  ((string-match "linux" (emacs-version)) (require 'linux))
    88 (ansi-color-for-comint-mode-on)       ; color in shell buffer
    86  ((string-match "darwin" (emacs-version)) (require 'darwin))
    89 (setq-default
    87  )
    90  comint-prompt-read-only t            ; don't type on prompt
       
    91  comint-scroll-to-bottom-on-input t   ; only type on prompt
       
    92  comint-scroll-show-maximum-output t) ; place text at bottom
       
    93 
    88 
    94 ;;;;;;;;;;;;; includes & requires ;;;;;;;;;;;;;
    89 ;;;;;;;;;;;;; includes & requires ;;;;;;;;;;;;;
    95 
    90 
    96 ;; includes
    91 ;; includes
    97 (require 'hoersten-pastebin-region) ; send selected text to pastebin
    92 (require 'hoersten-pastebin-region) ; send selected text to pastebin
   123 
   118 
   124 ;; haskell mode
   119 ;; haskell mode
   125 (add-hook
   120 (add-hook
   126  'haskell-mode-hook
   121  'haskell-mode-hook
   127  (lambda ()
   122  (lambda ()
   128    (capitalized-words-mode)
   123    (haskell-indentation-mode nil)
       
   124    (haskell-indent-mode t)
       
   125    (capitalized-words-mode t)
       
   126    (haskell-doc-mode t)
       
   127    ;; (imenu-add-menubar-index t)
   129    (setq
   128    (setq
   130     haskell-font-lock-symbols 'unicode
   129     haskell-font-lock-symbols 'unicode
   131     haskell-doc-mode t
       
   132     imenu-add-menubar-index
       
   133     inferior-haskell-wait-and-jump t
       
   134     haskell-indent-mode t
       
   135     haskell-indent-offset 3)))
   130     haskell-indent-offset 3)))
   136 
   131 
   137 ;; zencoding html
   132 ;; zencoding html
   138 (require 'zencoding-mode)
   133 (require 'zencoding-mode)
   139 (add-hook 'sgml-mode-hook 'zencoding-mode) ; Auto-start on any markup modes
   134 (add-hook 'sgml-mode-hook 'zencoding-mode) ; Auto-start on any markup modes