From a45f24f3f520d25c7677e6eabd9965bdf5009eef Mon Sep 17 00:00:00 2001
From: Alan Pearce
Date: Sun, 17 Jun 2018 09:43:51 +0200
Subject: emacs: Discard more unused modes

---
 emacs/.emacs.d/main.el | 55 --------------------------------------------------
 1 file changed, 55 deletions(-)

diff --git a/emacs/.emacs.d/main.el b/emacs/.emacs.d/main.el
index 1ceadba2..4366abb4 100644
--- a/emacs/.emacs.d/main.el
+++ b/emacs/.emacs.d/main.el
@@ -875,27 +875,6 @@
 (put 'narrow-to-page   'disabled nil)
 (put 'narrow-to-region 'disabled nil)
 
-;;;;; ace-window
-
-;; I don’t often have many windows open at once, but when I do,
-;; =ace-window= is really nice to jump around them in the same way that
-;; =ace-jump= or =avy= work.
-(use-package ace-window
-  :bind (("s-s" . ace-window))
-  :config (progn
-            (setq aw-dispatch-always t
-                  aw-dispatch-alist '((?k aw-delete-window " Ace - Delete Window")
-                                      (?K aw-delete-window)
-                                      (?m aw-swap-window " Ace - Swap Window")
-                                      (?f aw-flip-window)
-                                      (?v aw-split-window-vert " Ace - Split Vert Window")
-                                      (?b aw-split-window-horz " Ace - Split Horz Window")
-                                      (?m delete-other-windows " Ace - Maximize Window")
-                                      (?l delete-other-windows)
-                                      (?, winner-undo)
-                                      (?. winner-redo))
-                  aw-keys '(?a ?r ?s ?t ?n ?e ?i ?o))))
-
 ;;;; Windows
 
 ;; Scrolling is tricky.  I use this setup to help me keep track of the
@@ -952,23 +931,6 @@
 
 ;;;; Sessions
 
-;;;;; Desktop
-;; Save my Emacs session and restore it on startup.
-
-(use-package desktop
-  :ensure nil
-  :config (progn
-            (setq desktop-dirname (expand-file-name "desktop/" user-emacs-directory)
-                  desktop-base-file-name "emacs.desktop"
-                  desktop-base-lock-name "lock"
-                  desktop-path (list desktop-dirname)
-                  desktop-save 'if-exists
-                  desktop-files-not-to-save "^$"
-                  desktop-load-locked-desktop nil)
-            (unless (file-directory-p desktop-dirname)
-              (make-directory desktop-dirname))
-            (desktop-save-mode 1)))
-
 ;;;;; winner
 
 ;; Undo, for window-based commands.
@@ -1150,18 +1112,6 @@ With two prefix arguments, write out the day and month name."
   :config (progn
             (setq dired-du-size-format t)))
 
-;;;;; Dired-narrow
-;; One can already use dired with wildcards to browse a filtered
-;; directory listing, but it opens a new buffer.  Dired-narrow is a
-;; slightly nicer interface: with a currently-open dired buffer, use =/=
-;; to start filtering, =RET= to complete the filter and =g= to refresh
-;; the buffer, removing the filter.
-
-(with-eval-after-load 'dired
-  (use-package dired-narrow
-    :bind (:map dired-mode-map
-                ("/" . dired-narrow))))
-
 ;;;; Documentation
 
 ;;;;; ehelp
@@ -1332,11 +1282,6 @@ With two prefix arguments, write out the day and month name."
 
 ;;;; Misc
 
-(defvar *init-file*
-  (file-truename user-init-file)
-  "Where the Emacs init file really is, passing through symlinks.")
-(set-register ?e `(file . ,*init-file*))
-
 (defun ap/remove-extra-cr ()
   "Remove extraneous CR codes from a file."
   (interactive)
-- 
cgit 1.4.1