summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorThanos Apollo <[email protected]>2024-08-06 20:42:33 +0300
committerThanos Apollo <[email protected]>2024-08-06 20:42:47 +0300
commit8473e27447ea28f6fd95069583cd8cecab966e62 (patch)
tree3cd8766eac7007909f0b16afcd3be3f9df243e1d
parent920189bbf57de50feb568131df8440d38657a423 (diff)
Remove old comments & update indentation.
-rw-r--r--gnosis.el36
1 files changed, 18 insertions, 18 deletions
diff --git a/gnosis.el b/gnosis.el
index cc931b2..79dd73b 100644
--- a/gnosis.el
+++ b/gnosis.el
@@ -2251,12 +2251,12 @@ If STRING-SECTION is nil, apply FACE to the entire STRING."
(goto-char (point-min))
(animate-string string vpos hpos)
(and face
- (if string-section
- (progn
- (goto-char (point-min))
- (while (search-forward string-section nil t)
- (add-text-properties (match-beginning 0) (match-end 0) `(face ,face))))
- (add-text-properties (line-beginning-position) (line-end-position) `(face ,face))))))
+ (if string-section
+ (progn
+ (goto-char (point-min))
+ (while (search-forward string-section nil t)
+ (add-text-properties (match-beginning 0) (match-end 0) `(face ,face))))
+ (add-text-properties (line-beginning-position) (line-end-position) `(face ,face))))))
;;;###autoload
(defun gnosis-demo ()
@@ -2332,18 +2332,18 @@ If STRING-SECTION is nil, apply FACE to the entire STRING."
: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."