summary refs log tree commit diff stats
diff options
context:
space:
mode:
authorCase Duckworth2021-10-13 17:58:04 -0500
committerCase Duckworth2021-10-13 17:58:04 -0500
commitd9e602e4128a8aaae39ba81296f7042bc2545053 (patch)
tree944b3d2f1406be428854b121ce0bcd1802df4236
parentyadda yadda yadda (diff)
downloademacs-d9e602e4128a8aaae39ba81296f7042bc2545053.tar.gz
emacs-d9e602e4128a8aaae39ba81296f7042bc2545053.zip
I told myself I'd have useful commit messages today
Apparently I lied.
-rw-r--r--init.el61
-rw-r--r--lisp/acdw-circe.el12
-rw-r--r--lisp/acdw-modeline.el14
-rw-r--r--lisp/acdw.el3
-rw-r--r--lisp/chd.el8
5 files changed, 80 insertions, 18 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.
1276CLEAR 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)))))
diff --git a/lisp/acdw-circe.el b/lisp/acdw-circe.el index ec15f8e..958ef38 100644 --- a/lisp/acdw-circe.el +++ b/lisp/acdw-circe.el
@@ -90,5 +90,17 @@ message the current topic."
90 (message "%s: %s" buf circe-server-killed-confirmation) 90 (message "%s: %s" buf circe-server-killed-confirmation)
91 (kill-buffer))))) 91 (kill-buffer)))))
92 92
93;;; Dumb modes
94
95(define-minor-mode circe-cappy-hour-mode
96 "ENABLE CAPPY HOUR IN CIRCE!"
97 :lighter "CAPPY HOUR"
98 (when (derived-mode-p 'circe-chat-mode)
99 (if circe-cappy-hour-mode
100 (setq-local lui-input-function
101 (lambda (input) (circe--input (upcase input))))
102 ;; XXX: It'd be better if this were more general, but whatever.
103 (setq-local lui-input-function #'circe--input))))
104
93(provide 'acdw-circe) 105(provide 'acdw-circe)
94;;; acdw-circe.el ends here 106;;; acdw-circe.el ends here
diff --git a/lisp/acdw-modeline.el b/lisp/acdw-modeline.el index d9b1c8b..0dc23ff 100644 --- a/lisp/acdw-modeline.el +++ b/lisp/acdw-modeline.el
@@ -87,10 +87,16 @@ Otherwise, cdr should be a function that takes two points (see `count-words')."
87 87
88(defun acdw-modeline/nyan-cat () 88(defun acdw-modeline/nyan-cat ()
89 "Display the nyan cat from function `nyan-mode' in the mode-line." 89 "Display the nyan cat from function `nyan-mode' in the mode-line."
90 (when (and (bound-and-true-p nyan-mode) 90 (when (bound-and-true-p nyan-mode)
91 (eq (bound-and-true-p actually-selected-window) 91 (if (eq (bound-and-true-p actually-selected-window)
92 (get-buffer-window))) 92 (get-buffer-window))
93 '(" " (:eval (list (nyan-create)))))) 93 '(" " (:eval (list (nyan-create))))
94 `(:propertize " "
95 display
96 (space ;; pixel perfect babeeeee
97 . (:width (,(+ 9 (* 8 (or
98 (bound-and-true-p nyan-bar-length)
99 20))))))))))
94 100
95(defun acdw-modeline/modified () ; modified from `simple-modeline' 101(defun acdw-modeline/modified () ; modified from `simple-modeline'
96 "Displays a color-coded buffer modification/read-only 102 "Displays a color-coded buffer modification/read-only
diff --git a/lisp/acdw.el b/lisp/acdw.el index df2962a..48ed19b 100644 --- a/lisp/acdw.el +++ b/lisp/acdw.el
@@ -510,8 +510,7 @@ first."
510 (insert extracted-heading) 510 (insert extracted-heading)
511 (newline 2) 511 (newline 2)
512 512
513 (replace-regexp org-list-full-item-re " 513 (replace-regexp org-list-full-item-re "\n\4")
514\4")
515 514
516 (let ((sentence-end-double-space nil)) 515 (let ((sentence-end-double-space nil))
517 (unfill-region (point-min) (point-max))) 516 (unfill-region (point-min) (point-max)))
diff --git a/lisp/chd.el b/lisp/chd.el index b301c8d..e1d96cb 100644 --- a/lisp/chd.el +++ b/lisp/chd.el
@@ -48,6 +48,14 @@
48 ;; TODO: implement actual logic. 48 ;; TODO: implement actual logic.
49 (message "%s" date)) 49 (message "%s" date))
50 50
51(defun chd/insert-client ()
52 "Insert the current client at point."
53 (interactive)
54 (if-let ((client (org-entry-get nil "CLIENT" :inherit)))
55 (insert client)
56 (beep)
57 (user-error "No client found in current subtree")))
58
51;;; NOTES 59;;; NOTES
52;; org-protocol: https://orgmode.org/worg/org-contrib/org-protocol.html 60;; org-protocol: https://orgmode.org/worg/org-contrib/org-protocol.html
53;; the bit i wanna pull from TaskIQ: 'document.getElementById("preview") 61;; the bit i wanna pull from TaskIQ: 'document.getElementById("preview")