diff options
Diffstat (limited to 'lisp/+org.el')
-rw-r--r-- | lisp/+org.el | 76 |
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 |