The Lambda Lab
/
projects
/
lurk.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (from parent 1:
1ad3187
)
Switched to font-lock and basic faces.
author
plugd
<plugd@thelambdalab.xyz>
Sat, 17 Jul 2021 22:33:45 +0000
(
00:33
+0200)
committer
plugd
<plugd@thelambdalab.xyz>
Sat, 17 Jul 2021 22:33:45 +0000
(
00:33
+0200)
lurk.el
patch
|
blob
|
history
diff --git
a/lurk.el
b/lurk.el
index
bae68ce
..
d969376
100644
(file)
--- a/
lurk.el
+++ b/
lurk.el
@@
-65,27
+65,27
@@
"Face used for Lurk text.")
(defface lurk-prompt
"Face used for Lurk text.")
(defface lurk-prompt
- '((t :inherit
org-priority
))
+ '((t :inherit
font-lock-keyword-face
))
"Face used for the prompt.")
(defface lurk-context
"Face used for the prompt.")
(defface lurk-context
- '((t :inherit
org-tag
))
+ '((t :inherit
lurk-context
))
"Face used for the context name in the prompt.")
(defface lurk-faded
"Face used for the context name in the prompt.")
(defface lurk-faded
- '((t :inherit
org-agenda-dimmed-todo-face
))
+ '((t :inherit
shadow
))
"Face used for faded Lurk text.")
(defface lurk-timestamp
"Face used for faded Lurk text.")
(defface lurk-timestamp
- '((t :inherit
org-agenda-dimmed-todo-face
))
+ '((t :inherit
shadow
))
"Face used for timestamps.")
(defface lurk-error
"Face used for timestamps.")
(defface lurk-error
- '((t :inherit
font-lock-regexp-grouping-construct
))
+ '((t :inherit
error
))
"Face used for Lurk error text.")
(defface lurk-notice
"Face used for Lurk error text.")
(defface lurk-notice
- '((t :inherit
org-upcoming-deadline
))
+ '((t :inherit
warning
))
"Face used for Lurk notice text.")
;;; Global variables
"Face used for Lurk notice text.")
;;; Global variables
@@
-1091,12
+1091,15
@@
in which case they match anything.")
(defvar lurk-mode-map
(let ((map (make-sparse-keymap)))
(define-key map (kbd "RET") 'lurk-enter)
(defvar lurk-mode-map
(let ((map (make-sparse-keymap)))
(define-key map (kbd "RET") 'lurk-enter)
- (define-key map (kbd "
<tab>
") 'lurk-complete-input)
+ (define-key map (kbd "
TAB
") 'lurk-complete-input)
(define-key map (kbd "C-c C-z") 'lurk-toggle-zoom)
(define-key map (kbd "<C-tab>") 'lurk-cycle-contexts-forward)
(define-key map (kbd "<C-S-tab>") 'lurk-cycle-contexts-reverse)
(define-key map (kbd "<C-up>") 'lurk-history-prev)
(define-key map (kbd "<C-down>") 'lurk-history-next)
(define-key map (kbd "C-c C-z") 'lurk-toggle-zoom)
(define-key map (kbd "<C-tab>") 'lurk-cycle-contexts-forward)
(define-key map (kbd "<C-S-tab>") 'lurk-cycle-contexts-reverse)
(define-key map (kbd "<C-up>") 'lurk-history-prev)
(define-key map (kbd "<C-down>") 'lurk-history-next)
+ (when (fboundp 'evil-define-key*)
+ (evil-define-key* 'motion map
+ (kbd "TAB") 'lurk-complete-input))
map))
(defvar lurk-mode-map)
map))
(defvar lurk-mode-map)