Have some fun with my handwriting font

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

@@ -0,0 +1,14 @@
+;; -*- 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,6 +12,37 @@ 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
@@ -20,7 +51,8 @@ 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,6 +20,19 @@
   (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,7 +65,6 @@
                          "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,6 +7,7 @@
   (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")
@@ -36,9 +37,16 @@
   (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

@@ -0,0 +1,9 @@
+;; -*- 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,6 +6,11 @@
   (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,6 +15,7 @@
 	(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,6 +17,8 @@
 (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"
@@ -102,11 +104,13 @@
 (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))