From 3e78d1f8ca5b100f39577790614433398bc6a422 Mon Sep 17 00:00:00 2001
From: Case Duckworth
Date: Mon, 17 Oct 2022 21:27:59 -0500
Subject: asoi

---
 lisp/+org.el | 76 ++++++++++++++++++++++++++++++++++--------------------------
 1 file changed, 43 insertions(+), 33 deletions(-)

(limited to 'lisp/+org.el')

diff --git a/lisp/+org.el b/lisp/+org.el
index 2557671..dc0ce1b 100644
--- a/lisp/+org.el
+++ b/lisp/+org.el
@@ -343,6 +343,7 @@ Return as a list."
       (+org-unsmartify)
       (+org-fix-blank-lines t)
       (org-align-tags t)
+      (org-hide-drawer-all)
       (when (buffer-narrowed-p)
         (goto-char (point-min))
         (forward-line 1)
@@ -731,39 +732,48 @@ When called with a prefix ARG, will still unconditionally call
 
 
 ;;; move org archives to a dedicated file
-(defun +org-archive-monthwise (archive-file)
-  (if (file-exists-p archive-file)
-      (with-current-buffer (find-file-noselect archive-file)
-        (let ((dir (file-name-directory (file-truename archive-file)))
-              (prog (make-progress-reporter (format "Archiving from %s..." archive-file)))
-              (keep-going t))
-          (goto-char (point-min))
-          (while keep-going
-            (when-let* ((time (or (org-entry-get (point) "ARCHIVE_TIME")
-                                  (org-get-deadline-time (point))))
-                        (parsed-time (and time
-                                          (org-parse-time-string time)))
-                        (refile-target (format "%s%02d-%02d.org"
-                                               dir
-                                               (decoded-time-year parsed-time)
-                                               (decoded-time-month parsed-time)))
-                        (title-str (format "#+title: Archive for %02d-%02d (%s)\n\n"
-                                           (decoded-time-year parsed-time)
-                                           (decoded-time-month parsed-time)
-                                           (file-truename archive-file))))
-              (unless (file-exists-p refile-target)
-                (with-current-buffer (find-file-noselect refile-target)
-                  (insert title-str)
-                  (save-buffer)))
-              (org-refile nil nil (list ""
-                                        refile-target
-                                        nil
-                                        0)))
-            (progress-reporter-update prog)
-            (org-next-visible-heading 1)
-            (when (>= (point) (point-max))
-              (setq keep-going nil)))))
-    (message "Archive file %s does not exist!" archive-file)))
+;; (defun +org-archive-monthwise (archive-file)
+;;   (if (file-exists-p archive-file)
+;;       (with-current-buffer (find-file-noselect archive-file)
+;;         (let ((dir (file-name-directory (file-truename archive-file)))
+;;               (prog (make-progress-reporter (format "Archiving from %s..." archive-file)))
+;;               (keep-going t))
+;;           (goto-char (point-min))
+;;           (while keep-going
+;;             (when-let* ((time (or (org-entry-get (point) "ARCHIVE_TIME")
+;;                                   (org-get-deadline-time (point))))
+;;                         (parsed-time (and time
+;;                                           (org-parse-time-string time)))
+;;                         (refile-target (format "%s%02d-%02d.org"
+;;                                                dir
+;;                                                (decoded-time-year parsed-time)
+;;                                                (decoded-time-month parsed-time)))
+;;                         (title-str (format "#+title: Archive for %02d-%02d (%s)\n\n"
+;;                                            (decoded-time-year parsed-time)
+;;                                            (decoded-time-month parsed-time)
+;;                                            (file-truename archive-file))))
+;;               (unless (file-exists-p refile-target)
+;;                 (with-current-buffer (find-file-noselect refile-target)
+;;                   (insert title-str)
+;;                   (save-buffer)))
+;;               (org-refile nil nil (list ""
+;;                                         refile-target
+;;                                         nil
+;;                                         0)))
+;;             (progress-reporter-update prog)
+;;             (org-next-visible-heading 1)
+;;             (when (>= (point) (point-max))
+;;               (setq keep-going nil)))))
+;;     (message "Archive file %s does not exist!" archive-file)))
+
+
+;;; +org-toggle-view-emphasis
+;; I thought this function was already written somewhere...
+(defun +org-toggle-view-emphasis ()
+  "Toggle `org-hide-emphasis-markers' and redraw the buffer."
+  (interactive)
+  (setq-local org-hide-emphasis-markers (not org-hide-emphasis-markers))
+  (font-lock-update))
 
 
 ;;; el-patch
-- 
cgit 1.4.1-21-gabe81