Add gnosis-review-commit

Creates git repo and commit review session

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