about summary refs log tree commit diff stats
path: root/lisp
diff options
context:
space:
mode:
authorCase Duckworth2021-10-06 19:17:00 -0500
committerCase Duckworth2021-10-06 19:17:00 -0500
commit79e4370571d9404a24600c211ed3822689d0ee0e (patch)
tree477dce9069cc0acf0570e9db8ce67e075d5fec7d /lisp
parentComment out define-repeat-map (diff)
parentStub a little further with chd/click-bits (diff)
downloademacs-79e4370571d9404a24600c211ed3822689d0ee0e.tar.gz
emacs-79e4370571d9404a24600c211ed3822689d0ee0e.zip
Merge branch 'main' of github.com:duckwork/.emacs.d
Diffstat (limited to 'lisp')
-rw-r--r--lisp/acdw-modeline.el7
-rw-r--r--lisp/acdw-org.el7
-rw-r--r--lisp/acdw.el17
-rw-r--r--lisp/chd.el10
4 files changed, 38 insertions, 3 deletions
diff --git a/lisp/acdw-modeline.el b/lisp/acdw-modeline.el index 573a964..a9020c5 100644 --- a/lisp/acdw-modeline.el +++ b/lisp/acdw-modeline.el
@@ -82,6 +82,13 @@ Otherwise, cdr should be a function that takes two points (see `count-words')."
82 (minions-minor-modes-menu))))) 82 (minions-minor-modes-menu)))))
83 'mouse-face 'mode-line-highlight))) 83 'mouse-face 'mode-line-highlight)))
84 84
85(defun acdw-modeline/nyan-cat ()
86 "Display the nyan cat from function `nyan-mode' in the mode-line."
87 (when (and (bound-and-true-p nyan-mode)
88 (eq (bound-and-true-p actually-selected-window)
89 (get-buffer-window)))
90 '(" " (:eval (list (nyan-create))))))
91
85(defun acdw-modeline/modified () ; modified from `simple-modeline' 92(defun acdw-modeline/modified () ; modified from `simple-modeline'
86 "Displays a color-coded buffer modification/read-only 93 "Displays a color-coded buffer modification/read-only
87indicator in the mode-line." 94indicator in the mode-line."
diff --git a/lisp/acdw-org.el b/lisp/acdw-org.el index 8821b28..05e6409 100644 --- a/lisp/acdw-org.el +++ b/lisp/acdw-org.el
@@ -299,11 +299,16 @@ instead of the true count."
299 ;; Ignore headings 299 ;; Ignore headings
300 ((or (org-at-heading-p)) 300 ((or (org-at-heading-p))
301 (forward-line)) 301 (forward-line))
302 ;; Ignore drawers 302 ;; Ignore property and log drawers
303 ((or (looking-at org-drawer-regexp) 303 ((or (looking-at org-drawer-regexp)
304 (looking-at org-clock-drawer-re)) 304 (looking-at org-clock-drawer-re))
305 (search-forward ":END:" nil :noerror) 305 (search-forward ":END:" nil :noerror)
306 (forward-line)) 306 (forward-line))
307 ;; Ignore DEADLINE and SCHEDULED keywords
308 ((or (looking-at org-deadline-regexp)
309 (looking-at org-scheduled-regexp)
310 (looking-at org-closed-time-regexp))
311 (forward-line))
307 ;; Ignore tables 312 ;; Ignore tables
308 ((org-at-table-p) (forward-line)) 313 ((org-at-table-p) (forward-line))
309 ;; Ignore hyperlinks, but count the descriptions 314 ;; Ignore hyperlinks, but count the descriptions
diff --git a/lisp/acdw.el b/lisp/acdw.el index 969b6c8..cc73071 100644 --- a/lisp/acdw.el +++ b/lisp/acdw.el
@@ -862,6 +862,23 @@ When called with PREFIX, just kill Emacs without confirmation."
862 (let ((b (get-buffer (if (consp b) (car b) b)))) 862 (let ((b (get-buffer (if (consp b) (car b) b))))
863 (member (buffer-local-value 'major-mode b) modes))))) 863 (member (buffer-local-value 'major-mode b) modes)))))
864 (pop-to-buffer (read-buffer "Buffer: " nil t pred)))) 864 (pop-to-buffer (read-buffer "Buffer: " nil t pred))))
865
866;;; BLAH
867
868(defun open-paragraph ()
869 "Open a paragraph after point.
870A paragraph is defined as continguous non-empty lines of text
871surrounded by empty lines, so opening a paragraph means to make
872three blank lines, then place the point on the second one."
873 (interactive)
874 ;; Go to next blank line. This /isn't/ `end-of-paragraph-text' because
875 ;; that's weird with org, and I'm guessing other modes too.
876 (while (not (looking-at "^$"))
877 (forward-line 1))
878 (newline)
879 (delete-blank-lines)
880 (newline 2)
881 (previous-line))
865 882
866(provide 'acdw) 883(provide 'acdw)
867;;; acdw.el ends here 884;;; acdw.el ends here
diff --git a/lisp/chd.el b/lisp/chd.el index 697c134..b301c8d 100644 --- a/lisp/chd.el +++ b/lisp/chd.el
@@ -40,10 +40,16 @@
40 (org-back-to-heading) 40 (org-back-to-heading)
41 (org-open-at-point))) 41 (org-open-at-point)))
42 42
43(defun chd/click-bits (date)
44 "Create a new Click Bits org file, or edit the one for DATE."
45 (interactive (list (progn
46 (require 'org)
47 (org-read-date))))
48 ;; TODO: implement actual logic.
49 (message "%s" date))
50
43;;; NOTES 51;;; NOTES
44;; org-protocol: https://orgmode.org/worg/org-contrib/org-protocol.html 52;; org-protocol: https://orgmode.org/worg/org-contrib/org-protocol.html
45;; the bit i wanna pull from TaskIQ: 'document.getElementById("preview") 53;; the bit i wanna pull from TaskIQ: 'document.getElementById("preview")
46
47
48(provide 'chd) 54(provide 'chd)
49;;; chd.el ends here 55;;; chd.el ends here