2 files changed, 21 insertions, 2 deletions

@@ -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,12 @@
     (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."
+  (error "not implemented"))
+
 ;;; 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