acdw/emacs
acdw
/
emacs
1
2
Fork 0
Code Issues 4 Pull Requests Releases Activity

I told myself I'd have useful commit messages today 

Apparently I lied.
This commit is contained in:
Case Duckworth 2021-10-13 17:58:04 -05:00
parent f365aec712
commit d9e602e412
5 changed files with 80 additions and 18 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

61
init.el
View File

@ -180,7 +180,8 @@
"reddit.com"
"twitter.com"
"imgur.com"
"pixelfed"))
"pixelfed"
"taskiq"))
browse-url-secondary-browser-function)
(cons "." ; everything else
#'eww-browse-url)))
@ -324,6 +325,9 @@
(:option eldoc-idle-delay 0.1
eldoc-echo-area-use-multiline-p nil))
(setup elec-pair
(electric-pair-mode +1))
(setup elisp-mode
(:with-mode emacs-lisp-mode ;; -_-
(:option eval-expression-print-length nil
@ -530,9 +534,6 @@
(add-hook 'after-save-hook
#'executable-make-buffer-file-executable-if-script-p))
(setup elec-pair
(electric-pair-mode +1))
(setup files
(:option auto-save-file-name-transforms `((".*" ,(acdw/dir "auto-save/" t) t))
auto-save-list-file-prefix (acdw/dir "auto-save-list/.saves-" t)
@ -1259,6 +1260,42 @@ specific to most general, they are these:
column-number-mode nil
file-percentage-mode nil)))
(setup (:straight (command-log-mode
:host github
:repo "positron-solutions/command-log-mode"))
;; I have many ideas as to how to change this.
(:option clm-window-text-scale 0
clm-logging-shows-buffer t
clm-log-globally t
clm-exceptions '(self-insert-command)
clm-window-size 0.25)
(el-patch-feature command-log-mode)
(with-eval-after-load 'command-log-mode
(el-patch-defun clm--show-buffer (&optional clear)
"Displays the command log buffer in a window.
CLEAR will clear the buffer if it exists before returning it."
(let ((buffer (clm--setup-buffer clear)))
(let ((win (get-buffer-window buffer)))
(unless (windowp win)
(let ((new-win (el-patch-swap
(split-window-horizontally
(- 0 clm-window-size))
(if (< (window-pixel-width) (window-pixel-height))
(split-window-vertically
(- (if (floatp clm-window-size)
(floor (* (window-height) clm-window-size))
clm-window-size)))
(split-window-horizontally
(- (if (floatp clm-window-size)
(floor (* (window-width) clm-window-size))
clm-window-size)))))))
(set-window-buffer new-win buffer)
(set-window-dedicated-p new-win t)
(el-patch-add
(with-current-buffer buffer
(setq-local mode-line-format nil)))))
buffer)))))
(setup (:straight (consult
:host github
:repo "minad/consult"))
@ -1711,6 +1748,11 @@ See also `crux-reopen-as-root-mode'."
'("tildegit.org" "tildegit.org/api/v1" "tildegit.org"
forge-gitea-repository))))
(setup (:straight (frowny
:host github
:repo "duckwork/frowny.el"))
(global-frowny-mode +1))
(setup (:straight gcmh)
(:option gcmh-idle-delay 'auto)
(gcmh-mode +1))
@ -1897,11 +1939,6 @@ browser defined in `browse-url-secondary-browser-function'."
(append apheleia-mode-alist) '(markdown-mode . markdownfmt)
(append apheleia-mode-alist) '(gfm-mode . markdownfmt)))))
(setup (:straight (frowny
:host github
:repo "duckwork/frowny.el"))
(global-frowny-mode +1))
(setup (:straight (mastodon
:host github
:repo "mooseyboots/mastodon.el"))
@ -2598,7 +2635,7 @@ If used with a numeric prefix argument N, N backticks will be inserted."
(add-hook 'rfn-eshadow-update-overlay-hook #'vertico-directory-tidy))
(setup (:straight visual-fill-column)
(:option visual-fill-column-width fill-column
(:option visual-fill-column-width (1+ fill-column)
visual-fill-column-center-text t
(append reading-modes) '(visual-fill-column-mode . +1)
(append reading-modes) '(visual-line-mode . +1)
@ -2696,5 +2733,5 @@ If used with a numeric prefix argument N, N backticks will be inserted."
"Call `zzz-up-to-char' or `zzz-to-char', PREFIX-depending."
(interactive "P")
(if prefix
(call-interactively #'zzz-to-char)
(call-interactively #'zzz-up-to-char)))))
(call-interactively #'zzz-up-to-char)
(call-interactively #'zzz-to-char)))))

12
lisp/acdw-circe.el
View File

@ -90,5 +90,17 @@ message the current topic."
(message "%s: %s" buf circe-server-killed-confirmation)
(kill-buffer)))))
;;; Dumb modes
(define-minor-mode circe-cappy-hour-mode
"ENABLE CAPPY HOUR IN CIRCE!"
:lighter "CAPPY HOUR"
(when (derived-mode-p 'circe-chat-mode)
(if circe-cappy-hour-mode
(setq-local lui-input-function
(lambda (input) (circe--input (upcase input))))
;; XXX: It'd be better if this were more general, but whatever.
(setq-local lui-input-function #'circe--input))))
(provide 'acdw-circe)
;;; acdw-circe.el ends here

14
lisp/acdw-modeline.el
View File

@ -87,10 +87,16 @@ Otherwise, cdr should be a function that takes two points (see `count-words')."
(defun acdw-modeline/nyan-cat ()
"Display the nyan cat from function `nyan-mode' in the mode-line."
(when (and (bound-and-true-p nyan-mode)
(eq (bound-and-true-p actually-selected-window)
(get-buffer-window)))
'(" " (:eval (list (nyan-create))))))
(when (bound-and-true-p nyan-mode)
(if (eq (bound-and-true-p actually-selected-window)
(get-buffer-window))
'(" " (:eval (list (nyan-create))))
`(:propertize " "
display
(space ;; pixel perfect babeeeee
. (:width (,(+ 9 (* 8 (or
(bound-and-true-p nyan-bar-length)
20))))))))))
(defun acdw-modeline/modified () ; modified from `simple-modeline'
"Displays a color-coded buffer modification/read-only

3
lisp/acdw.el
View File

@ -510,8 +510,7 @@ first."
(insert extracted-heading)
(newline 2)
(replace-regexp org-list-full-item-re "
\4")
(replace-regexp org-list-full-item-re "\n\4")
(let ((sentence-end-double-space nil))
(unfill-region (point-min) (point-max)))

8
lisp/chd.el
View File

@ -48,6 +48,14 @@
;; TODO: implement actual logic.
(message "%s" date))
(defun chd/insert-client ()
"Insert the current client at point."
(interactive)
(if-let ((client (org-entry-get nil "CLIENT" :inherit)))
(insert client)
(beep)
(user-error "No client found in current subtree")))
;;; NOTES
;; org-protocol: https://orgmode.org/worg/org-contrib/org-protocol.html
;; the bit i wanna pull from TaskIQ: 'document.getElementById("preview")