Make it work for ... $work

1 files changed, 90 insertions, 1 deletions

@@ -135,6 +135,26 @@
   :config
   (fringe-mode '(nil . 0)))
 
+(use-package flyspell
+  :hook org-mode-hook)
+
+(use-package browse-url
+  :preface
+  (defcustom +browse-url-other-safe-browser-functions nil
+    "Other safe browser functions."
+    :type '(repeat function))
+  (defun +browse-url-browser-function-safe-p (f)
+    "Return t if F is a safe browser function."
+    (memq f (append +browse-url-other-safe-browser-functions
+                    (mapcar (lambda (i)
+                              (plist-get (cdr i) :value))
+                            (seq-filter (lambda (i)
+                                          (eq (car i) 'function-item))
+                                        (cdr (get 'browse-url-browser-function
+                                                  'custom-type)))))))
+  :config
+  (put 'browse-url-browser-function 'safe-local-variable
+       '+browse-url-browser-function-safe-p))
 
 (use-package dired
   :bind (("C-x C-j" . dired-jump)
@@ -192,7 +212,30 @@
 
 (use-package titlecase
   :load-path "~/src/emacs/titlecase.el/"
-  :after scule
+  :preface
+  (defun +titlecase-sentence-style-dwim (&optional arg)
+    "Titlecase a sentence.
+With prefix ARG, toggle the value of
+`titlecase-downcase-sentences' before sentence-casing."
+    (interactive "P")
+    (let ((titlecase-downcase-sentences (if arg (not titlecase-downcase-sentences)
+                                          titlecase-downcase-sentences)))
+      (titlecase-dwim 'sentence)))
+  (defun +titlecase-org-headings ()
+    (interactive)
+    (require 'org)
+    (save-excursion
+      (goto-char (point-min))
+      ;; See also `org-map-tree'.  I'm not using that function because I want to
+      ;; skip the first headline.  A better solution would be to patch
+      ;; `titlecase-line' to ignore org-mode metadata (TODO cookies, tags, etc).
+      (let ((level (funcall outline-level))
+            (org-special-ctrl-a/e t))
+        (while (and (progn (outline-next-heading)
+                           (> (funcall outline-level) level))
+                    (not (eobp)))
+          (titlecase-region (progn (org-beginning-of-line) (point))
+                            (progn (org-end-of-line) (point)))))))
   :bind (:map scule-map
               ("M-t" . titlecase-dwim)))
 
@@ -583,3 +626,49 @@
   (setopt wiki-abbrev-file (etc/ "wiki-abbrevs"))
   (wiki-abbrev-insinuate))
 
+(use-package flyspell-correct
+  :ensure t
+  :preface
+  (defun +flyspell-correct-buffer (&optional prefix)
+    "Run `flyspell-correct-wrapper' on all misspelled words in the buffer.
+With PREFIX, prompt to change the current dictionary."
+    (interactive "P")
+    (flyspell-buffer)
+    (when prefix
+      (let ((current-prefix-arg nil))
+        (call-interactively #'ispell-change-dictionary)))
+    (flyspell-correct-move (point-min) :forward :rapid))
+  :after flyspell
+  :bind (:map flyspell-mode-map
+              ("C-;" . flyspell-correct-wrapper)
+              ("<f7>" . +flyspell-correct-buffer))
+  :config
+  (setq flyspell-correct--cr-key ";")
+  (keymap-unset flyspell-mode-map "C-," t)
+  (keymap-unset flyspell-mode-map "C-." t))
+
+(use-package dired-subtree
+  :ensure t
+  :after dired
+  :bind (:map dired-mode-map
+             (("TAB" . dired-subtree-cycle)
+              ("i" . dired-subtree-toggle))))
+
+(use-package dired-hide-dotfiles
+  ;; I could maybe use a more general package for this ... see
+  ;; https://emacs.grym.io/#orgbbda609
+  :ensure t
+  :bind (:map dired-mode-map
+              ("." . dired-hide-dotfiles-mode)))
+
+
+;;; Applications
+
+(use-package acdw-mail
+  :load-path "lisp/")
+
+(use-package acdw-org
+  :load-path "lisp/")
+
+(use-package _work
+  :load-path "~/Sync/emacs/private/")