Merge branch 'main' of github.com:duckwork/.emacs.d

4 files changed, 38 insertions, 3 deletions

@@ -82,6 +82,13 @@ Otherwise, cdr should be a function that takes two points (see `count-words')."
                               (minions-minor-modes-menu)))))
     'mouse-face 'mode-line-highlight)))
 
+(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))))))
+
 (defun acdw-modeline/modified ()        ; modified from `simple-modeline'
   "Displays a color-coded buffer modification/read-only
 indicator in the mode-line."
@@ -299,11 +299,16 @@ instead of the true count."
                   ;; Ignore headings
                   ((or (org-at-heading-p))
                    (forward-line))
-                  ;; Ignore drawers
+                  ;; Ignore property and log drawers
                   ((or (looking-at org-drawer-regexp)
                        (looking-at org-clock-drawer-re))
                    (search-forward ":END:" nil :noerror)
                    (forward-line))
+                  ;; Ignore DEADLINE and SCHEDULED keywords
+                  ((or (looking-at org-deadline-regexp)
+                       (looking-at org-scheduled-regexp)
+                       (looking-at org-closed-time-regexp))
+                   (forward-line))
                   ;; Ignore tables
                   ((org-at-table-p) (forward-line))
                   ;; Ignore hyperlinks, but count the descriptions
@@ -862,6 +862,23 @@ When called with PREFIX, just kill Emacs without confirmation."
                  (let ((b (get-buffer (if (consp b) (car b) b))))
                    (member (buffer-local-value 'major-mode b) modes)))))
     (pop-to-buffer (read-buffer "Buffer: " nil t pred))))
+
+;;; BLAH
+
+(defun open-paragraph ()
+  "Open a paragraph after point.
+A paragraph is defined as continguous non-empty lines of text
+surrounded by empty lines, so opening a paragraph means to make
+three blank lines, then place the point on the second one."
+  (interactive)
+  ;; Go to next blank line.  This /isn't/ `end-of-paragraph-text' because
+  ;; that's weird with org, and I'm guessing other modes too.
+  (while (not (looking-at "^$"))
+    (forward-line 1))
+  (newline)
+  (delete-blank-lines)
+  (newline 2)
+  (previous-line))
 
 (provide 'acdw)
 ;;; acdw.el ends here
@@ -40,10 +40,16 @@
     (org-back-to-heading)
     (org-open-at-point)))
 
+(defun chd/click-bits (date)
+  "Create a new Click Bits org file, or edit the one for DATE."
+  (interactive (list (progn
+                       (require 'org)
+                       (org-read-date))))
+  ;; TODO: implement actual logic.
+  (message "%s" date))
+
 ;;; NOTES
 ;; org-protocol: https://orgmode.org/worg/org-contrib/org-protocol.html
 ;; the bit i wanna pull from TaskIQ: 'document.getElementById("preview")
-
-
 (provide 'chd)
 ;;; chd.el ends here