Add customization option for the header prefix (Fix alphapapa#108)

casch-at · Sep 20, 2019 · f383c38 · f383c38
1 parent f0ee7ed
commit f383c38
Showing 1 changed file with 5 additions and 1 deletion.
diff --git a/org-super-agenda.el b/org-super-agenda.el
@@ -188,6 +188,10 @@ If a string, a newline is added.  If a character, it is repeated
 to fill window width, and a newline is added."
   :type '(choice character string))
 
+(defcustom org-super-agenda-header-prefix " "
+  "Header prefix for headers."
+  :type 'string)
+
 (defcustom org-super-agenda-date-format "%e %B %Y"
   "Format string for date headers.
 See `format-time-string'."
@@ -270,7 +274,7 @@ face `org-super-agenda-header' appended, and the text properties
                           (character (concat (s-repeat (window-width) org-super-agenda-header-separator)
                                              "\n"))
                           (string org-super-agenda-header-separator))))
-         (setq s (concat " " s))
+         (setq s (concat org-super-agenda-header-prefix s))
          (add-face-text-property 0 (length s) 'org-super-agenda-header t s)
          (org-add-props s nil
            'keymap org-super-agenda-header-map