From 5355440ea36eb9d46b92cc4d15d6268177f67189 Mon Sep 17 00:00:00 2001
From: Abin Simon <mail@meain.io>
Date: Tue, 26 Sep 2023 16:00:21 +0530
Subject: [PATCH] [emacs] add logseq related functions

The more stuff here makes me feel better about logseq not using
commonmark and having some custom bits. This along with logseqlsp
should be a good way to do more logseq stuff from Emacs.
---
 emacs/.config/emacs/init.el | 79 +++++++++++++++++++++++++++++++++++++
 1 file changed, 79 insertions(+)

diff --git a/emacs/.config/emacs/init.el b/emacs/.config/emacs/init.el
index 854e7757..f135a4f1 100644
--- a/emacs/.config/emacs/init.el
+++ b/emacs/.config/emacs/init.el
@@ -1967,6 +1967,85 @@ Giving it a name so that I can target it in vertico mode and make it use buffer.
                   (meain/with-alternate (consult-tree-jump-search "!mock !_test ")
                                         (tree-jump-search))))
 
+;; LogSeq related things
+(use-package emacs
+  :config
+  (defvar logseq-directory "~/.local/share/logseq/"
+    "The directory where logseq files are stored.")
+
+  (defun logseq-journal-today ()
+    "Open the journal for today."
+    (interactive)
+    (let ((date (format-time-string "%Y_%m_%d")))
+      (find-file (concat logseq-directory "journals/" date ".md"))))
+
+  (defun logseq-journal-previous (&optional count)
+    "If we are already in a journal page, go to the previous journal
+by getting the date from filename.  Does not do anything if we are not
+in a journal page.
+
+COUNT is the number of journal entries to go back by.  You can pass
+negative values to go forward."
+    (interactive)
+    (let ((dir (file-name-nondirectory (directory-file-name (file-name-directory (buffer-file-name)))))
+          (fn (file-name-nondirectory (buffer-file-name))))
+      (if (equal dir "journals")
+          ;; filename will be in the format %Y_%m_%d
+          (when-let* ((time-segments (split-string (substring fn 0 10) "_"))
+                      (year (string-to-number (car time-segments)))
+                      (month (string-to-number (cadr time-segments)))
+                      (day (string-to-number (caddr time-segments)))
+                      (date (encode-time (list 0 0 0 day month year)))
+                      (fname (format-time-string
+                              "%Y_%m_%d"
+                              (time-subtract date
+                                             (days-to-time (if count count 1)))))
+                      (path (concat logseq-directory "journals/" fname ".md")))
+            (when (or
+                 (file-exists-p path)
+                 (yes-or-no-p "Journal page does not exist.  Create new?"))
+                (find-file path)))
+        (message "Not in a journal page."))))
+
+  (defun logseq-journal-next ()
+    "Go to next journal page.
+Use `logseq-journal-previous' with a negative argument when using
+interactively."
+    (declare (interactive-only t))
+    (interactive)
+    (logseq-journal-previous -1))
+
+  (defun logseq-journal-entry ()
+    "Add an entry to today's journal.
+The journal entry line will be prefixed by the current timestamp."
+    (interactive)
+    (when-let ((text (read-string "Entry: "))
+               (time (format-time-string "**%H:%M**"))
+               (date (format-time-string "%Y_%m_%d")))
+      ;; Append an entry to today's journal
+      (with-temp-buffer
+        (insert-file-contents (concat logseq-directory "journals/" date ".md"))
+        (goto-char (point-max))
+        (insert (concat "\n- " time " " text))
+        (write-file (concat logseq-directory "journals/" date ".md")))))
+
+  (defun logseq-journal-open (date)
+    "Open a journal for a given date.
+DATE is a string in the format YYYY_MM_DD.
+In case it is called interactively, the date can be picked using the calendar."
+    (interactive (list (let ((event (calendar-read-date)))
+                         (format "%04d_%02d_%02d" (caddr event) (car event) (cadr event)))))
+    (find-file (concat logseq-directory "journals/" date ".md")))
+
+  (defun logseq-page-open (page)
+    "Open a page in logseq.
+In case it is called interactively, the page is autocompleted from the
+list of available pages."
+    (interactive (list (completing-read
+                        "Page: "
+                        (directory-files (concat logseq-directory "pages/") nil "\\.md$"))))
+    (find-file (concat logseq-directory "pages/" page))))
+
 ;; Tagbar alternative
 (use-package imenu
   :defer t