emacs/.emacs.d/config/handwriting.el

@@ -1,14 +0,0 @@
-;; -*- lexical-binding: t; -*-
-
-;;;###autoload
-(defface handwriting
-  '((t :family "Jeremy Sans"))
-  "A face with handwritten font")
-
-;;;###autoload
-(defun handwrite ()
-  "Make the buffer look handwritten"
-  (interactive)
-  (buffer-face-set 'handwriting))
-
-(provide 'handwriting)

emacs/.emacs.d/config/init-buffers.el

@@ -12,37 +12,6 @@ Repeated invocations toggle between the two most recently open buffers."
   (interactive)
   (switch-to-buffer (other-buffer (current-buffer) 1)))
 
-(defun get-buffers-matching-mode (mode)
-  "Returns a list of buffers where their major-mode is equal to MODE"
-  (let ((buffer-mode-matches '()))
-    (dolist (buf (buffer-list))
-      (with-current-buffer buf
-        (if (eq mode major-mode)
-            (add-to-list 'buffer-mode-matches buf))))
-    buffer-mode-matches))
-
-(defun get-buffer-modes ()
-  "Returns a list of all major modes in currenctly open buffers."
-  (delete-dups
-   (cl-loop for buf in (buffer-list)
-            collect (with-current-buffer buf major-mode))))
-
-(defun multi-occur-in-mode (mode regexp)
-  "Show all lines matching REGEXP in buffers with this major mode."
-  (interactive (list (completing-read "List lines from buffers with mode: "
-                                      (get-buffer-modes)
-                                      nil
-                                      'confirm
-                                      nil
-                                      nil
-                                      major-mode)
-                     (read-string "List lines matching regexp: ")))
-  (multi-occur (get-buffers-matching-mode mode) regexp))
-
-(defun occur-all (regexp)
-  "Show all lines matching REGEXP in all open buffers."
-  (interactive "MList lines matching regexp: ")
-  (multi-occur-in-matching-buffers ".*" regexp t))
 
 (leader-def-key
   "TAB" #'switch-to-previous-buffer
@@ -51,8 +20,7 @@ Repeated invocations toggle between the two most recently open buffers."
   "bd" #'kill-buffer
   "bm" #'kill-other-buffers
   "br" #'rename-buffer
-  "bg" #'revert-buffer
+  "bg" #'revert-buffer)
-  "bo" #'occur-all)
 
 ;; A library that provides a hook called on switching buffers
 (use-package switch-buffer-functions

emacs/.emacs.d/config/init-editing.el

@@ -20,19 +20,6 @@
   (defun sp-wrap-single-quote ()
     (interactive)
     (sp-wrap-with-pair "'"))
-  (defun sp-after-equals-p (_id action _context)
-    (when (memq action '(insert navigate))
-      (sp--looking-back-p "=>" 2)))
-  ;; Enable ES6 arrow functions in web mode
-  (defun sp-after-equals-skip-p (ms mb _me)
-    (when (eq ms ">")
-      (save-excursion
-        (goto-char mb)
-        (sp--looking-back-p "=" 1))))
-
-  (sp-local-pair '(web-mode) "<" nil
-                 :unless '(:add sp-after-equals-p)
-                 :skip-match 'sp-after-equals-skip-p)
   :hook
   (prog-mode . smartparens-strict-mode)
   (eshell-mode . smartparens-strict-mode)

emacs/.emacs.d/config/init-email.el

@@ -65,6 +65,7 @@
                          "jeremydormitzer-lola-com"
                          (mu4e-message-field msg :path)))))
        :vars '((user-mail-address . "jeremydormitzer@lola.com")
+               (mu4e-compose-signature . "Best regards,  \nJeremy Dormitzer  \nLola.com")
                (message-signature-insert-empty-line . t)
                (mu4e-sent-folder . "/jeremydormitzer-lola-com/Sent")
                (mu4e-drafts-folder . "/jeremydormitzer-lola-com/Drafts")

emacs/.emacs.d/config/init-org.el

@@ -7,7 +7,6 @@
   (leader-def-key "o" '(nil :which-key "org"))
   :config
   (add-hook 'org-mode-hook #'auto-fill-mode)
-  (add-hook 'org-mode-hook (lambda () (require 'org-attach)))
   :custom
   (org-agenda-files `(,(expand-file-name "~/org/todo.org")
                       ,(expand-file-name "~/org/deft/unifydb.org")
@@ -37,16 +36,9 @@
   (org-agenda-span 'day)
   (org-agenda-todo-ignore-scheduled 'future)
   (org-agenda-tags-todo-honor-ignore-options t)
-  (org-file-apps '(("log" . emacs)
-                   (auto-mode . emacs)
-                   (directory . emacs)
-                   ("\\.pdf\\'" . emacs)
-                   ("\\.mm\\'" . default)
-                   ("\\.x?html?\\'" . default)))
   :general
   (leader-map "oa" #'org-agenda)
-  (leader-map "oc" #'org-capture)
+  (leader-map "oc" #'org-capture))
-  (normal org-mode-map "<return>" #'org-return))
 
 (use-package evil-org
   :after org

emacs/.emacs.d/config/init-pdf.el

@@ -1,9 +0,0 @@
-;; -*- lexical-binding: t; -*-
-
-(use-package pdf-tools
-  :mode (("\\.pdf\\'" . pdf-view-mode))
-  :config
-  (pdf-tools-install)
-  (evil-collection-pdf-setup))
-
-(provide 'init-pdf)

emacs/.emacs.d/config/init-ui.el

@@ -6,11 +6,6 @@
   (scroll-bar-mode -1)
   (tooltip-mode -1))
 
-(when (fboundp 'mac-auto-operator-composition-mode)
-  (setq mac-auto-operator-composition-characters
-        "!\"#$%&'()*+,-./:;<=>?@[\\]^_`{|}~abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ")
-  (mac-auto-operator-composition-mode))
-
 ;; Doom themes are the best themes!
 (use-package doom-themes)
 (use-package doom-modeline

emacs/.emacs.d/config/init-xml.el

@@ -15,7 +15,6 @@
 	(shell-command-on-region start end "xmllint --format -" nil t))
        (t (sgml-pretty-print start end)))))
   (general-def nxml-mode-map "C-M-\\" #'xml-pretty-print)
-  (add-hook 'nxml-mode-hook #'hs-minor-mode)
   (add-to-list 'hs-special-modes-alist
 	       '(nxml-mode
 	         "<!--\\|<[^/>]*[^/]>" ;; regexp for start block

emacs/.emacs.d/init.el

@@ -17,8 +17,6 @@
 (add-hook 'emacs-startup-hook #'server-start-if-not-running)
 
 ;; Bootstrap the straight.el package manager
-(setq straight-check-for-modifications '(check-on-save find-when-checking)
-      straight-cache-autoloads t)
 (defvar bootstrap-version)
 (let ((bootstrap-file
        (expand-file-name "straight/repos/straight.el/bootstrap.el"
@@ -104,13 +102,11 @@
 (require 'init-email)
 (require 'init-kubernetes)
 (require 'init-epub)
-(require 'init-pdf)
 (require 'init-homebrew)
 (require 'init-elfeed)
 (require 'init-1pass)
 (require 'init-wallabag)
 (require 'init-lola)
-(require 'handwriting)
 
 (when (file-exists-p custom-file)
   (load custom-file 'noerror 'nomessage))