summary refs log tree commit diff stats
path: root/init.el
diff options
context:
space:
mode:
Diffstat (limited to 'init.el')
-rw-r--r--init.el32
1 files changed, 22 insertions, 10 deletions
diff --git a/init.el b/init.el index d1e663a..a69081f 100644 --- a/init.el +++ b/init.el
@@ -22,6 +22,7 @@
22 (require (or (car-safe feature) feature) (cdr-safe feature) :noerror))) 22 (require (or (car-safe feature) feature) (cdr-safe feature) :noerror)))
23 23
24(setup (:require +casing) 24(setup (:require +casing)
25 (:global "M-u" #'universal-argument)
25 (+casing-mode +1)) 26 (+casing-mode +1))
26 27
27(setup (:require +emacs) 28(setup (:require +emacs)
@@ -444,6 +445,8 @@
444 445
445(setup ispell 446(setup ispell
446 (:also-load +ispell) 447 (:also-load +ispell)
448 (:option ispell-program-name (or (executable-find "ispell")
449 (executable-find "aspell")))
447 (put 'ispell-buffer-session-localwords 450 (put 'ispell-buffer-session-localwords
448 'safe-local-variable #'+ispell-safe-local-p) 451 'safe-local-variable #'+ispell-safe-local-p)
449 (add-hook 'user-save-hook #'+ispell-move-buffer-words-to-dir-locals-hook)) 452 (add-hook 'user-save-hook #'+ispell-move-buffer-words-to-dir-locals-hook))
@@ -614,7 +617,8 @@
614 "`" #'+org-insert-tilde 617 "`" #'+org-insert-tilde
615 "~" #'+org-insert-backtick) 618 "~" #'+org-insert-backtick)
616 (:global [f8] #'org-clock-in 619 (:global [f8] #'org-clock-in
617 [f9] #'org-clock-out) 620 [f9] #'org-clock-out
621 "C-c l" #'org-store-link)
618 (:hook #'variable-pitch-mode 622 (:hook #'variable-pitch-mode
619 #'turn-off-auto-fill 623 #'turn-off-auto-fill
620 #'org-indent-mode) 624 #'org-indent-mode)
@@ -782,8 +786,12 @@
782 (add-hook 'kill-buffer-query-functions #'+scratch-immortal)) 786 (add-hook 'kill-buffer-query-functions #'+scratch-immortal))
783 787
784(setup shr 788(setup shr
789 (:also-load +shr)
785 (:option shr-width (- fill-column 5) ; pad out for wide letters 790 (:option shr-width (- fill-column 5) ; pad out for wide letters
786 shr-use-fonts t)) 791 shr-use-fonts t)
792 (dolist (mode '(eww-mode
793 elfeed-show-mode))
794 (add-hook (intern (format "%s-hook" mode)) #'+shr-heading-setup-imenu)))
787 795
788(setup tab-bar 796(setup tab-bar
789 (:require +tab-bar) 797 (:require +tab-bar)
@@ -2166,6 +2174,7 @@ See also `crux-reopen-as-root-mode'."
2166 (:option trashed-action-confirmer #'y-or-n-p)) 2174 (:option trashed-action-confirmer #'y-or-n-p))
2167 2175
2168(setup (:straight undo-fu) 2176(setup (:straight undo-fu)
2177 (:option undo-fu-allow-undo-in-region t)
2169 (:global "C-/" #'undo-fu-only-undo 2178 (:global "C-/" #'undo-fu-only-undo
2170 "C-?" #'undo-fu-only-redo)) 2179 "C-?" #'undo-fu-only-redo))
2171 2180
@@ -2173,9 +2182,19 @@ See also `crux-reopen-as-root-mode'."
2173 (:option undo-fu-session-incompatible-files '("/COMMIT_EDITMSG\\'" 2182 (:option undo-fu-session-incompatible-files '("/COMMIT_EDITMSG\\'"
2174 "/git-rebase-todo\\'") 2183 "/git-rebase-todo\\'")
2175 undo-fu-session-directory (.etc "undo/" t) 2184 undo-fu-session-directory (.etc "undo/" t)
2176 undo-fu-session-compression (executable-find "gzip")) 2185 undo-fu-session-compression (cond
2186 ((executable-find "gzip") 'gz)
2187 ((executable-find "bzip2") 'bz2)
2188 ((executable-find "xz") 'xz)
2189 (t nil)))
2177 (global-undo-fu-session-mode +1)) 2190 (global-undo-fu-session-mode +1))
2178 2191
2192(setup (:straight (undo-hl
2193 :host github
2194 :repo "casouri/undo-hl"))
2195 (:require)
2196 (:hook-into text-mode prog-mode))
2197
2179(setup (:straight unfill)) 2198(setup (:straight unfill))
2180 2199
2181(setup (:straight valign) 2200(setup (:straight valign)
@@ -2250,13 +2269,6 @@ See also `crux-reopen-as-root-mode'."
2250;; (advice-add 'counsel-yank-pop-action :around 2269;; (advice-add 'counsel-yank-pop-action :around
2251;; #'+vterm-counsel-yank-pop-action)) 2270;; #'+vterm-counsel-yank-pop-action))
2252 2271
2253(setup (:straight-when w3m
2254 (executable-find "w3m"))
2255 ;; (+with-ensure-after-init
2256 ;; (:option browse-url-browser-function #'w3m-browse-url
2257 ;; +browse-url-browser-function browse-url-browser-function))
2258 )
2259
2260(setup (:straight web-mode) 2272(setup (:straight web-mode)
2261 (setf (alist-get (rx "." (or "htm" "html" "phtml" "tpl.php" 2273 (setf (alist-get (rx "." (or "htm" "html" "phtml" "tpl.php"
2262 "asp" "gsp" "jsp" "ascx" "aspx" 2274 "asp" "gsp" "jsp" "ascx" "aspx"