Reorganize
This commit is contained in:
parent
d718b1f106
commit
e43b996df6
47
init.el
47
init.el
|
@ -1745,8 +1745,8 @@ successive invocations."
|
|||
|
||||
(setup (:straight persistent-scratch)
|
||||
(:option persistent-scratch-backup-directory (acdw/dir "scratch" t)
|
||||
persistent-scratch-keep-n-newest-backups 12))
|
||||
(persistent-scratch-setup-default))
|
||||
persistent-scratch-keep-n-newest-backups 12)
|
||||
(persistent-scratch-setup-default))
|
||||
|
||||
(setup (:straight restart-emacs)
|
||||
(defun emacs-upgrade (&optional update-packages)
|
||||
|
@ -1835,24 +1835,7 @@ successive invocations."
|
|||
(:hook-into prog-mode))
|
||||
|
||||
(setup (:straight typo)
|
||||
|
||||
;; jlf & cvandusen on #emacs make a great point: ’ (RIGHT SINGLE QUOTATION
|
||||
;; MARK) is /not/ an apostrophe. Making it curly is a typographical
|
||||
;; consideration, not an input consideration. (I suppose you could make the
|
||||
;; argument that all of these are typographical considerations, but .. bleh.)
|
||||
(define-typo-cycle typo-cycle-apostrophe
|
||||
"Cycle through apostrophe-like graphemes.
|
||||
If used with a numeric prefix argument N, N apostrophes will be inserted."
|
||||
("'" "′" "″" "’"))
|
||||
|
||||
(define-typo-cycle typo-cycle-backtick
|
||||
"Cycle through backtick and left single quotation mark.
|
||||
If used with a numeric prefix argument N, N backticks will be inserted."
|
||||
("`" "‘"))
|
||||
|
||||
(:bind "'" typo-cycle-apostrophe
|
||||
"`" typo-cycle-backtick)
|
||||
|
||||
|
||||
;; Enable C-c 8 map in all buffers
|
||||
(typo-global-mode +1)
|
||||
|
||||
|
@ -1863,10 +1846,30 @@ If used with a numeric prefix argument N, N backticks will be inserted."
|
|||
;; `typo-disable-electricity-functions' because the latter checks
|
||||
;; on every pertinent keypress. I know I want /no/ typo-ing in
|
||||
;; these certain buffers, so I won't even turn on the mode.
|
||||
(unless (or ; predicates here
|
||||
(unless (or ; predicates here
|
||||
(string-match-p "COMMIT_EDITMSG"
|
||||
(or (buffer-name) "")))
|
||||
(typo-mode +1)))))
|
||||
(typo-mode +1))))
|
||||
|
||||
(with-eval-after-load 'typo
|
||||
;; jlf & cvandusen on #emacs make a great point: ’ (RIGHT SINGLE QUOTATION
|
||||
;; MARK) is /not/ an apostrophe. Making it curly is a typographical
|
||||
;; consideration, not an input consideration. (I suppose you could make
|
||||
;; the argument that all of these are typographical considerations, but
|
||||
;; .. bleh.)
|
||||
(define-typo-cycle typo-cycle-apostrophe
|
||||
"Cycle through apostrophe-like graphemes.
|
||||
If used with a numeric prefix argument N, N apostrophes will be inserted."
|
||||
("'" "′" "″" "’"))
|
||||
|
||||
(define-typo-cycle typo-cycle-backtick
|
||||
"Cycle through backtick and left single quotation mark.
|
||||
If used with a numeric prefix argument N, N backticks will be inserted."
|
||||
("`" "‘"))
|
||||
|
||||
(:bind "'" typo-cycle-apostrophe
|
||||
"`" typo-cycle-backtick)
|
||||
))
|
||||
|
||||
(setup (:straight undo-fu)
|
||||
(:global "C-/" undo-fu-only-undo
|
||||
|
|
Loading…
Reference in New Issue