Use actual emacs functions for these

This commit is contained in:
Benson Chu 2020-08-09 17:01:14 -05:00
parent f87fbcaa72
commit 6c07c5c198
3 changed files with 9 additions and 3 deletions

3
.gitmodules vendored
View file

@ -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

View file

@ -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"

1
submodule/conceal Submodule

@ -0,0 +1 @@
Subproject commit 51d9c3ba5f4fd50dc3c81d9a581dea4f5d7daab8