;;;; My .emacs file.
;;;; Oldest change:  27dec2001  +chris+
;;;; Last refactoring:  20jul2014  +chris+
;;;; Last change:  18sep2016  +chris+

;; (occur "^;;;") for an overview.

;; Be resilient of missing packages.
;; 20jul2014  +chris+
(defmacro require-soft (name &rest body)
  `(if (require ,name nil t)
       (progn ,@body)
     (message "Could not load \"%s\", skipping..." ,name)))

;; Load package.el
;; 20jul2014  +chris+
(require-soft 'package
  (package-initialize)
  (add-to-list 'package-archives
               '("melpa" . "http://melpa.milkbox.net/packages/") t))

;; Put own keybindings into minor mode
;; 31aug2014  +chris+
(define-minor-mode chris2-keys-mode
  "Global minor mode for chris2's custom key bindings

This ensures no major mode overrides the keybindings, while still
making them easy to toggle.  Also, all defined keybindings can be listed here:

\\{chris2-keys-mode-map}"
  :init-value t
  :keymap (make-sparse-keymap))
(defun chris2-define-key (key def)
  (define-key chris2-keys-mode-map (kbd key) def))    

;;; Adapt load-path

(add-to-list 'load-path "~/.emacs.d")

;;; General customization

;; Don't indent with tabs
;; (thanks to slyphon)
(setq-default indent-tabs-mode nil)

;; ...except if they are already used
;; 12may2016  +chris+
(defun guess-tab-settings ()
  (interactive)
  (save-excursion
    (goto-char (point-min))
    (when (re-search-forward "^\t" 8192 t)
      (setq indent-tabs-mode t)
      (set (make-local-variable 'c-basic-offset) tab-width)
      (set (make-local-variable 'sh-indentation) tab-width)
      (set (make-local-variable 'sh-basic-offset) tab-width)
      (set (make-local-variable 'standard-indent) tab-width)
      (set (make-local-variable 'cperl-indent-level) tab-width)
      (message "File uses tabs for indentation"))))
(add-hook 'find-file-hook 'guess-tab-settings)
(setq tabify-regexp "^\t* [ \t]+")  ;; only initial whitespace

;; Sometimes we need to.
(defun new-c-lineup-arglist (langelem)
  (save-excursion
    (goto-char (cdr langelem))
    (setq syntax (car (car (c-guess-basic-syntax))))
    (while (or (eq syntax 'arglist-intro)
               (or (eq syntax 'arglist-cont)
                   (eq syntax 'arglist-cont-nonempty)))
      (forward-line -1)
      (setq syntax (car (car (c-guess-basic-syntax)))))
    (beginning-of-line)
    (re-search-forward "[^ \t]" (c-point 'eol))
    (goto-char (+ (match-beginning 0) 4))
    (vector (current-column))))

(c-add-style "openbsd"
             '("bsd"
               (c-ignore-auto-fill . '(string))
               (c-subword-mode . 0)
               (c-basic-offset . 8)
               (c-label-minimum-indentation . 0)
               (c-offsets-alist .
                                ((arglist-intro . new-c-lineup-arglist)
                                 (arglist-cont . new-c-lineup-arglist)
                                 (arglist-cont-nonempty . new-c-lineup-arglist)
                                 (arglist-close . 0)
                                 (substatement-open . 0)
                                 (statement-cont . *)
                                 (case-label . 0)
                                 (knr-argdecl . *)))
               (fill-column . 80)
               (tab-width . 8)
               (indent-tabs-mode . t)))

;; Default input method is rfc1345.
;; Enable with C-\, greek letters are &X*.
;; 18jun2007  +chris+
(setq default-input-method "rfc1345")

(setenv "SSH_ASKPASS" "/home/chris/bin/gnome-ssh-askpass")

(put 'narrow-to-page 'disabled nil)
(put 'narrow-to-region 'disabled nil)
(put 'downcase-region 'disabled nil)
(put 'eval-expression 'disabled nil)
(put 'set-goal-column 'disabled nil)
(put 'scroll-left 'disabled nil)

;; 18sep2016  +chris+
(global-eldoc-mode 0)

;;; Packages

;; Load EasyPG/EasyPG Assistant
;; 20jul2014  +chris+
(require-soft 'epa-file
  (epa-file-enable))
(require-soft 'epa-mail
  (epa-global-mail-mode 1))
(require-soft 'epg-config
  (setq mml2015-use 'epg
        epg-user-id "Leah Neukirchen"
        mml2015-encrypt-to-self t
        mml2015-sign-with-sender t
        mm-verify-option 'always
        mm-decrypt-option 'always))

;; Load BBDB -- Insidious Big Brother Database
;; 31oct2003  +chris+
(require-soft 'bbdb
  (bbdb-initialize 'gnus 'message))

;; Load AUCTeX
;; 27feb2005  +chris+
;; 30nov2005  +chris+
(require-soft 'tex-site
  (require-soft 'preview)
  (setq tex-dvi-view-command "evince")
  (add-hook 'LaTeX-mode-hook 'turn-on-reftex)
  (add-hook 'LaTeX-mode-hook 'TeX-source-correlate-mode)

;; Use MuPDF as previewer
;; 18oct2012  +chris+
  (eval-after-load 'tex
    '(add-to-list 'TeX-view-program-list
                  '("mupdf" ("mupdfwrap" (mode-io-correlate " -p %(outpage)") " %o"))))
  (eval-after-load 'tex
    '(add-to-list 'TeX-view-program-selection
                  '(output-pdf "mupdf")))

;; Then use TeX-engine-set.
;; 04nov2010  +chris+
  (eval-after-load 'tex
    '(add-to-list 'TeX-engine-alist '(luatex "LuaTeX" "luatex --jobname='%s'" "lualatex --jobname='%s'" "luatex")))

;; Use ConTeXt MKIV.
;; 11jan2014  +chris+
  (setenv "TEXMFOS" "/opt/context-minimals/texmf-linux-64")
  (setenv "TEXMFCACHE" "$HOME/.cache/texmf-cache" t)
  (setenv "OSFONTDIR" "$HOME/.fonts;/usr/share/fonts;" t)
  (eval-after-load 'tex
    '(add-to-list 'TeX-command-list
                  '("ConTeXt" "/opt/context-minimals/texmf-linux-64/bin/context --nonstopmode %t"
                    TeX-run-TeX nil (context-mode) :help "Run ConTeXt")))
  )

;; Use nXML for XML, XHTML and XSL.
;; 11sep2003  +chris+
(require 'nxml-mode)
(setq auto-mode-alist
      (cons '("\\.\\(xml\\|xsl\\|rng\\|xhtml\\)\\'" . nxml-mode)
	    auto-mode-alist))

;; Load xcscope
;; 31aug2006  +chris+
(require-soft 'xcscope)

;; Load imaxima
;; 12dec2004  +chris+
;; 09feb2010  +chris+
;; 13nov2011  +chris+
(add-to-list 'load-path
             (car (file-expand-wildcards "/usr/share/maxima/*/emacs")))
(require-soft 'maxima)
(require-soft 'imaxima)

;; Mathematica
;; 08nov2008  +chris+
(require-soft 'math
  (setq math-process-string "/usr/local/bin/MathKernel"))

;; Require Org
;; 01nov2004  +chris+
;; 09feb2010  +chris+
(setq org-startup-truncated nil)

;; Use cperl-mode
;; 19mar2004  +chris+
(add-to-list 'auto-mode-alist '("\\.pl$" . cperl-mode))

;; Ruby things
;; 23apr2002  +chris+
;; 07mar2010  +chris+
(require-soft 'ruby-mode

;; for Rails
;; 17jan2006  +chris+
; (require 'mmm-mode)
; (require 'mmm-auto)
; (setq mmm-global-mode 'maybe)
; (setq mmm-submode-decoration-level 2)
; (set-face-background 'mmm-output-submode-face  "Grey30")
; (set-face-background 'mmm-code-submode-face    "Grey40")
; (set-face-background 'mmm-comment-submode-face "Grey50")
; (mmm-add-classes
;  '((erb-code
;     :submode ruby-mode
;     :match-face (("<%#" . mmm-comment-submode-face)
;                  ("<%=" . mmm-output-submode-face)
;                  ("<%"  . mmm-code-submode-face))
;     :front "<%[#=]?"
;     :back "%>"
;     :insert ((?% erb-code       nil @ "<%"  @ " " _ " " @ "%>" @)
;              (?# erb-comment    nil @ "<%#" @ " " _ " " @ "%>" @)
;              (?= erb-expression nil @ "<%=" @ " " _ " " @ "%>" @))
;     )))
; (mmm-add-classes
;  '((css-code
;     :submode css-mode
;     :face mmm-output-submode-face
;     :front "<style.+?>\n?"
;     :back "</style>")))
; (mmm-add-classes
;  '((js-code
;     :submode javascript-mode
;     :face mmm-output-submode-face
;     :front "<script.*?>\n?"
;     :back "</script>")))
; (add-hook 'html-mode-hook
;           (lambda ()
;             (setq mmm-classes '(erb-code css-code js-mode))
;             (mmm-mode-on)))
; (add-to-list 'auto-mode-alist '("\\.rhtml$" . html-mode))
; (define-key mmm-mode-map (kbd "C-c C-c") 'mmm-parse-buffer)

;; .rb and .rbx are Ruby files
;; 02may2002  +chris+
  (add-to-list 'auto-mode-alist '("\\.rb$" . ruby-mode))
  (add-to-list 'auto-mode-alist '("\\.rbx$" . ruby-mode))
)

;; haskell-mode
;; 19nov2005  +chris+
;; 17apr2012  +chris+
;; 08may2015  +chris+
;; 11apr2018  +leah+  back to inf-haskell
(require-soft 'haskell-mode
;  (require 'haskell-interactive-mode)
;  (require 'haskell-process)
;  (custom-set-variables
;   '(haskell-process-suggest-remove-import-lines t)
;   '(haskell-process-auto-import-loaded-modules t)
;   '(haskell-process-log t))
;  (add-hook 'haskell-mode-hook 'interactive-haskell-mode)
  (require 'inf-haskell)
  (add-hook 'haskell-mode-hook 'inf-haskell-mode)
  (add-hook 'haskell-mode-hook 'turn-on-haskell-doc-mode)
  (add-hook 'haskell-mode-hook 'turn-on-haskell-indent)
  (add-to-list 'auto-mode-alist '("\\.l?hs$" . haskell-mode)))

;; go-mode
;; 11nov2012  +chris+
(require-soft 'go-mode
  (add-hook 'go-mode-hook 'subword-mode)
  (add-hook 'go-mode-hook #'(lambda () (setq fill-column 79)))
  (add-to-list 'auto-mode-alist '("\\.go$" . go-mode)))

;; js2-mode
(require-soft 'js2-mode
  (add-to-list 'auto-mode-alist '("\\.js\\'" . js2-mode)))

;; bibtex
;; 08mar2014  +chris+
(add-hook 'bibtex-mode-hook #'(lambda () (setq fill-column 79)))

;; tuareg
;; 09aug2013  +chris+
(require-soft 'tuareg
  (add-to-list 'auto-mode-alist '("\\.ml[iylp]?\\'" . tuareg-mode))
  (autoload 'ocamldebug "ocamldebug" "Run the Caml debugger" t))

;; magit
;; 09feb2010  +chris+
;; 11feb2015  +chris+
;; 24jul2015  +chris+
(require-soft 'magit
  (setq magit-last-seen-setup-instructions "1.4.0")
  (chris2-define-key "C-x g" 'magit-status)
  (define-key magit-mode-map "c" 'magit-commit)
  (define-key magit-mode-map "\C-w" nil)
  (define-key magit-mode-map "\M-w" nil)
  (magit-change-popup-key 'magit-push-popup :action ?p ?P))

(defun revert-all-buffers ()
  "Refreshes all open buffers from their respective files"
  (interactive)
  (let* ((list (buffer-list))
         (buffer (car list)))
    (while buffer
      (when (and (buffer-file-name buffer)
                 (not (buffer-modified-p buffer)))
        (set-buffer buffer)
        (revert-buffer t t t))
      (setq list (cdr list))
      (setq buffer (car list))))
  (message "Refreshed open files"))

;; elscreen
;; 14feb2010  +chris+
(setq elscreen-prefix-key "\C-z")
(require-soft 'elscreen
  (elscreen-start)
  (chris2-define-key "<M-left>" 'elscreen-previous)
  (chris2-define-key "<M-right>" 'elscreen-next)
  (chris2-define-key "C-z C-z" 'elscreen-toggle))

;; proof general
;; 10mar2014  +chris+
(load "/usr/share/emacs/site-lisp/ProofGeneral/generic/proof-site.el" t nil t)
(load "/home/chris/src/ssreflect-1.5/pg-ssr.el" t nil t)
;; 17nov2014  +chris+
(add-hook 'coq-mode-hook 
          #'(lambda ()
              (show-paren-mode -1)
              (setq coq-double-hit-enable t)
              (define-key coq-mode-map (kbd ".") 'coq-terminator-insert)))

;; M-x shell setup
;; 11sep2012  +chris+
(add-hook 'shell-mode-hook 'ansi-color-for-comint-mode-filter)
(add-hook 'shell-mode-hook #'(lambda ()
                               (setq comint-process-echoes t)))

;; nroff
;; 25jul2016  +chris+
;; Don't use nroff-electric-newline, it leaves trailing whitespace.
(require-soft 'nroff-mode
  (define-key nroff-mode-map "\n" 'electric-newline-and-maybe-indent))

;; 18sep2016  +chris+
(require-soft 'evil
  (global-undo-tree-mode 0))

;; ws-butler
;; 14nov2018  +leah+
(require-soft 'ws-butler
  (add-hook 'c-mode-hook #'ws-butler-mode))

;; recentf auto save
;; 16nov2018  +leah+
(setq recentf-auto-cleanup 'never
      recentf-auto-save-timer (run-with-idle-timer 600 t 'recentf-save-list))

;;; Own Packages

;; Require darcsum
;; 18oct2004  +chris+
(require-soft 'darcsum)

;; Load pastie
;; 31aug2006  +chris+
(require-soft 'pastie)

;; Blogging for chrisblogs
;; 10apr2004  +chris+
;; updated 16jun2004  +chris+
;; unneeded 20jun2004  +chris+
;; Nukumi2 25nov2004  +chris+
(require-soft 'nukumi2
  (setq nukumi2-blogs '(("chrisblogs" "~/prj/chrisblogs")))

  (defun nukumi2-insert-now-playing ()
    "Insert a ``now playing''-line of the current iTunes song."
    (interactive)
    (insert (shell-command-to-string "~/bin/now-playing"))))

;; trivium
(require-soft 'trivium)

;; nota bene
;; 04mar2010  +chris+
(require-soft 'nb
  (chris2-define-key "<f11>" 'nb))

(defun insert-curtab ()
  "Insert the currently active Firefox tab."
  (interactive)
  (insert (substring (shell-command-to-string "~/bin/curtab") 0 -1)))

;; 01jan2017  +leah+
(defun leah ()
  "Fix my name"
  (interactive)
  (save-excursion
    (dolist (r '(("Christian Neukirchen <chneukirchen@gmail.com>" .
		  "Leah Neukirchen <leah@vuxu.org>")
		 ("chneukirchen@gmail.com" . "leah@vuxu.org")
		 ("chneukirchen.org" . "leah.zone")
		 ("Christian Neukirchen" . "Leah Neukirchen")
		 ("+chris+" . "+leah+")
		 ("chris2" . "leah2")))
      (goto-char (if (and transient-mark-mode mark-active)
		     (region-beginning)
		   (point-min)))
      (while (search-forward (car r) 
			     (if (and transient-mark-mode mark-active)
				 (region-end)
			       (point-max)) 
			     t)
	(replace-match (cdr r) nil t)))))

;;; Key bindings

;; Make C-c SPC run `delete-horizontal-space'.
(chris2-define-key "C-c SPC" 'delete-horizontal-space)

;; C-c C-j to join lines.
;; 25jul2011  +chris+
(chris2-define-key "C-c C-j" 'delete-indentation)

;; Inserting smart newlines/formatting the rest of the paragraph.
;; 18mar2014  +chris+
(defun fill-remaining-paragraph ()
  (interactive)
  (delete-horizontal-space)
  (unless (bolp)
    (insert "\n"))
  (insert "\n")
  (fill-paragraph)
  (delete-char -1))
(chris2-define-key "M-RET" 'fill-remaining-paragraph)

;; Put each sentence of the paragraph into its own, word-wrapped line.
;; 07feb2018  +leah+
(defun chris2-fill-sentences ()
  (interactive)
  (save-excursion
    (forward-paragraph -1)
    (let ((start (point))
          (stop  (save-excursion
                   (forward-paragraph 1)
                   (backward-sentence)
                   (forward-sentence)
                   (point))))
       (while (< (point) stop)
          (forward-sentence)
          (unless (eolp)
            (delete-horizontal-space)      
            (insert "\n"))
          (fill-region start (point))
          (forward-whitespace 1)
          (setq start (point))))))
(chris2-define-key "M-Q" 'chris2-fill-sentences)

;; Make C-c TAB work like dabbrev-expand.
;; 27feb2002  +chris+
(chris2-define-key "C-c TAB" 'dabbrev-expand)

;; Run `calculator' with C-c c
(chris2-define-key "C-c c" 'calculator)

;; occur in isearch.  by zenspider.
;; 27dec2006  +chris+
(define-key isearch-mode-map (kbd "C-o") ; occur easily inside isearch
  (lambda ()
    (interactive)
    (let ((case-fold-search isearch-case-fold-search))
      (occur (if isearch-regexp isearch-string (regexp-quote isearch-string))))))

;; Emacs21 changes these.
;; 28aug2002  +chris+
(chris2-define-key "<home>" 'beginning-of-buffer)
(chris2-define-key "<end>" 'end-of-buffer)

;; Vim-like * on C-. and C-,
;; 09mar2007  +chris+
(defun search-forward-word (direction)
  (interactive "p")
  (let ((word (current-word t))
        (pos (point)))
    (when word
      (if (= 1 direction)
          (forward-word)
        (backward-word))
      (let ((found
             (if (= 1 direction)
                 (search-forward-regexp (concat "\\_<" word "\\_>")
                                        (point-max) t)
               (search-backward-regexp (concat "\\_<" word "\\_>")
                                       (point-min) t))))
      (if found
          (goto-char (match-beginning 0))
        (goto-char pos)
        (message "Not found: %s" word))))))

(defun search-backward-word (direction)
  (interactive "p")
  (search-forward-word (- direction)))

(chris2-define-key "C-." 'search-forward-word)
(chris2-define-key "C-," 'search-backward-word)

;; Interactively replace two regexp with each other.
;; from http://lists.gnu.org/archive/html/help-gnu-emacs/2005-11/msg00740.html
;; 07may2015  +chris+
(defun query-swap-regexp (regexp-a regexp-b)
  "Swap A and B regexp matches in current buffer or region."
  (interactive "sFirst regexp: \nsSecond regexp: ")
  (let ((match-a (save-excursion (re-search-forward regexp-a nil t)
                 (match-string 0)))
        (match-b (save-excursion
                 (re-search-forward regexp-b nil t)
                 (match-string 0))))
    (query-replace-regexp
     (concat "\\(\\(" regexp-a "\\)\\|" regexp-b "\\)")
     `(replace-eval-replacement 
       replace-quote 
       (if (match-string 2) ,match-b ,match-a))
     nil 
     (if (and transient-mark-mode mark-active) (region-beginning))
     (if (and transient-mark-mode mark-active) (region-end)))))

;; Toggle comments with C-;
;; 09aug2013  +chris+
(defun toggle-comment-on-line ()
  "comment or uncomment current line"
  (interactive)
  (comment-or-uncomment-region (line-beginning-position) (line-end-position)))

(chris2-define-key "C-;" 'toggle-comment-on-line)

;; Make C-^ run `speedbar-get-focus'
;; 29mar2002  +chris+
;; 14feb2010  +chris+
(chris2-define-key "C-^" 'speedbar-get-focus)
(chris2-define-key "C-`" 'speedbar-get-focus)
;;(require 'sr-speedbar)
;;(global-set-key (kbd "C-^") 'sr-speedbar-toggle)
;;(global-set-key (kbd "C-`") 'sr-speedbar-toggle)

;; Override C-u to clear minibuffer
;; http://unix-kb.cat-v.org/
;; 17mar2011  +chris+
(define-key minibuffer-local-map (kbd "C-u") 'kill-whole-line)

;; Override C-u and C-w in comint-mode
;; 21apr2012  +chris+
(require-soft 'comint
  (define-key comint-mode-map "\C-u" 'comint-kill-input)
  (define-key comint-mode-map "\C-w" 'backward-kill-word))

;; Transpose symbols, not words.
;; 17aug2014  +chris+
(require-soft 'thingatpt
  (defun transpose-symbols (arg)
    (interactive "*p")
    (transpose-subr 'forward-symbol arg))
  (chris2-define-key "M-t" 'transpose-symbols))

;; sam(1)-like M-!
;; 14aug2014  +chris+
(defvar bang-last-command "")
(make-variable-buffer-local 'bang-last-command)

(defun bang (command beg end)
  "Smartly execute string COMMAND in inferior shell.

When COMMAND starts with
  <  the output of COMMAND replaces the current selection
  >  COMMAND is run with the current selection as input
  |  the current selection is filtered through COMMAND
  !  COMMAND is simply executed (same as without any prefix)

Inside COMMAND, % is replaced with the current file name."
  (interactive (list
                (read-shell-command "Bang command: ")
                (if mark-active (region-beginning) (point-min))
                (if mark-active (region-end) (point-max))))
  (when (equal command "")
    (error "No command given: use ! for last command."))
  (if (equal command "!")
      (bang bang-last-command beg end)
    (setq bang-last-command command)
    (let* ((command (replace-regexp-in-string
                   "\\\\?%"
                   #'(lambda (match)
                       (if (equal match "\\%")
                           "%"
                         (shell-quote-argument buffer-file-name)))
                   command))
         (first-char (elt command 0))
         (rest-command (substring command 1)))
    (cond
     ((eq first-char ?<)
      (kill-region beg end)
      (shell-command rest-command t shell-command-default-error-buffer)
      (exchange-point-and-mark))
     ((eq first-char ?>)
      (shell-command-on-region beg end rest-command nil nil 
                               shell-command-default-error-buffer t)
      (with-current-buffer "*Shell Command Output*"
        (kill-ring-save (point-min) (point-max))))
     ((eq first-char ?|)
      (shell-command-on-region beg end rest-command t t
                               shell-command-default-error-buffer t))
     ((eq first-char ?!)
      (shell-command rest-command nil shell-command-default-error-buffer)
      (with-current-buffer "*Shell Command Output*"
        (kill-ring-save (point-min) (point-max))))
     (t
      (shell-command command nil shell-command-default-error-buffer)
      (with-current-buffer "*Shell Command Output*"
        (kill-ring-save (point-min) (point-max))))))))

(chris2-define-key "M-!" 'bang)
(chris2-define-key "<f5>" 'bang)

;; copying lines and incrementing
;; 23oct2018  +leah+
(defun leah2-next-day (date)
  (format-time-string "%Y-%m-%d" 
		      (time-add (date-to-time (concat date " 00:00"))
				(days-to-time 1))))

(defun leah2-smart-increment (str)
  (replace-regexp-in-string
   "\\([0-9][0-9][0-9][0-9]-[0-9][0-9]-[0-9][0-9]\\|[0-9]+\\)\\(.*\\)"
   #'(lambda (str) (concat (if (cl-search "-" (match-string 1 str))
			       (leah2-next-day (match-string 1 str))
			     (number-to-string 
			      (1+(string-to-number (match-string 1 str)))))
			   (match-string 2 str)))
   str))

(defun leah2-copy-above-increment ()
  (interactive)
  (let ((line (save-excursion
		(forward-line -1)
		(thing-at-point 'line))))
    (move-beginning-of-line 1)
    (insert (leah2-smart-increment line))))

(chris2-define-key "M-j" 'leah2-copy-above-increment)

;;; F1-F20 keys

;; Make F6 like `buffer-menu'
;; Make S-F6 run dired in `~'.
;; 19jan2002  +chris+
;; 07feb2008  +chris+
(chris2-define-key "<f6>" 'buffer-menu)
(chris2-define-key "<S-f6>" #'(lambda () (interactive) (dired "~")))

;; Make F7 run `query-replace-regex'.
;; Make S-F7 run `query-replace'.
;; 19jan2002  +chris+
(chris2-define-key "<f7>" 'query-replace-regexp)
(chris2-define-key "<S-f7>" 'query-replace)

;; Make F9 run `compile'
;; 19jan2002  +chris+
(chris2-define-key "<f9>" 'compile)

;; Make M-p insert my timestamp (like `01apr1984  +chris+').
;; 27dec2001  +chris+
;; 05jan2006  +chris+
;; 04mar2010  +chris+
;; 05nov2017  +leah+  hardcode name
(defun chris2-insert-timestamp ()
  (interactive)
  (insert " " (downcase
               (format-time-string "%d%b%Y" (current-time)))
          "  +leah+"))
(global-set-key (kbd "M-p") 'chris2-insert-timestamp)

(defun insert-diary-timestamp ()
  (interactive)
  (shell-command "LANG=de_DE.UTF-8 date +'%F %A München'" t)
  (move-end-of-line 1)
  (insert "\n\n"))

;; chmod +x
;; 20mar2014  +chris+
(defun chmod+x (prefix)
  (interactive "p")
  (shell-command (concat "chmod "
                         (if (= prefix 1) "+x " "-x ")
                         (shell-quote-argument (buffer-file-name)))))

;; Make F12 work like `M-x goto-line'.
;; Delete is now where F12 was... sigh.
;; 27dec2001  +chris+
;; 28feb2010  +chris+
(chris2-define-key "<f12>" 'goto-line)
(chris2-define-key "<delete>" 'goto-line)

;; vi-like ~ case toggling
;; 09dec2006  +chris+
(defun chris2-toggle-case ()
  (interactive)
  (let ((char (following-char)))
    (if (eq char (upcase char))
        (insert-char (downcase char) 1 t)
      (insert-char (upcase char) 1 t)))
  (delete-char 1 nil)
  (backward-char))
(chris2-define-key "M-#" 'chris2-toggle-case)

;; Make M-z zap-up-to-char like Emacs 18.
;; 27jul2014  +chris+
(require-soft 'misc
  (chris2-define-key "M-z" 'zap-up-to-char))

;; For american keyboards
(chris2-define-key "C-?" 'undo)

;; Dired tweaks
;; 28jan2008  +chris+
(require-soft 'dired-x
  (add-hook 'dired-mode-hook 'dired-extra-startup)
  (setq dired-isearch-filenames t))
(require-soft 'ls-lisp
  (setq ls-lisp-dirs-first t)
  (setq ls-lisp-use-insert-directory-program nil))
(require-soft 'dired-single
  (define-key dired-mode-map (kbd "^")
    (lambda () (interactive) (joc-dired-single-buffer ".."))))
(setq dired-listing-switches "-l")
;; . to toggle dotfiles
(define-key dired-mode-map "."
  (lambda ()
    (interactive)
    (dired-sort-other
     (if (equal dired-actual-switches "-l") "-al" "-l"))))

;; 04mar2013  +chris+
(defun prefix-suffix-lines (beg end prefix suffix)
  "Prefix and suffix all non-empty lines in region with given strings"
  (interactive "r\nMPrefix: \nMSuffix: ")
  (save-excursion
    (save-restriction
      (narrow-to-region (progn (goto-char beg) (line-beginning-position))
                        (progn (goto-char end) (line-end-position)))
      (goto-char (point-min))
      (while (not (eobp))
        (back-to-indentation)
        (when (not (looking-at "$"))
          (insert-string prefix)
          (end-of-line)
          (skip-syntax-backward " ")
          (insert-string suffix))
        (end-of-line)
        (forward-line)))))

;;; Mouse bindings

(defadvice find-file-at-point (around goto-line compile activate)
  (let ((line (and (looking-at ".*:\\([0-9]+\\)")
                   (string-to-number (match-string 1)))))
    ad-do-it
    (when line
      (goto-char (point-min))
      (forward-line (1- line)))))

(defun ffap-at-mouse-and-point-or-menu (e)
   (interactive "e")
   (mouse-set-point e)   ; else above advice looks at wrong point
   (or (ffap-at-mouse e)
       menu-bar-mode
       (menu-bar-open)))

;; 11sep2012  +chris+
(chris2-define-key "<mouse-3>" 'ffap-at-mouse-and-point-or-menu)

;;; Font lock

;; Nah.
(global-font-lock-mode 0)

;; font-lock for diff-mode
;; 04feb2008  +chris+
(add-hook 'diff-mode-hook 'turn-on-font-lock)

;; and for dired
(add-hook 'dired-mode-hook 'turn-on-font-lock)

;; Disable Info fontification.
;; 07apr2004  +chris+
;; 20jul2014  +chris+
;; 28oct2014  +chris+
(setq Info-fontify-maximum-menu-size nil
      Info-fontify-visited-nodes nil)

;; Disable shr colors for HTML mail
;; 28oct2014  +chris+
;; 28may2018  +leah+
(setq shr-use-colors nil
      shr-use-fonts nil)

;; Disable keyword matching highlighting
;; 30apr2015  +chris+
;;;;(defadvice smie-setup (after chris2-disable-smie-blinking activate)
;;;;  (setq-local smie-closer-alist nil))

;;; Startup

;; For emacsclient
;; 31may2008  +chris+
;; 14feb2010  +chris+
;; 20jul2014  +chris+
;; 13oct2014  +chris+
(require-soft 'server
  (unless (server-running-p)
    (server-start)
    (require-soft 'elscreen
      (elscreen-create)
      (find-file "~/Notes")
      (elscreen-create)
      (find-file "~/prj/iheart/iheart")
      (elscreen-create)
      (find-file "~/prj/read/books")
      (elscreen-goto 1))))

;;; It follows: customization.

;; End of file ".emacs".
(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 nil :stipple nil :background "grey20" :foreground "grey90" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :height 98 :width semi-condensed :foundry "misc" :family "fixed"))))
 '(Info-quoted ((t nil)))
 '(comint-highlight-prompt ((t (:foreground "gray90"))))
 '(completions-first-difference ((t nil)))
 '(cursor ((t (:background "green"))))
 '(elscreen-tab-background-face ((((type x w32 mac) (class color)) (:background "Gray20"))))
 '(elscreen-tab-control-face ((((type x w32 mac) (class color)) (:background "grey20" :foreground "grey90"))))
 '(elscreen-tab-current-screen-face ((((class color)) (:background "grey40" :foreground "grey90"))))
 '(elscreen-tab-other-screen-face ((((type x w32 mac) (class color)) (:background "Gray20" :foreground "Gray90"))))
 '(font-lock-keyword-face ((((class color) (background dark)) (:foreground "dodger blue"))))
 '(header-line ((t (:inherit mode-line :background "grey40" :foreground "white"))))
 '(isearch ((nil (:foreground "dodgerblue" :weight bold))))
 '(lazy-highlight ((((type tty pc) (class color)) (:foreground "dodger-blue" :weight extra-light))))
 '(link ((t (:underline t))))
 '(magit-item-highlight ((t (:inherit highlight))))
 '(menu ((t (:height 98 :width semi-condensed :foundry "misc" :family "fixed"))))
 '(minibuffer-prompt ((t (:foreground "grey90"))))
 '(mouse ((t (:background "yellow"))))
 '(org-level-2 ((t (:inherit org-tree-slide-heading-level-2-init))))
 '(org-level-3 ((t (:inherit org-tree-slide-heading-level-3-init))))
 '(region ((t (:foreground "red" :weight bold))))
 '(scroll-bar ((t (:stipple nil :background "grey20" :foreground "grey80"))))
 '(show-paren-match ((((class color)) (:foreground "green"))))
 '(show-paren-mismatch ((((class color)) (:foreground "red"))))
 '(tool-bar ((((type x w32 mac) (class color)) (:box (:line-width 1 :style released-button)))))
 '(variable-pitch ((t (:family "cure.de"))))
 '(viper-minibuffer-emacs ((((class color)) nil)))
 '(viper-replace-overlay ((((class color)) nil)))
 '(viper-search ((((class color)) (:foreground "dodgerblue" :weight bold)))))

(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.
 '(Info-use-header-line nil)
 '(TeX-PDF-mode t)
 '(add-log-mailing-address "chneukirchen@gmail.com")
 '(auto-image-file-mode t)
 '(bibtex-align-at-equal-sign t)
 '(bibtex-dialect (quote biblatex))
 '(bibtex-entry-format
   (quote
    (opts-or-alts required-fields numerical-fields page-dashes whitespace inherit-booktitle realign last-comma delimiters unify-case braces strings sort-fields)))
 '(blink-cursor-mode nil)
 '(c-default-style
   (quote
    ((java-mode . "java")
     (awk-mode . "awk")
     (other . "openbsd"))))
 '(canlock-password nil)
 '(confirm-kill-emacs (quote yes-or-no-p))
 '(current-language-environment "UTF-8")
 '(default-frame-alist
    (quote
     ((mouse-color . "yellow")
      (cursor-color . "green")
      (foreground-color . "grey90")
      (background-color . "grey20")
      (menu-bar-lines . 1)
      (right-fringe)
      (left-fringe)
      (width . 81)
      (height . 56))))
 '(diff-switches "-urN")
 '(dired-auto-revert-buffer t)
 '(display-time-24hr-format t)
 '(display-time-mode t)
 '(electric-indent-mode nil)
 '(elscreen-display-screen-number nil)
 '(elscreen-tab-display-kill-screen nil)
 '(erc-modules
   (quote
    (autojoin button completion fill irccontrols log match menu netsplit noncommands readonly ring scrolltobottom stamp track)))
 '(erc-nick "chris2")
 '(erc-nick-uniquifier "_")
 '(erc-send-whitespace-lines t)
 '(erc-server "irc.freenode.net")
 '(erc-user-full-name "Leah Neukirchen")
 '(erc-warn-about-blank-lines t)
 '(focus-follows-mouse t)
 '(git-commit-summary-max-length 72)
 '(gnus-article-browse-delete-temp t)
 '(gnus-header-face-alist
   (quote
    (("From" nil gnus-header-from)
     ("X-Original-From" nil gnus-header-from)
     ("Subject" nil gnus-header-subject)
     ("Newsgroups:.*," nil gnus-header-newsgroups)
     ("" gnus-header-name gnus-header-content))))
 '(gnus-sorted-header-list
   (quote
    ("^From:" "^X-Original-From:" "^Subject:" "^Summary:" "^Keywords:" "^Newsgroups:" "^Followup-To:" "^To:" "^Cc:" "^Date:" "^Organization:")))
 '(gnus-treat-display-smileys nil)
 '(gnus-treat-display-x-face nil)
 '(gnus-visible-headers
   (quote
    ("^From:" "^X-Original-From:" "^Newsgroups:" "^Subject:" "^Date:" "^Followup-To:" "^Reply-To:" "^Organization:" "^Summary:" "^Keywords:" "^To:" "^[BGF]?Cc:" "^Posted-To:" "^Mail-Copies-To:" "^Mail-Followup-To:" "^Apparently-To:" "^Gnus-Warning:" "^Resent-From:" "^X-Sent:" "^X-Mail-Count:" "^Archived-At:" "^Message-Id:")))
 '(haskell-process-auto-import-loaded-modules t)
 '(haskell-process-log t)
 '(haskell-process-suggest-remove-import-lines t)
 '(imaxima-equation-color "white")
 '(imaxima-fnt-size "normalsize")
 '(imaxima-latex-preamble "\\usepackage{color}")
 '(imaxima-pt-size 12)
 '(imaxima-scale-factor 1.5)
 '(imaxima-use-maxima-mode-flag t)
 '(inferior-lisp-program "sbcl" t)
 '(inhibit-startup-screen t)
 '(isearch-lazy-highlight nil)
 '(js-indent-level 2)
 '(js2-mirror-mode nil)
 '(kill-read-only-ok t)
 '(kill-whole-line t)
 '(line-move-visual nil)
 '(magit-auto-revert-mode nil)
 '(magit-diff-auto-show (quote (log-oneline log-select blame-follow)))
 '(magit-push-always-verify nil)
 '(message-insert-canlock nil)
 '(minibuffer-prompt-properties (quote (read-only t point-entered minibuffer-avoid-prompt)))
 '(mm-text-html-renderer (quote shr))
 '(mouse-drag-copy-region t)
 '(mouse-yank-at-point t)
 '(nnimap-authinfo-file "~/.netrc")
 '(nntp-authinfo-file "~/.netrc")
 '(org-agenda-files nil)
 '(org-startup-with-deadline-check nil)
 '(package-selected-packages
   (quote
    (ws-butler xref-js2 intero lean-mode lua-mode cider cider-decompile clojure-mode inf-clojure evil tuareg slime rust-mode projectile nodejs-repl narrowed-page-navigation magit-gh-pulls js2-mode iflipb haskell-mode goto-chg go-mode gnu-apl-mode git-timemachine elscreen dyalog-mode clean-aindent-mode browse-kill-ring bbdb auctex)))
 '(proof-three-window-enable nil)
 '(ps-paper-type (quote a4))
 '(ps-print-color-p (quote black-white))
 '(query-replace-lazy-highlight nil)
 '(recentf-max-saved-items 100)
 '(recentf-mode t)
 '(recentf-save-file "~/.emacs.d/recentf.txt")
 '(safe-local-variable-values (quote ((encoding . utf-8) (c-indentation-style . bsd))))
 '(scroll-error-top-bottom t)
 '(search-whitespace-regexp "[ 	
]+")
 '(select-active-regions nil)
 '(select-enable-clipboard nil)
 '(select-enable-primary t)
 '(send-mail-function (quote sendmail-send-it))
 '(shift-select-mode nil)
 '(show-paren-mode t)
 '(speedbar-indentation-width 2)
 '(speedbar-supported-extension-expressions
   (quote
    (".ls" ".mly" ".mll" ".mli" ".ml" ".bnf" ".[ch]\\(\\+\\+\\|pp\\|c\\|h\\|xx\\)?" ".tex\\(i\\(nfo\\)?\\)?" ".el" ".emacs" ".l" ".lsp" ".p" ".java" ".f\\(90\\|77\\|or\\)?" ".ada" ".p[lm]" ".tcl" ".m" ".scm" ".pm" ".py" ".s?html" ".rb" ".xh?ml" "[Mm]akefile\\(\\.in\\)?" ".rhtml" ".rjs" ".entry")))
 '(temp-buffer-resize-mode t)
 '(tool-bar-mode nil)
 '(transient-mark-mode nil)
 '(tuareg-match-clause-indent 0)
 '(user-mail-address "leah@vuxu.org")
 '(vc-darcs-mail-address "Leah Neukirchen <chneukirchen@gmail.com>")
 '(vc-follow-symlinks nil)
 '(vc-make-backup-files t)
 '(visible-bell t)
 '(w3m-default-display-inline-images t)
 '(warning-suppress-types (quote ((initialization)))))