summaryrefslogtreecommitdiff
path: root/gnosis.el
diff options
context:
space:
mode:
Diffstat (limited to 'gnosis.el')
-rw-r--r--gnosis.el15
1 files changed, 10 insertions, 5 deletions
diff --git a/gnosis.el b/gnosis.el
index 7595c6d..0efd544 100644
--- a/gnosis.el
+++ b/gnosis.el
@@ -306,6 +306,14 @@ When nil, review new notes last."
"Face for review action *quit*."
:group 'gnosis-face)
+(defface gnosis-face-dashboard-header
+ '((t :foreground "#ff0a6a" :weight bold))
+ "Face for dashboard header.
+
+Avoid using an increased height value as this messes up with
+`gnosis-center-string' implementation"
+ :group 'gnosis-face)
+
(cl-defun gnosis-select (value table &optional (restrictions '1=1) (flatten nil))
"Select VALUE from TABLE, optionally with RESTRICTIONS.
@@ -2592,10 +2600,6 @@ If STRING-SECTION is nil, apply FACE to the entire STRING."
;; Dashboard
;;;;;;;;;;;;
-(defface gnosis-dashboard-header-face
- '((t :foreground "#ff0a6a" :weight bold))
- "My custom face for both light and dark backgrounds.")
-
(defvar gnosis-dashboard-note-ids nil
"Store note ids for dashboard.")
@@ -3033,7 +3037,8 @@ DASHBOARD-TYPE: either 'Notes' or 'Decks' to display the respective dashboard."
(with-current-buffer buffer
(widget-insert "\n"
(gnosis-center-string
- (format "%s" (propertize "Gnosis Dashboard" 'face 'gnosis-dashboard-header-face))))
+ (format "%s" (propertize "Gnosis Dashboard" 'face
+ 'gnosis-face-dashboard-header))))
(gnosis-insert-separator)
;; (widget-insert (gnosis-center-string (propertize "Stats:" 'face 'underline)) "\n\n")
(widget-insert (gnosis-center-string