summaryrefslogtreecommitdiff
path: root/gnosis.el
diff options
context:
space:
mode:
authorThanos Apollo <[email protected]>2024-06-27 14:18:17 +0300
committerThanos Apollo <[email protected]>2024-06-27 14:18:58 +0300
commit2cc330895f1a85844f36b73a54f98717cd8b4d79 (patch)
treebd1d41d814ee8f004b060f78d7525a1d94992aa0 /gnosis.el
parent0d4b92cfd8e1b8d210cf80a689979eaef2ada756 (diff)
Add gnosis-insert-separator
Use a proper separator inspired by org-modern
Diffstat (limited to 'gnosis.el')
-rw-r--r--gnosis.el47
1 files changed, 30 insertions, 17 deletions
diff --git a/gnosis.el b/gnosis.el
index 70ffab3..bd80a83 100644
--- a/gnosis.el
+++ b/gnosis.el
@@ -306,6 +306,19 @@ History is disabled."
if (= i index) collect new-item
else collect item))
+(defun gnosis-insert-separator ()
+ "Insert a dashed line spanning the entire width of the buffer."
+ (interactive)
+ (let* ((width (window-width))
+ (dash-line (concat (make-string width ?-))))
+ (insert "\n" dash-line "\n")
+ ;; Apply an overlay to hide only the dashes
+ (let ((start (save-excursion (forward-line -1) (point)))
+ (end (point)))
+ (let ((overlay (make-overlay start end)))
+ (overlay-put overlay 'face 'gnosis-face-separator)
+ (overlay-put overlay 'display (make-string width ?\s))))))
+
(defun gnosis-display-question (id &optional fill-paragraph-p)
"Display main row for note ID.
@@ -314,7 +327,8 @@ If FILL-PARAGRAPH-P, insert question using `fill-paragraph'."
(erase-buffer)
(if fill-paragraph-p
(fill-paragraph (insert "\n" (propertize question 'face 'gnosis-face-main))))
- (insert "\n" (propertize question 'face 'gnosis-face-main))))
+ (insert "\n" (propertize question 'face 'gnosis-face-main))
+ (gnosis-apply-overlays)))
(defun gnosis-display-mcq-options (id)
"Display answer options for mcq note ID."
@@ -370,9 +384,8 @@ SUCCESS is t when user-input is correct, else nil"
"Display HINT."
(let ((hint (or hint "")))
(goto-char (point-max))
- (insert
- (propertize "\n-----\n" 'face 'gnosis-face-separator)
- (propertize hint 'face 'gnosis-face-hint))))
+ (gnosis-insert-separator)
+ (insert (propertize hint 'face 'gnosis-face-hint))))
(cl-defun gnosis-display-cloze-reveal (&key (cloze-char gnosis-cloze-string) replace (success t) (face nil))
"Replace CLOZE-CHAR with REPLACE.
@@ -429,7 +442,7 @@ Refer to `gnosis-db-schema-extras' for informations on images stored."
"Display extra information & extra-image for note ID."
(let ((extras (or (gnosis-get 'extra-notes 'extras `(= id ,id)) "")))
(goto-char (point-max))
- (insert (propertize "\n\n-----\n" 'face 'gnosis-face-separator))
+ (gnosis-insert-separator)
(gnosis-display-image id 'extra-image)
(fill-paragraph (insert "\n" (propertize extras 'face 'gnosis-face-extra)))))
@@ -2037,18 +2050,18 @@ DASHBOARD-TYPE: either 'Notes' or 'Decks' to display the respective dashboard."
:global t
:group 'gnosis
:lighter nil
- (setq gnosis-due-notes-total (length (gnosis-review-get-due-notes)))
- (if gnosis-modeline-mode
- (progn
- (add-to-list 'global-mode-string '(:eval
- (format " G:%d" gnosis-due-notes-total)))
- (force-mode-line-update))
- (setq global-mode-string
- (seq-remove (lambda (item)
- (and (listp item) (eq (car item) :eval)
- (string-prefix-p " G:" (format "%s" (eval (cadr item))))))
- global-mode-string))
- (force-mode-line-update)))
+ (setq gnosis-due-notes-total (length (gnosis-review-get-due-notes)))
+ (if gnosis-modeline-mode
+ (progn
+ (add-to-list 'global-mode-string '(:eval
+ (format " G:%d" gnosis-due-notes-total)))
+ (force-mode-line-update))
+ (setq global-mode-string
+ (seq-remove (lambda (item)
+ (and (listp item) (eq (car item) :eval)
+ (string-prefix-p " G:" (format "%s" (eval (cadr item))))))
+ global-mode-string))
+ (force-mode-line-update)))
(define-derived-mode gnosis-mode special-mode "Gnosis"
"Gnosis Mode."