Yet another random periodic commit.

candera · Sep 28, 2023 · 589b83c · 589b83c
1 parent 6c9ca79
commit 589b83c
Show file tree

Hide file tree

Showing 3 changed files with 267 additions and 78 deletions.
diff --git a/candera/journal.el b/candera/journal.el
@@ -17,6 +17,11 @@
   (interactive "MDate: ")
   (message (format "%d" (days-to-date (time-n-days-ago 0) date))))
 
+(defvar candera:log-file-target-date
+  nil
+  ;; "2023-06-30"
+  )
+
 (defun find-yesterday-log-file (&optional days-ago)
   "Open a file that has the default settings for yesterday's entry"
   (interactive "p")
@@ -44,7 +49,10 @@
                              (string-to-number
                               (format-time-string "%e" logfile-date)))
                             (format-time-string ", %Y." logfile-date)
-                            (format "\n\n%d days remaining." (days-to-date logfile-date "2023-07-01"))))
+			    (if candera:log-file-target-date
+				(format "\n\n%d days remaining." (days-to-date logfile-date candera:log-file-target-date))
+			      "")
+			    ))
             ;; Auto save over SSH is a PITA. This will still auto-save
             ;; on idle.
             (when (or (numberp (string-match "/ssh:" new-logfile-filename))

diff --git a/candera/outline-presentation.el b/candera/outline-presentation.el
@@ -50,7 +50,7 @@
 
 (defun outline-presentation-start ()
   "Begin the presentation by making only the current node visible"
-  (outline-mode) 
+  ;; (outline-mode) 
   (outline-back-to-heading)
   (let ((start (point)))
     (outline-next-heading)
@@ -84,4 +84,4 @@
   (outline-back-to-heading t))
 
 
-
+