summaryrefslogtreecommitdiff
path: root/emacs
diff options
context:
space:
mode:
Diffstat (limited to 'emacs')
-rw-r--r--emacs/init.el7
-rwxr-xr-xemacs/site-lisp/single-header.el3
-rwxr-xr-xemacs/site-lisp/tmu-custom-theme.el4
3 files changed, 8 insertions, 6 deletions
diff --git a/emacs/init.el b/emacs/init.el
index 1e8d2c9..403feb2 100644
--- a/emacs/init.el
+++ b/emacs/init.el
@@ -215,9 +215,10 @@ the cyclic ordering. Don't involve windows that are dedicated."
:demand t
:config
(add-to-list 'dabbrev-ignored-buffer-regexps "\\` ")
- (add-to-list 'dabbrev-ignored-buffer-modes 'doc-view-mode)
- (add-to-list 'dabbrev-ignored-buffer-modes 'pdf-view-mode)
- (add-to-list 'dabbrev-ignored-buffer-modes 'tags-table-mode))
+ ;; (add-to-list 'dabbrev-ignored-buffer-modes 'doc-view-mode)
+ ;; (add-to-list 'dabbrev-ignored-buffer-modes 'pdf-view-mode)
+ ;; (add-to-list 'dabbrev-ignored-buffer-modes 'tags-table-mode)
+ )
;; TODO debug / test
;; (use-package tempel
diff --git a/emacs/site-lisp/single-header.el b/emacs/site-lisp/single-header.el
index 1378384..0080da1 100755
--- a/emacs/site-lisp/single-header.el
+++ b/emacs/site-lisp/single-header.el
@@ -92,7 +92,8 @@ to non-nil. The last update time is in a frame parameter
(s-truncate 8 (ednc-notification-summary e))
(s-truncate 20 (ednc-notification-body e)))
)
- (ednc-notifications)))
+ (ednc-notifications)
+ ""))
(defun single-header-dismiss (num)
"Dismiss the most recent notification from the header line. With a prefix
diff --git a/emacs/site-lisp/tmu-custom-theme.el b/emacs/site-lisp/tmu-custom-theme.el
index bbe5ece..965d7c8 100755
--- a/emacs/site-lisp/tmu-custom-theme.el
+++ b/emacs/site-lisp/tmu-custom-theme.el
@@ -42,7 +42,7 @@
'(font-lock-variable-name-face ((t (:foreground "PaleGreen2"))))
'(font-lock-warning-face ((t (:weight bold :foreground "hot pink"))))
'(button ((t (:inherit (link)))))
- '(link ((((class color) (min-colors 88) (background light)) (:underline (:color foreground-color :style line :position nil) :foreground "RoyalBlue3")) (((class color) (background light)) (:underline (:color foreground-color :style line :position nil) :foreground "blue")) (((class color) (min-colors 88) (background dark)) (:underline (:color foreground-color :style line :position nil) :foreground "cyan1")) (((class color) (background dark)) (:underline (:color foreground-color :style line :position nil) :foreground "cyan")) (t (:inherit (underline)))))
+ '(link ((((class color) (min-colors 88) (background light)) (:underline t)) (((class color) (background light)) (:underline t)) (((class color) (min-colors 88) (background dark)) (:underline t)) (((class color) (background dark)) (:underline t))))
'(link-visited ((default (:inherit (link))) (((class color) (background light)) (:foreground "magenta4")) (((class color) (background dark)) (:foreground "violet"))))
'(fringe ((((class color) (background light)) (:background "grey95")) (((class color) (background dark)) (:background "grey10")) (t (:background "gray"))))
'(header-line ((t (:inherit mode-line))))
@@ -54,7 +54,7 @@
'(mode-line-inactive ((t (:inherit mode-line :foreground "dark gray"))))
'(isearch ((((class color) (min-colors 88) (background light)) (:foreground "lightskyblue1" :background "magenta3")) (((class color) (min-colors 88) (background dark)) (:foreground "brown4" :background "palevioletred2")) (((class color) (min-colors 16)) (:foreground "cyan1" :background "magenta4")) (((class color) (min-colors 8)) (:foreground "cyan1" :background "magenta4")) (t (:inverse-video t))))
'(isearch-fail ((((class color) (min-colors 88) (background light)) (:background "RosyBrown1")) (((class color) (min-colors 88) (background dark)) (:background "red4")) (((class color) (min-colors 16)) (:background "red")) (((class color) (min-colors 8)) (:background "red")) (((class color grayscale)) (:foreground "grey")) (t (:inverse-video t))))
- '(lazy-highlight ((((class color) (min-colors 88) (background light)) (:distant-foreground "black" :background "paleturquoise")) (((class color) (min-colors 88) (background dark)) (:distant-foreground "white" :background "paleturquoise4")) (((class color) (min-colors 16)) (:distant-foreground "white" :background "turquoise3")) (((class color) (min-colors 8)) (:distant-foreground "white" :background "turquoise3")) (t (:underline (:color foreground-color :style line :position nil)))))
+ '(lazy-highlight ((((class color) (min-colors 88) (background light)) (:distant-foreground "black" :background "paleturquoise")) (((class color) (min-colors 88) (background dark)) (:distant-foreground "white" :background "paleturquoise4")) (((class color) (min-colors 16)) (:distant-foreground "white" :background "turquoise3")) (((class color) (min-colors 8)) (:distant-foreground "white" :background "turquoise3")) (t (:underline t))))
'(match ((((class color) (min-colors 88) (background light)) (:background "khaki1")) (((class color) (min-colors 88) (background dark)) (:background "RoyalBlue3")) (((class color) (min-colors 8) (background light)) (:foreground "black" :background "yellow")) (((class color) (min-colors 8) (background dark)) (:foreground "white" :background "blue")) (((type tty) (class mono)) (:inverse-video t)) (t (:background "gray"))))
'(next-error ((t (:inherit (region)))))
'(query-replace ((t (:inherit (isearch)))))