journal.el

@@ -125,6 +125,11 @@
   :type 'string
   :group 'journal)
 
+(defcustom journal-block-date-separator " — "
+  "String to insert before a date in an embedded block."
+  :type 'string
+  :group 'journal)
+
 (defcustom journal-late-time-seconds (* 3 60 60)
   "Number of seconds after midnight that counted as a previous date.
 For instance, if this variable is set to 3 hours (default), when
@@ -283,6 +288,7 @@ Interactively, prompt for a described range."
     (journal-position-windows (current-buffer))
     (journal-insert-entry start-date end-date (current-time))))
 
+;;;###autoload
 (defun journal-position-windows (&optional buffer)
   "Position notes buffer and journal BUFFER into 2 windows.
 Notes buffer is a buffer visiting `journal-notes-file'.
@@ -296,6 +302,7 @@ If BUFFER is nil, use a buffer with `journal-current-file'."
       (switch-to-buffer buffer)
     (find-file journal-current-file)))
 
+;;;###autoload
 (defun journal-insert-subheading ()
   "Insert subentry heading before the current line and prompt for tags."
   (interactive)
@@ -306,12 +313,13 @@ If BUFFER is nil, use a buffer with `journal-current-file'."
       (insert "**** "))
     (org-set-tags)))
 
+;;;###autoload
 (defun journal-insert-block ()
   "Insert block at point."
   (interactive)
   (insert journal-open-block)
   (save-excursion
-    (insert " – ")
+    (insert journal-block-date-separator)
     (org-insert-time-stamp (current-time) 't)
     (insert journal-close-block)))