about summary refs log tree commit diff stats
diff options
context:
space:
mode:
-rw-r--r--init.el47
1 files changed, 23 insertions, 24 deletions
diff --git a/init.el b/init.el index ddbc5cf..69dc918 100644 --- a/init.el +++ b/init.el
@@ -1541,15 +1541,13 @@ specific to most general, they are these:
1541 (:option flyspell-correct-interface #'flyspell-correct-completing-read 1541 (:option flyspell-correct-interface #'flyspell-correct-completing-read
1542 flyspell-correct--cr-key ";") 1542 flyspell-correct--cr-key ";")
1543 1543
1544 (defun acdw/flyspell-correct-f7 ()
1545 "Run a full spell correction on the current buffer."
1546 (interactive)
1547 (save-mark-and-excursion
1548 (flyspell-correct-move 0 :forward :rapid)))
1549
1550 (:with-feature flyspell 1544 (:with-feature flyspell
1551 (:bind "C-." #'flyspell-correct-wrapper 1545 (:bind "C-." #'flyspell-correct-wrapper
1552 "<f7>" #'acdw/flyspell-correct-f7) 1546 "<f7>" (defun acdw/flyspell-correct-f7 ()
1547 "Run a full spell correction on the current buffer."
1548 (interactive)
1549 (save-mark-and-excursion
1550 (flyspell-correct-move 0 :forward :rapid))))
1553 (:unbind "C-;" "C-," "C-." "C-M-i"))) 1551 (:unbind "C-;" "C-," "C-." "C-M-i")))
1554 1552
1555(setup (:straight-if forge 1553(setup (:straight-if forge
@@ -1602,11 +1600,9 @@ specific to most general, they are these:
1602 (with-eval-after-load 'elpher 1600 (with-eval-after-load 'elpher
1603 (require 'gemini-write))) 1601 (require 'gemini-write)))
1604 1602
1605(setup (:straight gitattributes-mode)) 1603(setup (:straight gitattributes-mode
1606 1604 gitconfig-mode
1607(setup (:straight gitconfig-mode)) 1605 gitignore-mode))
1608
1609(setup (:straight gitignore-mode))
1610 1606
1611(setup (:straight helpful) 1607(setup (:straight helpful)
1612 (:require-after 3) 1608 (:require-after 3)
@@ -1981,8 +1977,10 @@ browser defined in `browse-url-secondary-browser-function'."
1981 (if transform 1977 (if transform
1982 (substring 1978 (substring
1983 cand 1979 cand
1984 (next-single-property-change 0 'consult-org--buffer cand)) 1980 (next-single-property-change
1985 (let ((m (car (get-text-property 0 'consult-org--heading cand)))) 1981 0 'consult-org--buffer cand))
1982 (let ((m (car (get-text-property
1983 0 'consult-org--heading cand))))
1986 (if (member m org-clock-history) 1984 (if (member m org-clock-history)
1987 "*Recent*" 1985 "*Recent*"
1988 (buffer-name (marker-buffer m)))))))) 1986 (buffer-name (marker-buffer m))))))))
@@ -2011,11 +2009,12 @@ the default is \"/\"."
2011 (lambda (s) (replace-regexp-in-string "[ \t]+\\'" "" s)) 2009 (lambda (s) (replace-regexp-in-string "[ \t]+\\'" "" s))
2012 (cl-loop for head in path 2010 (cl-loop for head in path
2013 for n from 0 2011 for n from 0
2014 collect (el-patch-swap 2012 collect
2015 (org-add-props 2013 (el-patch-swap
2016 head nil 'face 2014 (org-add-props
2017 (nth (% n org-n-level-faces) org-level-faces)) 2015 head nil 'face
2018 head)) 2016 (nth (% n org-n-level-faces) org-level-faces))
2017 head))
2019 separator)))) 2018 separator))))
2020 (when (> (length fpath) width) 2019 (when (> (length fpath) width)
2021 (if (< width 7) 2020 (if (< width 7)
@@ -2100,9 +2099,11 @@ the default is \"/\"."
2100 (when update-packages 2099 (when update-packages
2101 (require 'straight-x) 2100 (require 'straight-x)
2102 (straight-x-pull-all)) 2101 (straight-x-pull-all))
2103 (restart-emacs)))(setup (:straight (shell-command+ 2102 (restart-emacs)))
2104 :host nil 2103
2105 :repo "https://git.sr.ht/~pkal/shell-command-plus")) 2104(setup (:straight (shell-command+
2105 :host nil
2106 :repo "https://git.sr.ht/~pkal/shell-command-plus"))
2106 (:option shell-command-prompt "$ ") 2107 (:option shell-command-prompt "$ ")
2107 (:with-feature dired 2108 (:with-feature dired
2108 (:bind "M-!" shell-command+)) 2109 (:bind "M-!" shell-command+))
@@ -2381,5 +2382,3 @@ If used with a numeric prefix argument N, N backticks will be inserted."
2381 (if prefix 2382 (if prefix
2382 (call-interactively #'zzz-to-char) 2383 (call-interactively #'zzz-to-char)
2383 (call-interactively #'zzz-up-to-char))))) 2384 (call-interactively #'zzz-up-to-char)))))
2384
2385;;; init.el ends here