summaryrefslogtreecommitdiff
path: root/gnosis.el
diff options
context:
space:
mode:
authorThanos Apollo <[email protected]>2024-01-01 05:05:03 +0200
committerThanos Apollo <[email protected]>2024-01-01 05:08:16 +0200
commit5ae6516d6087b09b08800e89b63b0fd3ebf05315 (patch)
tree7ce5c5a42a999736809127728f5358cff6655c67 /gnosis.el
parent7e887ef845fb3ab31d2bad0dba2e971686ce0088 (diff)
Add gnosis-review-commit
Creates git repo and commit review session
Diffstat (limited to 'gnosis.el')
-rw-r--r--gnosis.el35
1 files changed, 29 insertions, 6 deletions
diff --git a/gnosis.el b/gnosis.el
index f522b95..2ff1cbf 100644
--- a/gnosis.el
+++ b/gnosis.el
@@ -716,6 +716,27 @@ Used to reveal all clozes left with `gnosis-face-cloze-unanswered' face."
("cloze" (gnosis-review-cloze id))
(_ (error "Malformed note type")))))))
+(defun gnosis-review-commit (type note-num)
+ "Commit review session on git repository.
+
+This function initializes the `gnosis-dir' as a Git repository if it is not
+already one. It then adds the gnosis.db file to the repository and commits
+the changes with a message containing the review type and the number of notes.
+
+TYPE: The type of the review session.
+NOTE-NUM: The number of notes reviewed in the session."
+ (let ((git (executable-find "git"))
+ (default-directory gnosis-dir))
+ (unless git
+ (error "Git not found, please install git"))
+ (unless (file-exists-p (concat (file-name-as-directory gnosis-dir) ".git"))
+ (shell-command "git init"))
+ (sit-for 0.2)
+ (shell-command (concat git " add " (shell-quote-argument "gnosis.db")))
+ (shell-command (concat git " commit -m "
+ (shell-quote-argument (concat (format "Review type: %s | Notes: %d " type note-num)))))
+ (message "Review session finished. %d notes reviewed." note-num)))
+
(defun gnosis-review-all-with-tags ()
"Review all note(s) with specified tag(s)."
(let ((notes (gnosis-select-by-tag (gnosis-tag-prompt nil t)))
@@ -724,9 +745,9 @@ Used to reveal all clozes left with `gnosis-face-cloze-unanswered' face."
do (progn (gnosis-review-note note)
(setf note-count (1+ note-count))
(when (not (y-or-n-p "Review next?"))
- (message "Review session finished. %d note(s) reviewed." note-count)
+ (gnosis-review-commit "All with tags" note-count)
(cl-return)))
- finally (message "Review session finished. %d note(s) reviewed." note-count))))
+ finally (gnosis-review-commit "Specified tags" note-count))))
(defun gnosis-review-due-tags ()
"Review due notes, with specified tag."
@@ -737,9 +758,9 @@ Used to reveal all clozes left with `gnosis-face-cloze-unanswered' face."
in notes do (progn (gnosis-review-note note)
(setf note-count (1+ note-count ))
(when (not (y-or-n-p "Review next note?"))
- (message "Review session finished. %d note(s) reviewed." note-count)
+ (gnosis-review-commit "Due specified tags" note-count)
(cl-return)))
- finally (message "Review session finished. %d note(s) reviewed." note-count))))
+ finally (gnosis-review-commit "Due specified tags" note-count))))
(defun gnosis-review-all-due-notes ()
"Review all due notes."
@@ -753,13 +774,15 @@ Used to reveal all clozes left with `gnosis-face-cloze-unanswered' face."
do (progn (gnosis-review-note (car note))
(setf note-count (+ note-count 1))
(when (not (y-or-n-p "Review next note?"))
- (message "Review session finished. %d note(s) reviewed." note-count)
+ (gnosis-review-commit "Due notes" note-count)
(cl-return)))
- finally (message "Review session finished. %d note(s) reviewed." note-count))))))
+ finally (progn (gnosis-review-commit "Due notes" note-count)
+ (message "Review session finished. %d note(s) reviewed." note-count)))))))
;;;###autoload
(defun gnosis-review ()
"Start gnosis review session."
(interactive)
+ (gnosis-db-init)
(let ((review-type (completing-read "Review: " '("Due notes"
"Due notes of specified tag(s)"
"Notes with tag(s)"))))