From 246eaeb8d16a57ba6b6b524568ef0e1599650935 Mon Sep 17 00:00:00 2001 From: Lars Tveito Date: Tue, 3 Dec 2019 23:16:37 +0100 Subject: [PATCH] Define faces for the unfocused and focused regions --- focus.el | 11 +++++------ 1 file changed, 5 insertions(+), 6 deletions(-) diff --git a/focus.el b/focus.el index 76480aa..16690d1 100644 --- a/focus.el +++ b/focus.el @@ -59,14 +59,13 @@ Things that are defined include `symbol', `list', `sexp', :type '(float) :group 'focus) -(defcustom focus-unfocused-face 'font-lock-comment-face +(defface focus-unfocused-face + '((t :inherit font-lock-comment-face)) "The face that overlays the unfocused area." - :type '(face) :group 'focus) -(defcustom focus-focused-face nil +(defface focus-focused-face nil "The face that overlays the focused area." - :type '(face) :group 'focus) (defvar focus-cursor-type cursor-type @@ -132,8 +131,8 @@ It sets the `focus-pre-overlay', `focus-min-overlay', and focus-mid-overlay (make-overlay (point-min) (point-max)) focus-post-overlay (make-overlay (point-max) (point-max)) focus-buffer (current-buffer)) - (overlay-put focus-mid-overlay 'face focus-focused-face) - (mapc (lambda (o) (overlay-put o 'face focus-unfocused-face)) + (overlay-put focus-mid-overlay 'face 'focus-focused-face) + (mapc (lambda (o) (overlay-put o 'face 'focus-unfocused-face)) (list focus-pre-overlay focus-post-overlay)) (add-hook 'post-command-hook 'focus-move-focus nil t) (add-hook 'change-major-mode-hook 'focus-terminate nil t)))