summary refs log tree commit diff stats
path: root/lisp/+org.el
diff options
context:
space:
mode:
authorCase Duckworth2022-10-17 21:27:59 -0500
committerCase Duckworth2022-10-17 21:27:59 -0500
commit3e78d1f8ca5b100f39577790614433398bc6a422 (patch)
treef65f3164ac143c81da877375adce7f1f1492a01f /lisp/+org.el
parentbleh (diff)
downloademacs-3e78d1f8ca5b100f39577790614433398bc6a422.tar.gz
emacs-3e78d1f8ca5b100f39577790614433398bc6a422.zip
asoi
Diffstat (limited to 'lisp/+org.el')
-rw-r--r--lisp/+org.el76
1 files changed, 43 insertions, 33 deletions
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."
343 (+org-unsmartify) 343 (+org-unsmartify)
344 (+org-fix-blank-lines t) 344 (+org-fix-blank-lines t)
345 (org-align-tags t) 345 (org-align-tags t)
346 (org-hide-drawer-all)
346 (when (buffer-narrowed-p) 347 (when (buffer-narrowed-p)
347 (goto-char (point-min)) 348 (goto-char (point-min))
348 (forward-line 1) 349 (forward-line 1)
@@ -731,39 +732,48 @@ When called with a prefix ARG, will still unconditionally call
731 732
732 733
733;;; move org archives to a dedicated file 734;;; move org archives to a dedicated file
734(defun +org-archive-monthwise (archive-file) 735;; (defun +org-archive-monthwise (archive-file)
735 (if (file-exists-p archive-file) 736;; (if (file-exists-p archive-file)
736 (with-current-buffer (find-file-noselect archive-file) 737;; (with-current-buffer (find-file-noselect archive-file)
737 (let ((dir (file-name-directory (file-truename archive-file))) 738;; (let ((dir (file-name-directory (file-truename archive-file)))
738 (prog (make-progress-reporter (format "Archiving from %s..." archive-file))) 739;; (prog (make-progress-reporter (format "Archiving from %s..." archive-file)))
739 (keep-going t)) 740;; (keep-going t))
740 (goto-char (point-min)) 741;; (goto-char (point-min))
741 (while keep-going 742;; (while keep-going
742 (when-let* ((time (or (org-entry-get (point) "ARCHIVE_TIME") 743;; (when-let* ((time (or (org-entry-get (point) "ARCHIVE_TIME")
743 (org-get-deadline-time (point)))) 744;; (org-get-deadline-time (point))))
744 (parsed-time (and time 745;; (parsed-time (and time
745 (org-parse-time-string time))) 746;; (org-parse-time-string time)))
746 (refile-target (format "%s%02d-%02d.org" 747;; (refile-target (format "%s%02d-%02d.org"
747 dir 748;; dir
748 (decoded-time-year parsed-time) 749;; (decoded-time-year parsed-time)
749 (decoded-time-month parsed-time))) 750;; (decoded-time-month parsed-time)))
750 (title-str (format "#+title: Archive for %02d-%02d (%s)\n\n" 751;; (title-str (format "#+title: Archive for %02d-%02d (%s)\n\n"
751 (decoded-time-year parsed-time) 752;; (decoded-time-year parsed-time)
752 (decoded-time-month parsed-time) 753;; (decoded-time-month parsed-time)
753 (file-truename archive-file)))) 754;; (file-truename archive-file))))
754 (unless (file-exists-p refile-target) 755;; (unless (file-exists-p refile-target)
755 (with-current-buffer (find-file-noselect refile-target) 756;; (with-current-buffer (find-file-noselect refile-target)
756 (insert title-str) 757;; (insert title-str)
757 (save-buffer))) 758;; (save-buffer)))
758 (org-refile nil nil (list "" 759;; (org-refile nil nil (list ""
759 refile-target 760;; refile-target
760 nil 761;; nil
761 0))) 762;; 0)))
762 (progress-reporter-update prog) 763;; (progress-reporter-update prog)
763 (org-next-visible-heading 1) 764;; (org-next-visible-heading 1)
764 (when (>= (point) (point-max)) 765;; (when (>= (point) (point-max))
765 (setq keep-going nil))))) 766;; (setq keep-going nil)))))
766 (message "Archive file %s does not exist!" archive-file))) 767;; (message "Archive file %s does not exist!" archive-file)))
768
769
770;;; +org-toggle-view-emphasis
771;; I thought this function was already written somewhere...
772(defun +org-toggle-view-emphasis ()
773 "Toggle `org-hide-emphasis-markers' and redraw the buffer."
774 (interactive)
775 (setq-local org-hide-emphasis-markers (not org-hide-emphasis-markers))
776 (font-lock-update))
767 777
768 778
769;;; el-patch 779;;; el-patch