diff options
Diffstat (limited to 'lisp')
-rw-r--r-- | lisp/acdw-modeline.el | 7 | ||||
-rw-r--r-- | lisp/acdw-org.el | 7 | ||||
-rw-r--r-- | lisp/acdw.el | 17 | ||||
-rw-r--r-- | lisp/chd.el | 10 |
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 |
87 | indicator in the mode-line." | 94 | indicator 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. | ||
870 | A paragraph is defined as continguous non-empty lines of text | ||
871 | surrounded by empty lines, so opening a paragraph means to make | ||
872 | three 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 |