diff options
author | Case Duckworth | 2021-10-13 17:58:04 -0500 |
---|---|---|
committer | Case Duckworth | 2021-10-13 17:58:04 -0500 |
commit | d9e602e4128a8aaae39ba81296f7042bc2545053 (patch) | |
tree | 944b3d2f1406be428854b121ce0bcd1802df4236 /init.el | |
parent | yadda yadda yadda (diff) | |
download | emacs-d9e602e4128a8aaae39ba81296f7042bc2545053.tar.gz emacs-d9e602e4128a8aaae39ba81296f7042bc2545053.zip |
I told myself I'd have useful commit messages today
Apparently I lied.
Diffstat (limited to 'init.el')
-rw-r--r-- | init.el | 61 |
1 files changed, 49 insertions, 12 deletions
diff --git a/init.el b/init.el index ddaf872..a2b8368 100644 --- a/init.el +++ b/init.el | |||
@@ -180,7 +180,8 @@ | |||
180 | "reddit.com" | 180 | "reddit.com" |
181 | "twitter.com" | 181 | "twitter.com" |
182 | "imgur.com" | 182 | "imgur.com" |
183 | "pixelfed")) | 183 | "pixelfed" |
184 | "taskiq")) | ||
184 | browse-url-secondary-browser-function) | 185 | browse-url-secondary-browser-function) |
185 | (cons "." ; everything else | 186 | (cons "." ; everything else |
186 | #'eww-browse-url))) | 187 | #'eww-browse-url))) |
@@ -324,6 +325,9 @@ | |||
324 | (:option eldoc-idle-delay 0.1 | 325 | (:option eldoc-idle-delay 0.1 |
325 | eldoc-echo-area-use-multiline-p nil)) | 326 | eldoc-echo-area-use-multiline-p nil)) |
326 | 327 | ||
328 | (setup elec-pair | ||
329 | (electric-pair-mode +1)) | ||
330 | |||
327 | (setup elisp-mode | 331 | (setup elisp-mode |
328 | (:with-mode emacs-lisp-mode ;; -_- | 332 | (:with-mode emacs-lisp-mode ;; -_- |
329 | (:option eval-expression-print-length nil | 333 | (:option eval-expression-print-length nil |
@@ -530,9 +534,6 @@ | |||
530 | (add-hook 'after-save-hook | 534 | (add-hook 'after-save-hook |
531 | #'executable-make-buffer-file-executable-if-script-p)) | 535 | #'executable-make-buffer-file-executable-if-script-p)) |
532 | 536 | ||
533 | (setup elec-pair | ||
534 | (electric-pair-mode +1)) | ||
535 | |||
536 | (setup files | 537 | (setup files |
537 | (:option auto-save-file-name-transforms `((".*" ,(acdw/dir "auto-save/" t) t)) | 538 | (:option auto-save-file-name-transforms `((".*" ,(acdw/dir "auto-save/" t) t)) |
538 | auto-save-list-file-prefix (acdw/dir "auto-save-list/.saves-" t) | 539 | auto-save-list-file-prefix (acdw/dir "auto-save-list/.saves-" t) |
@@ -1259,6 +1260,42 @@ specific to most general, they are these: | |||
1259 | column-number-mode nil | 1260 | column-number-mode nil |
1260 | file-percentage-mode nil))) | 1261 | file-percentage-mode nil))) |
1261 | 1262 | ||
1263 | (setup (:straight (command-log-mode | ||
1264 | :host github | ||
1265 | :repo "positron-solutions/command-log-mode")) | ||
1266 | ;; I have many ideas as to how to change this. | ||
1267 | (:option clm-window-text-scale 0 | ||
1268 | clm-logging-shows-buffer t | ||
1269 | clm-log-globally t | ||
1270 | clm-exceptions '(self-insert-command) | ||
1271 | clm-window-size 0.25) | ||
1272 | (el-patch-feature command-log-mode) | ||
1273 | (with-eval-after-load 'command-log-mode | ||
1274 | (el-patch-defun clm--show-buffer (&optional clear) | ||
1275 | "Displays the command log buffer in a window. | ||
1276 | CLEAR will clear the buffer if it exists before returning it." | ||
1277 | (let ((buffer (clm--setup-buffer clear))) | ||
1278 | (let ((win (get-buffer-window buffer))) | ||
1279 | (unless (windowp win) | ||
1280 | (let ((new-win (el-patch-swap | ||
1281 | (split-window-horizontally | ||
1282 | (- 0 clm-window-size)) | ||
1283 | (if (< (window-pixel-width) (window-pixel-height)) | ||
1284 | (split-window-vertically | ||
1285 | (- (if (floatp clm-window-size) | ||
1286 | (floor (* (window-height) clm-window-size)) | ||
1287 | clm-window-size))) | ||
1288 | (split-window-horizontally | ||
1289 | (- (if (floatp clm-window-size) | ||
1290 | (floor (* (window-width) clm-window-size)) | ||
1291 | clm-window-size))))))) | ||
1292 | (set-window-buffer new-win buffer) | ||
1293 | (set-window-dedicated-p new-win t) | ||
1294 | (el-patch-add | ||
1295 | (with-current-buffer buffer | ||
1296 | (setq-local mode-line-format nil))))) | ||
1297 | buffer))))) | ||
1298 | |||
1262 | (setup (:straight (consult | 1299 | (setup (:straight (consult |
1263 | :host github | 1300 | :host github |
1264 | :repo "minad/consult")) | 1301 | :repo "minad/consult")) |
@@ -1711,6 +1748,11 @@ See also `crux-reopen-as-root-mode'." | |||
1711 | '("tildegit.org" "tildegit.org/api/v1" "tildegit.org" | 1748 | '("tildegit.org" "tildegit.org/api/v1" "tildegit.org" |
1712 | forge-gitea-repository)))) | 1749 | forge-gitea-repository)))) |
1713 | 1750 | ||
1751 | (setup (:straight (frowny | ||
1752 | :host github | ||
1753 | :repo "duckwork/frowny.el")) | ||
1754 | (global-frowny-mode +1)) | ||
1755 | |||
1714 | (setup (:straight gcmh) | 1756 | (setup (:straight gcmh) |
1715 | (:option gcmh-idle-delay 'auto) | 1757 | (:option gcmh-idle-delay 'auto) |
1716 | (gcmh-mode +1)) | 1758 | (gcmh-mode +1)) |
@@ -1897,11 +1939,6 @@ browser defined in `browse-url-secondary-browser-function'." | |||
1897 | (append apheleia-mode-alist) '(markdown-mode . markdownfmt) | 1939 | (append apheleia-mode-alist) '(markdown-mode . markdownfmt) |
1898 | (append apheleia-mode-alist) '(gfm-mode . markdownfmt))))) | 1940 | (append apheleia-mode-alist) '(gfm-mode . markdownfmt))))) |
1899 | 1941 | ||
1900 | (setup (:straight (frowny | ||
1901 | :host github | ||
1902 | :repo "duckwork/frowny.el")) | ||
1903 | (global-frowny-mode +1)) | ||
1904 | |||
1905 | (setup (:straight (mastodon | 1942 | (setup (:straight (mastodon |
1906 | :host github | 1943 | :host github |
1907 | :repo "mooseyboots/mastodon.el")) | 1944 | :repo "mooseyboots/mastodon.el")) |
@@ -2598,7 +2635,7 @@ If used with a numeric prefix argument N, N backticks will be inserted." | |||
2598 | (add-hook 'rfn-eshadow-update-overlay-hook #'vertico-directory-tidy)) | 2635 | (add-hook 'rfn-eshadow-update-overlay-hook #'vertico-directory-tidy)) |
2599 | 2636 | ||
2600 | (setup (:straight visual-fill-column) | 2637 | (setup (:straight visual-fill-column) |
2601 | (:option visual-fill-column-width fill-column | 2638 | (:option visual-fill-column-width (1+ fill-column) |
2602 | visual-fill-column-center-text t | 2639 | visual-fill-column-center-text t |
2603 | (append reading-modes) '(visual-fill-column-mode . +1) | 2640 | (append reading-modes) '(visual-fill-column-mode . +1) |
2604 | (append reading-modes) '(visual-line-mode . +1) | 2641 | (append reading-modes) '(visual-line-mode . +1) |
@@ -2696,5 +2733,5 @@ If used with a numeric prefix argument N, N backticks will be inserted." | |||
2696 | "Call `zzz-up-to-char' or `zzz-to-char', PREFIX-depending." | 2733 | "Call `zzz-up-to-char' or `zzz-to-char', PREFIX-depending." |
2697 | (interactive "P") | 2734 | (interactive "P") |
2698 | (if prefix | 2735 | (if prefix |
2699 | (call-interactively #'zzz-to-char) | 2736 | (call-interactively #'zzz-up-to-char) |
2700 | (call-interactively #'zzz-up-to-char))))) | 2737 | (call-interactively #'zzz-to-char))))) |