branch: externals/pulsar
commit 0cc2f4af563023465e2bf8110d5106795e941098
Author: Protesilaos Stavrou <i...@protesilaos.com>
Commit: Protesilaos Stavrou <i...@protesilaos.com>
Make outline structure more detailed
---
pulsar.el | 8 ++++++--
1 file changed, 6 insertions(+), 2 deletions(-)
diff --git a/pulsar.el b/pulsar.el
index bbf684f6a7..04711e1fd4 100644
--- a/pulsar.el
+++ b/pulsar.el
@@ -49,7 +49,7 @@
"Extensions for `pulse.el'."
:group 'editing)
-;;;; User options and faces
+;;;; User options
(defcustom pulsar-pulse-functions
'(recenter-top-bottom
@@ -108,6 +108,8 @@ that has a background attribute."
:type 'number
:group 'pulsar)
+;;;; Faces
+
(defgroup pulsar-faces ()
"Faces for `pulsar.el'."
:group 'pulsar)
@@ -172,7 +174,7 @@ that has a background attribute."
"Alternative cyan face for `pulsar-face'."
:group 'pulsar-faces)
-;;;; Functions and commands
+;;;; Pulse functions
(defun pulsar--indentation-only-line-p ()
"Return non-nil if current line has only indentation."
@@ -207,6 +209,8 @@ that has a background attribute."
(let ((pulse-delay pulsar-delay))
(pulse-momentary-highlight-region (pulsar--start) (pulsar--end)
pulsar-face)))
+;;;; Advice setup
+
(defvar pulsar-after-function-hook nil
"Hook that runs after any function in `pulsar-pulse-functions'.")
