From 8d5f43f0bd77d211cca577b99fc93be7d87a9231 Mon Sep 17 00:00:00 2001 From: plugd Date: Sun, 18 Jul 2021 00:33:45 +0200 Subject: [PATCH] Switched to font-lock and basic faces. --- lurk.el | 17 ++++++++++------- 1 file changed, 10 insertions(+), 7 deletions(-) diff --git a/lurk.el b/lurk.el index bae68ce..d969376 100644 --- a/lurk.el +++ b/lurk.el @@ -65,27 +65,27 @@ "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 - '((t :inherit org-tag)) + '((t :inherit lurk-context)) "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 - '((t :inherit org-agenda-dimmed-todo-face)) + '((t :inherit shadow)) "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 - '((t :inherit org-upcoming-deadline)) + '((t :inherit warning)) "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) - (define-key map (kbd "") '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 "") 'lurk-cycle-contexts-forward) (define-key map (kbd "") 'lurk-cycle-contexts-reverse) (define-key map (kbd "") 'lurk-history-prev) (define-key map (kbd "") 'lurk-history-next) + (when (fboundp 'evil-define-key*) + (evil-define-key* 'motion map + (kbd "TAB") 'lurk-complete-input)) map)) (defvar lurk-mode-map) -- 2.20.1