emacs config

gistfile1.txt

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; environment
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(load "auctex.el" nil t t)
(load "preview-latex.el" nil t t)
(add-to-list 'load-path "~/.emacs.d/plugins")
(require 'sticky-windows)

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; modes and themes
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(setq ido-enable-flex-matching t)
(setq ido-everywhere t) 	
(setq ido-create-new-buffer 'always)
(setq ido-file-extensions-order '(".hs" ".py" ".emacs" ".html" ".js" ".css" ".tpl" ".org"))
(setq ido-ignore-extensions t) 
(setq qml-mode-indent-offet 2)
(setq TeX-PDF-mode t)

(setq-default yas-prompt-functions '(yas-ido-prompt yas-dropdown-prompt))
(cua-selection-mode 1)
(eval-after-load 'powerline '(powerline-default-theme))
(add-hook 'after-init-hook (lambda () 
  (global-undo-tree-mode)
  (ido-mode 1)
  (yas-global-mode 1)
  (load-theme 'assemblage)))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; tabs
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(defun my-generate-tab-stops (&optional width max)
  "Return a sequence suitable for `tab-stop-list'."
  (let* ((max-column (or max 200))
         (tab-width (or width tab-width))
         (count (/ max-column tab-width)))
    (number-sequence tab-width (* tab-width count) tab-width)))

(setq-default tab-width 2)
(setq-default indent-tabs-mode nil)
(setq-default tab-stop-list (my-generate-tab-stops 2))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; faces
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(set-face-attribute 'default nil :height 90)

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; key bindings
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(defun in-console (command) 
  "Run a command in a new window, at the bottom of the screen, dedicated and resized."
  `(lambda ()
    (interactive)
    (let ((command-window (split-window-vertically)))
      (select-window command-window)
      (,command)
      (window-resize command-window -13)
      (set-window-dedicated-p command-window t))))

(global-set-key (kbd "C-x g") 'magit-status)
(global-set-key (kbd "C-x t") (in-console (function eshell)))
(global-set-key [(control x) (?0)] 'sticky-window-delete-window)
(global-set-key [(control x) (?1)] 'sticky-window-delete-other-windows)
(global-set-key [(control x) (?9)] 'sticky-window-keep-window-visible)

(defun toggle-local (var on off)
  "Toggle a local variable, switching it between nil and t"
  (make-variable-buffer-local var)
  (set var (not (eval var)))
  (if (eval var) on off))

(add-hook 'haskell-interactive-mode-hook (lambda () 
  (local-set-key (kbd "C-c r") 'haskell-process-restart)
  (local-set-key (kbd "C-c b") 'haskell-interactive-switch)))                                                     

(eval-after-load "haskell-mode"
  '(progn
    (define-key haskell-mode-map (kbd "C-c s") (lambda () (interactive) (message (toggle-local 'haskell-stylish-on-save "Stylish activated" "Stylish deactivated"))))
    (define-key haskell-mode-map (kbd "C-c t") 'haskell-mode-tag-find) ;
    (define-key haskell-mode-map (kbd "C-x C-d") nil)
    (define-key haskell-mode-map (kbd "C-c C-z") 'haskell-interactive-switch)
    (define-key haskell-mode-map (kbd "C-c C-l") 'haskell-process-load-file)
    (define-key haskell-mode-map (kbd "C-c b") 'haskell-interactive-switch)
    (define-key haskell-mode-map (kbd "C-c r") 'haskell-process-restart)
    (define-key haskell-mode-map (kbd "C-c C-t") 'haskell-process-do-type)
    (define-key haskell-mode-map (kbd "C-c C-i") 'haskell-process-do-info)
    (define-key haskell-mode-map (kbd "C-c i") 'haskell-navigate-imports)
    (define-key haskell-mode-map (kbd "C-c c") 'haskell-process-cabal)
    (define-key haskell-mode-map (kbd "C-c h") 'hayoo)
    (define-key haskell-mode-map (kbd "C-c M-.") nil)
    (define-key haskell-mode-map (kbd "C-c C-d") nil)
    (add-hook 'haskell-mode-hook (lambda () (add-hook 'before-save-hook 'haskell-mode-format-imports t t))))
)

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; file major mode associations
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(add-to-list 'auto-mode-alist '("\\.tpl\\'" . html-mode))
(add-to-list 'auto-mode-alist '("\\.qml\\'" . qml-mode))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; CEDET
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(load-file "~/.emacs.d/plugins/cedet/cedet-devel-load.el")
(require 'semantic/bovine/c)
(require 'semantic/bovine/gcc)

(load-file "~/.emacs.d/projects.el")
(semantic-mode 1)
(global-ede-mode 1)

(defun my-cedet-hook ()
  (local-set-key (kbd "C-M-i") 'semantic-ia-complete-symbol-menu)
  (require 'auto-complete)
  (require 'auto-complete-config)
  (add-to-list 'ac-sources 'ac-source-semantic)
  (auto-complete-mode 1)
)
(add-hook 'c-mode-common-hook 'my-cedet-hook)

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Flycheck checkers
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(eval-after-load 'flycheck
  '(progn
    (flycheck-define-checker 
     haskell-hdevtools-nolint
     "A Haskell syntax and type checker using hdevtools.

See URL `https://github.com/bitc/hdevtools'."
     :command ("hdevtools" "check" "-g" "-Wall" source-inplace)
     :error-patterns
     ((warning line-start (file-name) ":" line ":" column ":"
               (or " " "\n    ") "Warning:" (optional "\n")
               (one-or-more " ")
               (message (one-or-more not-newline)
                        (zero-or-more "\n"
                                      (one-or-more " ")
                                      (one-or-more not-newline)))
               line-end)
      (error line-start (file-name) ":" line ":" column ":"
             (or (message (one-or-more not-newline))
                 (and "\n" (one-or-more " ")
                      (message (one-or-more not-newline)
                               (zero-or-more "\n"
                                             (one-or-more " ")
                                             (one-or-more not-newline)))))
             line-end))
     :modes haskell-mode
)))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Customize section
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(custom-set-variables
 ;; custom-set-variables was added by Custom.
 ;; If you edit it by hand, you could mess it up, so be careful.
 ;; Your init file should contain only one such instance.
 ;; If there is more than one, they won't work right.
 '(ac-auto-show-menu t)
 '(ac-auto-start 2)
 '(ac-quick-help-delay 0.5)
 '(ac-trigger-key "TAB")
 '(ansi-color-faces-vector [default bold shadow italic underline bold bold-italic bold])
 '(ansi-color-names-vector ["#081724" "#ff694d" "#68f6cb" "#fffe4e" "#bad6e2" "#afc0fd" "#d2f1ff" "#d3f9ee"])
 '(ansi-term-color-vector [unspecified "#081724" "#ff694d" "#68f6cb" "#fffe4e" "#bad6e2" "#afc0fd" "#d2f1ff" "#d3f9ee"] t)
 '(background-color "#002b36")
 '(background-mode dark)
 '(c-offsets-alist (quote ((case-label . +) (inclass . ++))))
 '(column-number-mode t)
 '(completion-ignored-extensions (quote (".o" "~" ".bin" ".lbin" ".so" ".a" ".ln" ".blg" ".bbl" ".elc" ".lof" ".glo" ".idx" ".lot" ".svn/" ".hg/" ".git/" ".bzr/" "CVS/" "_darcs/" "_MTN/" ".fmt" ".tfm" ".class" ".fas" ".lib" ".mem" ".x86f" ".sparcf" ".dfsl" ".pfsl" ".d64fsl" ".p64fsl" ".lx64fsl" ".lx32fsl" ".dx64fsl" ".dx32fsl" ".fx64fsl" ".fx32fsl" ".sx64fsl" ".sx32fsl" ".wx64fsl" ".wx32fsl" ".fasl" ".ufsl" ".fsl" ".dxl" ".lo" ".la" ".gmo" ".mo" ".toc" ".aux" ".cp" ".fn" ".ky" ".pg" ".tp" ".vr" ".cps" ".fns" ".kys" ".pgs" ".tps" ".vrs" ".pyc" ".pyo" ".hi")))
 '(cursor-color "#839496")
 '(custom-safe-themes (quote ("77bd459212c0176bdf63c1904c4ba20fce015f730f0343776a1a14432de80990" "8f6537eb6f9d66b060c736f5f680f5c661e0a6b311b86defa293bc5ba104a030" "2b80b8864ae9fa004bf55bb6d30bb948621f85eb23ee80a1d7bf071d0e4b51e1" "f81e1ca8cefb9d4ded877d39f082c812294bcac41fce5be7230caa6cc83bde37" "3bd9497fb8f39c28ab58a9e957152ba2dc41223c23c5520ef10fc7bd6b222384" "a68fa33e66a883ce1a5698bc6ff355b445c87da1867fdb68b9a7325ee6ea3507" "88b663861db4767f7881e5ecff9bb46d65161a20e40585c8128e8bed8747dae5" "c1fb68aa00235766461c7e31ecfc759aa2dd905899ae6d95097061faeb72f9ee" "1e7e097ec8cb1f8c3a912d7e1e0331caeed49fef6cff220be63bd2a6ba4cc365" "7feeed063855b06836e0262f77f5c6d3f415159a98a9676d549bfeb6c49637c4" "04643edb183240f680d5465cf9e9ac3037086f701df09ce5d9183e6c69e73a7e" "fc5fcb6f1f1c1bc01305694c59a1a861b008c534cae8d0e48e4d5e81ad718bc6" "65510ff6bb3cddeb9fcdc61770abcb8cbf8a15185a0b268f77c6b515650a625b" "1177fe4645eb8db34ee151ce45518e47cc4595c3e72c55dc07df03ab353ad132" "3341f6db5ac17e4174f7488c40676e7f0464f1e88519a59303dc7e7774245bbf" "8874901e0011a7b07e546b65be1726c4cc3f35cf1a60f8805e6cb5bb59ba305c" "dc46381844ec8fcf9607a319aa6b442244d8c7a734a2625dac6a1f63e34bc4a6" "978bd4603630ecb1f01793af60beb52cb44734fc14b95c62e7b1a05f89b6c811" "d0ff5ea54497471567ed15eb7279c37aef3465713fb97a50d46d95fe11ab4739" "c7359bd375132044fe993562dfa736ae79efc620f68bab36bd686430c980df1c" "d293542c9d4be8a9e9ec8afd6938c7304ac3d0d39110344908706614ed5861c9" "6f3060ac8300275c990116794e1ba897b6a8af97c51a0cb226a98759752cddcf" "4aee8551b53a43a883cb0b7f3255d6859d766b6c5e14bcb01bed572fcbef4328" default)))
 '(fci-rule-color "#073642")
 '(flycheck-checkers (quote (bash c/c++-clang c/c++-cppcheck coffee coffee-coffeelint css-csslint d-dmd elixir emacs-lisp emacs-lisp-checkdoc erlang go-gofmt go-build go-test haml haskell-hdevtools-nolint haskell-hdevtools haskell-hlint html-tidy javascript-jshint json-jsonlint less lua perl php php-phpcs puppet-parser puppet-lint python-flake8 python-pylint rst ruby-rubocop ruby ruby-jruby rust sass scala scss sh-dash sh-bash tex-chktex tex-lacheck xml-xmlstarlet xml-xmllint zsh)))
 '(flycheck-idle-change-delay 0.5)
 '(foreground-color "#839496")
 '(fringe-mode 5 nil (fringe))
 '(global-linum-mode t)
 '(global-undo-tree-mode t)
 '(haskell-font-lock-symbols t)
 '(haskell-indent-after-keywords (quote (("where" 2 0) ("of" 2) ("do" 2) ("mdo" 2) ("rec" 2) ("in" 2 0) ("{" 2) "if" "then" "else" "let")))
 '(haskell-indent-dont-hang (quote ("(" "do" "{" "[")))
 '(haskell-indent-offset 2)
 '(haskell-indent-rhs-align-column 2)
 '(haskell-indent-thenelse 0)
 '(haskell-mode-hook (quote (turn-on-haskell-indentation (lambda nil (add-hook (quote before-save-hook) (quote haskell-mode-format-imports) t t)) turn-on-font-lock turn-on-eldoc-mode capitalized-words-mode turn-on-haskell-doc-mode flycheck-mode)))
 '(haskell-process-args-cabal-repl (quote ("--ghc-option=-ferror-spans")))
 '(haskell-process-auto-import-loaded-modules nil)
 '(haskell-process-path-ghci "ghci")
 '(haskell-process-use-presentation-mode nil)
 '(haskell-program-name "ghci-7.8")
 '(haskell-stylish-on-save nil)
 '(haskell-tags-on-save t)
 '(inhibit-startup-screen t)
 '(js-indent-level 2)
 '(linum-format " %2d ")
 '(main-line-color1 "#222232")
 '(main-line-color2 "#333343")
 '(make-backup-files nil)
 '(menu-bar-mode nil)
 '(package-archives (quote (("gnu" . "http://elpa.gnu.org/packages/") ("marmelade" . "http://marmalade-repo.org/packages/") ("melpa" . "http://melpa.milkbox.net/packages/"))))
 '(powerline-buffer-size-suffix t)
 '(powerline-color1 "#222232")
 '(powerline-color2 "#333343")
 '(powerline-default-separator (quote arrow-fade))
 '(savehist-mode t)
 '(scroll-bar-mode nil)
 '(show-paren-mode t)
 '(tab-width 2)
 '(tool-bar-mode nil)
 '(vc-annotate-background nil)
 '(vc-annotate-color-map (quote ((20 . "#dc322f") (40 . "#cb4b16") (60 . "#b58900") (80 . "#859900") (100 . "#2aa198") (120 . "#268bd2") (140 . "#d33682") (160 . "#6c71c4") (180 . "#dc322f") (200 . "#cb4b16") (220 . "#b58900") (240 . "#859900") (260 . "#2aa198") (280 . "#268bd2") (300 . "#d33682") (320 . "#6c71c4") (340 . "#dc322f") (360 . "#cb4b16"))))
 '(vc-annotate-very-old-color nil))

(put 'upcase-region 'disabled nil)
(put 'dired-find-alternate-file 'disabled nil)
(put 'set-goal-column 'disabled nil)
(custom-set-faces
 ;; custom-set-faces was added by Custom.
 ;; If you edit it by hand, you could mess it up, so be careful.
 ;; Your init file should contain only one such instance.
 ;; If there is more than one, they won't work right.
 '(default ((t (:inherit fixed-pitch :stipple nil :background "#090F10" :foreground "#F0F0E0" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :height 105 :width normal :foundry "unknown" :family "Inconsolata"))))
 '(linum ((t (:background "#09150F" :foreground "#434844" :height 90))))
 '(powerline-active2 ((t (:inherit mode-line :background "gray12")))))
(put 'downcase-region 'disabled nil)