diff --git a/.gitmodules b/.gitmodules index b0c343a..0b05cca 100644 --- a/.gitmodules +++ b/.gitmodules @@ -73,3 +73,6 @@ [submodule "submodule/elgantt"] path = submodule/elgantt url = https://github.com/legalnonsense/elgantt/ +[submodule "submodule/conceal"] + path = submodule/conceal + url = https://github.com/lepisma/conceal diff --git a/lisp/org-config/my-org-weekly-review.el b/lisp/org-config/my-org-weekly-review.el index 1443fd0..15bf0df 100644 --- a/lisp/org-config/my-org-weekly-review.el +++ b/lisp/org-config/my-org-weekly-review.el @@ -68,9 +68,11 @@ (outline-next-heading) (unless current-prefix-arg ;; Check for older review - (when (and (file-exists-p "~/.emacs.d/review-incomplete.el") - (y-or-n-p "Woah, we found an incomplete review. Would you like to use that date as the start date? ")) - (shell-command "mv ~/.emacs.d/review-incomplete.el ~/.emacs.d/last-review.el")) + (if (and (file-exists-p "~/.emacs.d/review-incomplete.el") + (y-or-n-p (format "Woah, we found an incomplete review: %s. Would you like to use that date as the start date? " + (shell-command-to-string "cat ~/.emacs.d/review-incomplete.el | tr -d '\n'")))) + (rename-file "~/.emacs.d/review-incomplete.el" "~/.emacs.d/last-review.el" t) + (delete-file "~/.emacs.d/review-incomplete.el")) ;; Setup current review (let* ((date (org-read-date nil nil (get-last-review-date))) (week (format "%02d" diff --git a/submodule/conceal b/submodule/conceal new file mode 160000 index 0000000..51d9c3b --- /dev/null +++ b/submodule/conceal @@ -0,0 +1 @@ +Subproject commit 51d9c3ba5f4fd50dc3c81d9a581dea4f5d7daab8