1 files changed, 111 insertions, 0 deletions

diff --git a/accounts/gkleen@sif/emacs.el b/accounts/gkleen@sif/emacs.el
new file mode 100644
index 00000000..92a79910
--- /dev/null
+++ b/accounts/gkleen@sif/emacs.el
@@ -0,0 +1,111 @@
+(menu-bar-mode -1)
+(scroll-bar-mode -1)
+(tool-bar-mode -1)
+
+(set-face-attribute 'default nil :font "FiraCode Nerd Font Mono" :height 49)
+
+(require 'evil)
+(evil-mode 1)
+(setq evil-undo-system 'undo-tree)
+
+(global-subword-mode)
+(global-undo-tree-mode)
+(global-fira-code-mode)
+
+(global-set-key (kbd "RET") 'newline-and-indent)
+(global-set-key (kbd "M-g") 'magit-status)
+(global-set-key (kbd "M-?") 'vc-git-grep)
+
+(setq backup-directory-alist `(("." . "~/.saves")))
+(setq delete-old-versions t
+      kept-new-versions 6
+      kept-old-versions 2
+      version-control t)
+
+(setq undo-tree-visualizer-timestamps t
+      undo-tree-visualizer-diff t
+      ;; 10X bump of the undo limits to avoid issues with premature
+      ;; Emacs GC which truncages the undo history very aggresively
+      undo-limit 800000
+      undo-strong-limit 12000000
+      undo-outer-limit 120000000)
+
+(add-hook 'haskell-mode-hook 'haskell-indentation-mode)
+(add-hook 'haskell-mode-hook 'subword-mode)
+(add-hook 'haskell-mode-hook 'highlight-symbol-mode)
+(add-hook 'haskell-mode-hook 'highlight-paretheses-mode)
+
+(add-hook 'js-mode-hook 'highlight-symbol-mode)
+(add-hook 'js-mode-hook 'highlight-parentheses-mode)
+(defun my-js-mode-hook ()
+  "Custom `js-mode' behaviours."
+  (setq js-indent-level 2)
+  )
+(add-hook 'js-mode-hook 'my-js-mode-hook)
+
+(setq undo-tree-auto-save-history t)
+
+(setq notmuch-address-internal-completion '(received nil))
+(setq notmuch-always-prompt-for-sender t)
+(setq notmuch-command "notmuch-ssh")
+(setq notmuch-crypto-process-mime t)
+(setq notmuch-draft-tags '("+draft" "-inbox"))
+(setq notmuch-fcc-dirs nil)
+(setq notmuch-hello-sections '(notmuch-hello-insert-header notmuch-hello-insert-saved-searches))
+(setq notmuch-hello-thousands-separator " ")
+(setq notmuch-identities '("gkleen@yggdrasil.li" "g@141.li" "kleen@cip.ifi.lmu.de" "Gregor.Kleen@stud.ifi.lmu.de" "G.Kleen@campus.lmu.de" "G.Kleen@lmu.de" "gregor.kleen@ifi.lmu.de" "uni2work@ifi.lmu.de" "gregor@kleen.li"))
+(setq notmuch-message-headers '("Subject" "To" "Cc" "Date"))
+(setq notmuch-message-replied-tags '("+replied" "-unread" "-inbox"))
+(setq notmuch-saved-searches
+      (quote
+       ((:name "inbox" :query "tag:inbox" :key "i")
+        (:name "unread" :query "tag:unread AND tag:inbox" :key "u")
+        (:name "drafts" :query "tag:draft" :key "d")
+        (:name "all mail" :query "date:month.." :key "a" :count-query "*")
+        (:name "sent" :query "is:sent" :key "s" :count-query "is:sent")
+      )))
+(setq notmuch-search-oldest-first nil)
+(setq notmuch-show-all-tags-list t)
+(setq notmuch-show-logo nil)
+
+(setq send-mail-function 'sendmail-send-it)
+(setq mail-envelope-from 'header)
+(setq mail-specify-envelope-from 't)
+(setq mail-default-headers nil)
+(setq message-default-headers "")
+(setq message-default-mail-headers "")
+(setq message-sendmail-envelope-from 'header)
+
+(setq highlight-symbol-idle-delay 0)
+
+(setq indent-tabs-mode nil)
+
+(setq ido-enable-flex-matching t)
+(setq ido-everywhere t)
+(ido-mode 1)
+
+(setq mail-host-address "sif.midgard.yggdrasil")
+(setq user-full-name "Gregor Kleen")
+
+(defun tell-emacsclients-for-buffer-to-die ()
+  "Sends error exit command to every client for the current buffer."
+  (interactive)
+  (dolist (proc server-buffer-clients)
+    (server-send-string proc "-error die")))
+
+(defun kill-buffer-with-special-emacsclient-handling ()
+  "Wrapper around kill-buffer that ensures tell-emacsclients-for-buffer-to-die is on the hooks"
+  (interactive)
+  (add-hook 'kill-buffer-hook 'tell-emacsclients-for-buffer-to-die nil t)
+  (kill-buffer))
+
+;; (global-set-key (kbd "C-x k") 'kill-buffer)
+
+(defun install-emacsclient-wrapped-kill-buffer ()
+  "Installs wrapped kill-buffer with special emacsclient handling.
+Best not to install it unconditionally because the server is not
+necessarily running."
+  (interactive)
+  (global-set-key (kbd "C-x k") 'kill-buffer-with-special-emacsclient-handling))
+
+(add-hook 'server-switch-hook 'install-emacsclient-wrapped-kill-buffer)