about summary refs log tree commit diff stats
diff options
context:
space:
mode:
authorCase Duckworth2021-04-21 09:38:27 -0500
committerCase Duckworth2021-04-21 09:38:27 -0500
commit71d2664f23e5c7b0bf7e8b70e1398e866e77adfb (patch)
tree3ce3dc70846e18c209018221647abcafbb9ab416
parentFix typo (diff)
parentMerge branch 'main' of https://tildegit.org/acdw/emacs (diff)
downloademacs-71d2664f23e5c7b0bf7e8b70e1398e866e77adfb.tar.gz
emacs-71d2664f23e5c7b0bf7e8b70e1398e866e77adfb.zip
Merge branch 'main' of https://tildegit.org/acdw/emacs
-rw-r--r--init.el6
-rw-r--r--lisp/acdw-org.el2
2 files changed, 6 insertions, 2 deletions
diff --git a/init.el b/init.el index f728603..c2d4b2b 100644 --- a/init.el +++ b/init.el
@@ -554,7 +554,6 @@
554 (:global "C-=" er/expand-region)) 554 (:global "C-=" er/expand-region))
555 555
556(setup (:straight crux) 556(setup (:straight crux)
557 (advice-add 'kill-line :override #'crux-kill-and-join-forward)
558 (:global "M-`" crux-other-window-or-switch-buffer 557 (:global "M-`" crux-other-window-or-switch-buffer
559 "C-o" crux-smart-open-line 558 "C-o" crux-smart-open-line
560 "M-o" crux-smart-open-line-above 559 "M-o" crux-smart-open-line-above
@@ -777,6 +776,11 @@ if ripgrep is installed, otherwise `consult-grep'."
777 (setup (:straight flyspell-correct) 776 (setup (:straight flyspell-correct)
778 (define-key flyspell-mode-map (kbd "C-;") #'flyspell-correct-wrapper))) 777 (define-key flyspell-mode-map (kbd "C-;") #'flyspell-correct-wrapper)))
779 778
779(setup (:straight (electric-cursor
780 :host github
781 :repo "duckwork/electric-cursor"))
782 (electric-cursor-mode +1))
783
780 784
781;;; Programming 785;;; Programming
782 786
diff --git a/lisp/acdw-org.el b/lisp/acdw-org.el index dfabcc7..13a1b88 100644 --- a/lisp/acdw-org.el +++ b/lisp/acdw-org.el
@@ -170,7 +170,7 @@ appropriate. In tables, insert a new row or end the table."
170 nil 170 nil
171 'tree))) 171 'tree)))
172 172
173(defun acdw-org/fix-blanks-in-buffer () 173(defun acdw-org/fix-blank-lines-in-buffer ()
174 (when (eq major-mode 'org-mode) 174 (when (eq major-mode 'org-mode)
175 (let ((current-prefix-arg 4)) 175 (let ((current-prefix-arg 4))
176 (call-interactively #'acdw-org/fix-blank-lines)))) 176 (call-interactively #'acdw-org/fix-blank-lines))))