feat(core): add +first-line-empty-p helper

abougouffa · Oct 12, 2023 · d83aa23 · d83aa23
1 parent 7256aba
commit d83aa23
Showing 1 changed file with 6 additions and 0 deletions.
diff --git a/elisp/+buffer.el b/elisp/+buffer.el
@@ -199,5 +199,11 @@ between lines."
           (kill-new (buffer-string)))))
     (deactivate-mark)))
 
+;;;###autoload
+(defun +first-line-empty-p ()
+  "Returns t when the first line of the buffer is empty."
+  (save-excursion (goto-char (point-min))
+                  (and (bolp) (eolp))))
+
 
 ;;; +buffer.el ends here