|
|
@@ -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)))
|
|
|
|
