From fbc201757cafec9f7083185e29b4bc29db8c58ea Mon Sep 17 00:00:00 2001
From: Thanos Apollo <public@thanosapollo.org>
Date: Sun, 14 Jul 2024 07:24:20 +0300
Subject: Add thanos/add-custom-keywords

New function;  Add custom warning keywords.
---
 .config/emacs/init.el | 15 +++++++++++++--
 1 file changed, 13 insertions(+), 2 deletions(-)

(limited to '.config/emacs')

diff --git a/.config/emacs/init.el b/.config/emacs/init.el
index 90439f4..6b58342 100644
--- a/.config/emacs/init.el
+++ b/.config/emacs/init.el
@@ -106,6 +106,14 @@
 
 (setq calendar-date-style 'european)
 
+(defun thanos/add-custom-keywords ()
+  "Add custom warning keywords."
+  (font-lock-add-keywords
+   nil
+   '(("\\<\\(FIXME\\):" 1 font-lock-warning-face t)
+     ("\\<\\(TODO\\):" 1 font-lock-warning-face t)
+     ("\\<\\(NOTE\\):" 1 font-lock-warning-face t))))
+
 (use-package emacs
   :ensure t
   :config
@@ -134,8 +142,11 @@
 	 ("C-x 7" . 'window-swap-states)
 	 ("C-c t" . 'create-text-scratch))
   :hook ((emacs-lisp-mode . prettify-symbols-mode)
+	 (emacs-lisp-mode . thanos/add-custom-keywords)
 	 (lisp-mode . prettify-symbols-mode)
-	 (scheme-mode . prettify-symbols-mode)))
+	 (lisp-mode . thanos/add-custom-keywords)
+	 (scheme-mode . prettify-symbols-mode)
+	 (scheme-mode . thanos/add-custom-keywords)))
 
 (use-package dired
   :straight nil
@@ -407,7 +418,7 @@
 	  ;; (bg-main "#191919") ;; 1337
 	  ;; (bg-main "#1d1f21") ;; tomorrow night
 	  ;; (bg-main "#151515") ;; jazz
-	  (bg-main "#0C0C0C") ;; random black
+	  ;; (bg-main "#0C0C0C") ;; random black
 	  ;; (bg-main "#171717") ;; badger
 	  ;; (overline-heading-1 gold)
 	  (fg-heading-1 red-warmer)
-- 
cgit v1.2.3