parent
876ffc0fbc
commit
07b6e5cdb0
47
init.el
47
init.el
|
@ -240,7 +240,11 @@
|
|||
;; Add advice to pulse evaluated regions
|
||||
(define-advice eval-region (:around (fn start end &rest args) pulse-region)
|
||||
(pulse-momentary-highlight-region start end)
|
||||
(apply fn start end args)))
|
||||
(apply fn start end args))
|
||||
|
||||
(setup (:straight elisp-slime-nav)
|
||||
(:hook-into emacs-lisp-mode
|
||||
ielm-mode)))
|
||||
|
||||
(setup encoding
|
||||
(:option locale-coding-system 'utf-8-unix
|
||||
|
@ -416,6 +420,19 @@ like a dumbass."
|
|||
(defun unfocused@save-buffers ()
|
||||
(save-some-buffers t))))
|
||||
|
||||
(setup flyspell
|
||||
(add-hook 'text-mode-hook #'flyspell-mode))
|
||||
|
||||
(setup (:straight flyspell-correct)
|
||||
(add-hook 'flyspell-mode-hook
|
||||
(defun flyspell-mode@flyspell-correct ()
|
||||
(dolist (keybind '(("C-;" . flyspell-correct-wrapper)
|
||||
("C-," . nil)
|
||||
("C-." . nil)
|
||||
("C-M-i" . nil)))
|
||||
(define-key flyspell-mode-map
|
||||
(kbd (car keybind)) (cdr keybind))))))
|
||||
|
||||
;; (setup flyspell
|
||||
;; ;; follow the directions here: https://old.reddit.com/r/emacs/comments/dgj0ae
|
||||
;; ;; in short:
|
||||
|
@ -784,11 +801,13 @@ like a dumbass."
|
|||
|
||||
(setup variable-pitch-mode
|
||||
|
||||
(defun variable-pitch@disable-fill-column-indicator ()
|
||||
(display-fill-column-indicator-mode -1))
|
||||
|
||||
(:hook acdw-fonts/adapt-variable-pitch
|
||||
variable-pitch@disable-fill-column-indicator))
|
||||
;; I might want to change this to `buffer-face-mode-hook'...
|
||||
(advice-add 'variable-pitch-mode :after
|
||||
(defun variable-pitch-mode@setup (&rest _)
|
||||
"Set up `variable-pitch-mode' with my customizations."
|
||||
(display-fill-column-indicator-mode (if buffer-face-mode
|
||||
-1
|
||||
+1)))))
|
||||
|
||||
(setup view
|
||||
(:option view-read-only t)
|
||||
|
@ -853,9 +872,9 @@ like a dumbass."
|
|||
(:global "M-=" count-words
|
||||
"C-w" kill-region-or-backward-word
|
||||
"<help> h" nil ; HELLO takes a long time to load on Windows
|
||||
"M-c" capitalize-dwim
|
||||
"M-u" upcase-dwim
|
||||
"M-l" downcase-dwim)
|
||||
"C-c c" capitalize-dwim
|
||||
"C-c u" upcase-dwim
|
||||
"C-c l" downcase-dwim)
|
||||
|
||||
(:global "C-c t" acdw/insert-iso-date
|
||||
"C-z" nil))
|
||||
|
@ -889,7 +908,8 @@ like a dumbass."
|
|||
(dired-async-mode +1))
|
||||
|
||||
(setup (:straight ace-link)
|
||||
(ace-link-setup-default))
|
||||
(ace-link-setup-default)
|
||||
(define-key erc-mode-map (kbd "C-o") #'ace-link))
|
||||
|
||||
(setup (:straight avy)
|
||||
(:global "C-:" avy-goto-char
|
||||
|
@ -1353,6 +1373,7 @@ successive invocations."
|
|||
(require 'acdw-org) ; so I don't clutter up init.el
|
||||
(:option
|
||||
org-adapt-indentation nil
|
||||
org-agenda-files nil ; only until I set this up
|
||||
org-catch-invisible-edits 'smart
|
||||
org-clock-clocked-in-display 'mode-line
|
||||
org-clock-string-limit 7 ; gives time and not title
|
||||
|
@ -1523,6 +1544,11 @@ successive invocations."
|
|||
(add-to-list 'auto-mode-alist spec))
|
||||
(add-hook 'ssh-config-mode-hook #'turn-on-font-lock))
|
||||
|
||||
(setup (:straight (topsy
|
||||
:host github
|
||||
:repo "alphapapa/topsy.el"))
|
||||
(:hook-into prog-mode))
|
||||
|
||||
(setup (:straight typo)
|
||||
(add-hook 'text-mode-hook
|
||||
(defun text-mode@typo-unless ()
|
||||
|
@ -1682,6 +1708,5 @@ call `zzz-to-char'."
|
|||
;;;; Work
|
||||
(when (acdw/system :work)
|
||||
(setup (:straight ahk-mode)))
|
||||
|
||||
|
||||
;;; init.el ends here
|
||||
|
|
|
@ -102,14 +102,18 @@ If USE-TLS is non-nil, use TLS."
|
|||
(format "%s%s>"
|
||||
(substring name 0 (- len 2 (length ellipsis)))
|
||||
ellipsis)
|
||||
(format "%s%s>"
|
||||
name
|
||||
(let ((ss) ; Rewrite s-repeat to avoid dependency.
|
||||
(num (- len 2 (length name))))
|
||||
(while (> num 0)
|
||||
(setq ss (cons " " ss))
|
||||
(setq num (1- num)))
|
||||
(apply #'concat ss))))))
|
||||
(propertize
|
||||
(format "%s%s>"
|
||||
name
|
||||
(let ((ss) ; Rewrite s-repeat to avoid dependency.
|
||||
(num (- len 2 (length name))))
|
||||
(while (> num 0)
|
||||
(setq ss (cons " " ss))
|
||||
(setq num (1- num)))
|
||||
(apply #'concat ss)))
|
||||
'read-only t
|
||||
'intangible t
|
||||
'cursor-intangible t))))
|
||||
|
||||
(defcustom erc-nick-truncate nil
|
||||
"The width at which to truncate a nick with `erc-format-truncate-@nick'."
|
||||
|
|
Loading…
Reference in New Issue