summary refs log tree commit diff stats
path: root/lisp
diff options
context:
space:
mode:
Diffstat (limited to 'lisp')
-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
4 files changed, 31 insertions, 6 deletions
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")