Merge branch 'master' of github.com:alanpearce/dotfiles

3 files changed, 86 insertions, 199 deletions

diff --git a/tag-emacs/emacs.d/Cask b/tag-emacs/emacs.d/Cask
index ead4a523..096b8024 100644
--- a/tag-emacs/emacs.d/Cask
+++ b/tag-emacs/emacs.d/Cask
@@ -34,6 +34,7 @@
 (depends-on "dired-subtree")
 (depends-on "discover")
 (depends-on "discover-my-major")
+(depends-on "dockerfile-mode")
 (depends-on "dtrt-indent")
 (depends-on "editorconfig")
 (depends-on "elisp-slime-nav")
diff --git a/tag-emacs/emacs.d/elisp/ap-functions.el b/tag-emacs/emacs.d/elisp/ap-functions.el
deleted file mode 100644
index bdc7faef..00000000
--- a/tag-emacs/emacs.d/elisp/ap-functions.el
+++ /dev/null
@@ -1,47 +0,0 @@
-;;;###autoload
-(defun ap/remove-extra-cr ()
-  "Remove extraneous CR codes from a file"
-  (interactive)
-  (save-excursion
-    (goto-char (point-min))
-    (while (search-forward "
-" nil t)
-      (replace-match ""))))
-
-;;;###autoload
-(defun copy-rectangle (start end)
-  "Copy the region-rectangle."
-  (interactive "r")
-  (setq killed-rectangle (extract-rectangle start end)))
-
-;;;###autoload
-(defun eval-and-replace ()
-  "Replace the preceding sexp with its value."
-  (interactive)
-  (backward-kill-sexp)
-  (condition-case nil
-      (prin1 (eval (read (current-kill 0)))
-             (current-buffer))
-    (error (message "Invalid expression")
-           (insert (current-kill 0)))))
-
-;;;###autoload
-(defun shell-execute (to-current-buffer)
-  (interactive "P")
-  (let ((file-buffer (if (buffer-file-name)
-                         (file-name-nondirectory (buffer-file-name))
-                       ""))
-        (command (read-shell-command "Shell command: " nil nil nil)))
-    (shell-command (replace-regexp-in-string "%" file-buffer command) to-current-buffer)))
-
-;;;###autoload
-(defun narrow-to-region-indirect (start end)
-  "Restrict editing in this buffer to the current region, indirectly."
-  (interactive "r")
-  (deactivate-mark)
-  (let ((buf (clone-indirect-buffer nil nil)))
-    (with-current-buffer buf
-      (narrow-to-region start end))
-      (switch-to-buffer buf)))
-
-(provide 'ap-functions)
diff --git a/tag-emacs/emacs.d/init.org b/tag-emacs/emacs.d/init.org
index 793a454b..ee6bd9b6 100644
--- a/tag-emacs/emacs.d/init.org
+++ b/tag-emacs/emacs.d/init.org
@@ -29,14 +29,6 @@ the buffer to be empty.
 
 * Packaging
 
-I still use a couple of [[file:elisp/][elisp files]] that don’t appear to be in any package
-archives.
-#+BEGIN_SRC emacs-lisp
-(add-to-list 'load-path (expand-file-name "elisp/" user-emacs-directory))
-#+END_SRC
-
-** TODO Move [[file:elisp/ap-functions.el][=ap-functions=]] into this file and delete above
-
 ** Cask
 
 For most packages, I use [[https://github.com/cask/cask][cask]]
@@ -72,12 +64,24 @@ cask update
 ** Req-package
 
 #+BEGIN_SRC emacs-lisp
+  (let ((trustfile
+         (replace-regexp-in-string
+          "\\\\" "/"
+          (replace-regexp-in-string
+           "\n" ""
+           (shell-command-to-string "python -m certifi")))))
+    (setq tls-checktrust t
+          tls-program
+          (list
+           (format "gnutls-cli%s --x509cafile %s -p %%p %%h"
+                   (if (eq window-system 'w32) ".exe" "") trustfile)))
+    (setq gnutls-verify-error t)
+    (setq gnutls-trustfiles (list trustfile)))
   (eval-and-compile
-    (setq package-archives '(("gnu" . "http://elpa.gnu.org/packages/")
-                             ("marmalade" . "http://marmalade-repo.org/packages/")
-                             ("melpa" . "http://melpa.org/packages/")
-                             ("melpa-stable" . "http://stable.melpa.org/packages/")
-                             ("org" . "http://orgmode.org/elpa/")))
+    (setq package-archives '(("gnu" . "https://elpa.gnu.org/packages/")
+                             ("marmalade" . "https://marmalade-repo.org/packages/")
+                             ("melpa" . "https://melpa.org/packages/")
+                             ("melpa-stable" . "https://stable.melpa.org/packages/")))
     (package-initialize)
     (unless (package-installed-p 'req-package)
       (package-refresh-contents)
@@ -172,17 +176,6 @@ based upon some folder conventions I use.
                   projectile-completion-system 'ivy)))
 #+END_SRC
 
-** projector
-
-Project-based shell buffers sounds like a good idea, but for some
-reason I haven’t found a use for it.
-
-#+BEGIN_SRC emacs-lisp
-(req-package projector
-  :require projectile
-  :bind (("s-z" . projector-open-project-shell)))
-#+END_SRC
-
 ** perspective
 
 This package makes buffer-switching inside of projects make sense, by
@@ -338,7 +331,7 @@ because I manage those in my [[file:~/projects/dotfiles/tag-xresources/xresource
    ((eq window-system 'w32)
     (ap/set-fonts "Consolas" "Segoe UI" 10))
    ((eq system-type 'darwin)
-    (ap/set-fonts "Input Mono Narrow" "Input Sans Condensed" 12))))
+    (ap/set-fonts "Input Mono" "Input Sans Condensed" 13))))
 #+END_SRC
 
 Allow font-lock-mode to do background parsing.  I’m not really sure if
@@ -493,19 +486,6 @@ for similar things any more.
     :bind ("M-SPC" . shrink-whitespace))
 #+END_SRC
 
-** fasd
-
-Fasd is a nice shell plugin that remembers file and folder arguments,
-making it easy to re-visit them later.  This package hooks into that.
-I don’t seem to use it much though.
-
-#+BEGIN_SRC emacs-lisp
-(req-package fasd
-  :bind ("C-x C-/" . fasd-find-file)
-  :init (progn
-          (global-fasd-mode 1)))
-#+END_SRC
-
 ** recentf
 
 I only use this occasionally, but it’s nice for files outside of projects.
@@ -534,7 +514,7 @@ it off to see if I notice it.
 
 #+BEGIN_SRC emacs-lisp
 (req-package saveplace
-  :config (progn (setq-default save-place t)
+  :config (progn (setq-default save-place nil)
                  (setq save-place-file (expand-file-name ".saveplace" user-emacs-directory))))
 #+END_SRC
 
@@ -736,19 +716,6 @@ Enable it without prompting
 (put 'narrow-to-region 'disabled nil)
 #+END_SRC
 
-** Fancy Narrow
-
-Sometimes I like to be able to focus on one block of code at a time.
-Normally narrowing hides everything else completely, which I don’t
-like.  This package just makes everything else lower-contrast.
-#+BEGIN_SRC emacs-lisp
-  (req-package fancy-narrow
-    :defer 15
-    :diminish fancy-narrow-mode
-    :config (fancy-narrow-mode 1))
-#+END_SRC
-
-
 ** ace-window
 
 I don’t often have many windows open at once, but when I do,
@@ -804,20 +771,6 @@ A dedicated window always keeps the same buffer in view.
      "normal")))
 #+END_SRC
 
-** popwin
-
-This works really nicely wiht helm.  I should think about whether it
-might be useful elsewhere
-
-#+BEGIN_SRC emacs-lisp
-(req-package popwin
-  :if (and (>= emacs-major-version 24)
-           (>  emacs-minor-version 3))
-  :config (progn
-            (popwin-mode 1)
-            (add-to-list 'popwin:special-display-config '("^*helm.+*$" :regexp t :height 20))))
-#+END_SRC
-
 ** winner
 
 Undo, for window-based commands.
@@ -882,7 +835,7 @@ seems to work perfectly well for me.
   :bind (("C-<tab>" . company-complete))
   :init (progn
           (add-hook 'prog-mode-hook #'company-mode)
-          (setq company-backends '(company-tern (php-extras-company company-elisp company-bbdb company-nxml company-css company-eclim company-semantic company-clang company-xcode company-cmake company-capf company-gtags company-dabbrev-code company-etags company-keywords)
+          (setq company-backends '(company-tern (company-elisp company-bbdb company-nxml company-css company-eclim company-semantic company-clang company-xcode company-cmake company-capf company-gtags company-dabbrev-code company-etags company-keywords)
                                                 company-oddmuse company-files company-dabbrev)
                 company-idle-delay .3
                 company-begin-commands '(self-insert-command)
@@ -1147,25 +1100,40 @@ Option/alt, then Control.
     "Where the emacs init file really is, passing through symlinks.")
   (set-register ?e `(file . ,*init-file*))
 
-  (req-package whitespace
-    :defer t
-    :config (setq whitespace-style
-                  '(face
-                    space
-                    tabs
-                    trailing
-                    newline
-                    empty
-                    tab-mark
-                    space-before-tab
-                    indentation
-                    indentation::space
-                    indentation::tabs)))
+  (defun ap/remove-extra-cr ()
+    "Remove extraneous CR codes from a file"
+    (interactive)
+    (save-excursion
+      (goto-char (point-min))
+      (while (search-forward "
+  " nil t)
+        (replace-match ""))))
+
+  (req-package rect
+    :init (defun copy-rectangle (start end)
+            "Copy the region-rectangle."
+            (interactive "r")
+            (setq killed-rectangle (extract-rectangle start end))))
+
+  (defun shell-execute (to-current-buffer)
+    (interactive "P")
+    (let ((file-buffer (if (buffer-file-name)
+                           (file-name-nondirectory (buffer-file-name))
+                         ""))
+          (command (read-shell-command "Shell command: " nil nil nil)))
+      (shell-command (replace-regexp-in-string "%" file-buffer command) to-current-buffer)))
+
+  (defun narrow-to-region-indirect (start end)
+    "Restrict editing in this buffer to the current region, indirectly."
+    (interactive "r")
+    (deactivate-mark)
+    (let ((buf (clone-indirect-buffer nil nil)))
+      (with-current-buffer buf
+        (narrow-to-region start end))
+      (switch-to-buffer buf)))
 
-  (req-package ap-functions
-    :commands (ap/remove-extra-cr)
-    :bind (("C-x r M-w" . copy-rectangle)
-           ("M-!" . shell-execute)))
+  (bind-key* "M-!" #'shell-execute)
+  (bind-key* "C-x r M-w" #'copy-rectangle)
 #+END_SRC
 
 #+END_SRC
@@ -1194,22 +1162,6 @@ Occasionally, I exit emacs.  I should probably reduce the frequency of this.
   (defalias 'exit-emacs #'save-buffers-kill-emacs))
 #+END_SRC
 
-** helm
-
-I like to use =helm= for some completions, especially when there are
-lots of candidates.
-
-#+BEGIN_SRC emacs-lisp
-  (req-package helm-config
-    :demand t
-    :ensure helm
-    :config (progn
-              (setq helm-idle-delay .1
-                    helm-input-idle-delay 0)
-              (when (fboundp #'helm-adaptive-mode)
-                (helm-adaptive-mode 1))))
-#+END_SRC
-
 ** swiper/ivy
 
 Ivy is the new kid on the completion block.  I wonder if it can
@@ -1437,6 +1389,9 @@ configuration files.
   (req-package haskell-mode
     :mode (("\\.hs\\'" . haskell-mode)))
 
+  (req-package dockerfile-mode
+    :mode (("Dockerfile\\'" . dockerfile-mode)))
+
   (req-package nix-mode
     :mode (("\\.nix\\'" . nix-mode))
     :config (progn
@@ -1529,6 +1484,7 @@ Org is wünderbar.
     :init (setq org-replace-disputed-keys t)
     :config (progn
               (setq org-directory "~/Sync/org"
+                    org-ellipsis "…"
                     org-agenda-files `(,(concat org-directory "/agenda"))
 
                     org-default-notes-file (concat org-directory "/notes")
@@ -1537,7 +1493,8 @@ Org is wünderbar.
                     org-reverse-note-order t
 
                     org-modules '(org-habit
-                                  org-checklist)
+                                  org-checklist
+                                  org-protocol)
 
                     ;; Add time done to ‘done’ tasks
                     org-log-done 'time
@@ -1564,6 +1521,7 @@ Org is wünderbar.
                     org-log-into-drawer "LOGBOOK")
               (set-register ?o `(file . ,(expand-file-name "organiser.org" org-directory)))
               (add-hook 'org-mode-hook #'turn-on-auto-fill)
+              (org-load-modules-maybe t)
               (defadvice org-clock-in (after wicked activate)
                 "Mark STARTED when clocked in"
                 (save-excursion
@@ -1655,21 +1613,6 @@ I can use this to keep a journal.  I should use it.
 #+END_SRC
 
 * Programming
-** cedet
-
-*** TODO Setup cedet and see whether it’s useful
-
-#+BEGIN_SRC emacs-lisp
-(req-package cedet
-  :disabled t
-  :config (progn
-            (semantic-load-enable-code-helpers)
-            (global-semantic-idle-completions-mode t)
-            (global-semantic-highlight-func-mode t)
-            (global-semantic-show-unmatched-syntax-mode t)
-            (global-semantic-decoration-mode t)))
-#+END_SRC
-
 ** flycheck
 
 On-the-fly error checking in programming modes?  Yes please.
@@ -1901,7 +1844,7 @@ quite a few other modes are derived from it.
 
 #+BEGIN_SRC emacs-lisp
 (req-package cc-mode
-  :defer t
+  :defer 5
   :init (progn
           (add-hook 'c-mode-common-hook #'electric-indent-mode))
   :config (progn
@@ -1923,19 +1866,6 @@ really seem to use it.
 
 ** Web development
 
-*** skewer-mode
-
-I don’t use this as often as I probably should.  I should figure out
-why that is.
-#+BEGIN_SRC emacs-lisp
-(req-package skewer-mode
-  :defer t
-  :init (progn
-          (add-hook 'js2-mode-hook #'skewer-mode)
-          (add-hook 'html-mode-hook #'skewer-html-mode)
-          (add-hook 'css-mode-hook #'skewer-css-mode)))
-#+END_SRC
-
 *** js2-mode
 
 This mode is really great for editing Javascript.  It turns code into
@@ -1961,6 +1891,13 @@ it though
   (add-to-list 'auto-mode-alist '("composer\\.lock" . js-mode))
 #+END_SRC
 
+*** coffee-mode
+
+#+BEGIN_SRC emacs-lisp
+  (req-package coffee-mode
+    :mode ("\\.coffee\\'" . coffee-mode))
+#+END_SRC
+
 *** tern
 
 Tern understands javascript.  It adds really clever documented
@@ -2158,36 +2095,30 @@ nice, when I remember to use it.
   (req-package esh-buf-stack
     :require eshell
     :config (progn
-              (bind-key "M-q" #'eshell-push-command eshell-mode-map))
-    :init (progn
-            (setup-eshell-buf-stack)))
+              (setup-eshell-buf-stack)
+              (add-hook 'eshell-load-hook (lambda ()
+                                            (bind-key "M-q" #'eshell-push-command eshell-mode-map)))))
 #+END_SRC
 
 *** Shells
 
 #+BEGIN_SRC emacs-lisp
-(req-package shell
-  :defer t
-  :config (define-key shell-mode-map
-            (kbd "C-d") 'comint-delchar-or-eof-or-kill-buffer))
-
-(req-package comint
-  :defer t
-  :config (bind-key "C-c C-l" #'helm-comint-input-ring comint-mode-map))
+  (req-package shell
+    :defer t
+    :config (define-key shell-mode-map
+              (kbd "C-d") 'comint-delchar-or-eof-or-kill-buffer))
 
-(req-package multi-term
-  :if (not (eq system-type 'windows-nt))
-  :bind ("C-`" . multi-term-dedicated-toggle))
+  (req-package comint
+    :defer t
+    :config (bind-key "C-c C-l" #'helm-comint-input-ring comint-mode-map))
 
-(defun comint-delchar-or-eof-or-kill-buffer (arg)
-  (interactive "p")
-  (if (null (get-buffer-process (current-buffer)))
-      (kill-buffer)
-    (comint-delchar-or-maybe-eof arg)))
+  (defun comint-delchar-or-eof-or-kill-buffer (arg)
+    (interactive "p")
+    (if (null (get-buffer-process (current-buffer)))
+        (kill-buffer)
+      (comint-delchar-or-maybe-eof arg)))
 #+END_SRC
 
-*** TODO Do I need multi-term?
-
 * Text editing
 
 Emacs has an editor within.
@@ -2519,7 +2450,9 @@ the =org=-document after changes.
     "If the current buffer is 'init.org' the code-blocks are
       tangled, and the tangled file is compiled."
 
+    (interactive)
     (when (string-suffix-p "init.org" (buffer-file-name))
+      (message "Tangling init")
       (async-start
        `(lambda ()
           ;; Avoid running hooks when tangling.