From 533964d56966b9570bacf5534005140c4240250f Mon Sep 17 00:00:00 2001 From: Miquel Sabaté Solà Date: Wed, 29 Jun 2016 15:42:34 +0200 Subject: Added the `soria-purple-identifiers` function MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit Signed-off-by: Miquel Sabaté Solà --- soria-theme.el | 20 ++++++++++++++++---- 1 file changed, 16 insertions(+), 4 deletions(-) (limited to 'soria-theme.el') diff --git a/soria-theme.el b/soria-theme.el index fba49b7..d87f29d 100644 --- a/soria-theme.el +++ b/soria-theme.el @@ -63,9 +63,10 @@ The theme has to be reloaded after changing anything in this group." (set-face-attribute 'font-lock-number-face nil :inherit font-lock-constant-face) (setq font-lock-number-face 'font-lock-number-face) -; add-font-lock-numbers adds to the list of keywords of font-lock-number-face -; the supported numeric formats (decimal, octal, hex and bin). (defun add-font-lock-numbers () + "Add to the list of keywords numeric formats. +It adds to font-lock-number-face decimal, octal, hex and bin formats." + (defvar font-lock-number "[0-9]+\\([eE][+-]?[0-9]*\\)?") (defvar font-lock-hexnumber "0[xX][0-9a-fA-F]+") (defvar font-lock-binnumber "0[bB][01]+") @@ -199,7 +200,7 @@ The theme has to be reloaded after changing anything in this group." ((,class (:inherit font-lock-comment-face)))) `(font-lock-function-name-face - ((,class (:foreground ,soria-purple)))) + ((,class (:foreground ,soria-white)))) `(font-lock-variable-name-face ((,class (:foreground ,soria-white)))) @@ -392,7 +393,7 @@ The theme has to be reloaded after changing anything in this group." ;; eldoc `(eldoc-highlight-function-argument - ((,class (:foreground ,soria-darkgreen + ((,class (:foreground ,soria-green :underline nil)))) ;; eshell @@ -436,6 +437,17 @@ The theme has to be reloaded after changing anything in this group." (add-hook 'prog-mode-hook 'add-font-lock-numbers) +(defun soria-purple-identifiers () + "Make function identifiers purple. +This function might be used as a hook for modes that prefer having purple +function identifiers instead of the default white. This might seem hachish, but +it tries to workaround discrepencies between Vim and Emacs in terms of +identifiers" + + (let ((soria-purple "#dfafdf")) + (set (make-local-variable 'face-remapping-alist) + `((font-lock-function-name-face :foreground ,soria-purple))))) + (provide-theme 'soria) ;; Local Variables: -- cgit v1.2.3