emac

.emacs.d/themes/handmade-theme.el

@@ -0,0 +1,71 @@
+;;; handmade-theme.el --- A Handmade theme -*- lexical-binding:t -*-
+
+;; Copyright (C) 2022 Niko Pavlinek
+
+;; This is free and unencumbered software released into the public domain.
+
+;; Anyone is free to copy, modify, publish, use, compile, sell, or distribute
+;; this software, either in source code form or as a compiled binary, for any
+;; purpose, commercial or non-commercial, and by any means.
+
+;; In jurisdictions that recognize copyright laws, the author or authors of this
+;; software dedicate any and all copyright interest in the software to the
+;; public domain. We make this dedication for the benefit of the public at large
+;; and to the detriment of our heirs and successors. We intend this dedication
+;; to be an overt act of relinquishment in perpetuity of all present and future
+;; rights to this software under copyright law.
+
+;; THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,EXPRESS OR
+;; IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
+;; FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
+;; AUTHORS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN
+;; ACTION OF CONTRACT, TORT OR OTHERWISE,ARISING FROM, OUT OF OR IN CONNECTION
+;; WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
+
+;; For more information, please refer to <http://unlicense.org/>
+
+(deftheme handmade
+  "A port of the Emacs theme used by Casey Muratori on the Handmade Hero series.")
+
+(defface handmade-important-face nil "")
+(defface handmade-note-face nil "")
+(defface handmade-todo-face nil "")
+
+(mapc (lambda (mode)
+        (font-lock-add-keywords mode '(("\\<\\(IMPORTANT\\)" 1 'handmade-important-face t)
+                                       ("\\<\\(NOTE\\)" 1 'handmade-note-face t)
+                                       ("\\<\\(STUDY\\)" 1 'handmade-important-face t)
+                                       ("\\<\\(TODO\\)" 1 'handmade-todo-face t)
+                                       ("\\<\\(XXX\\)" 1 'handmade-todo-face t))))
+      '(c-mode c++-mode emacs-lisp-mode))
+
+(let ((handmade-beige "burlywood3")
+      (handmade-dark-blue "midnight blue")
+      (handmade-dark-gray "#161616")
+      (handmade-dark-green "DarkGreen")
+      (handmade-gold "DarkGoldenrod3")
+      (handmade-light-beige "#dab98f")
+      (handmade-light-gray "gray50")
+      (handmade-light-green "#40ff40")
+      (handmade-olive "olive drab")
+      (handmade-red "Red")
+      (handmade-yellow "Yellow"))
+  (custom-theme-set-faces
+   'handmade
+   `(cursor ((t (:background ,handmade-light-green))))
+   `(default ((t (:background ,handmade-dark-gray :foreground ,handmade-beige))))
+   `(font-lock-builtin-face ((t (:foreground ,handmade-light-beige))))
+   `(font-lock-comment-face ((t (:foreground ,handmade-light-gray))))
+   `(font-lock-constant-face ((t (:foreground ,handmade-olive))))
+   `(font-lock-doc-face ((t (:foreground ,handmade-light-gray))))
+   `(font-lock-function-name-face ((t (:foreground ,handmade-beige))))
+   `(font-lock-keyword-face ((t (:foreground ,handmade-gold))))
+   `(font-lock-string-face ((t (:foreground ,handmade-olive))))
+   `(font-lock-type-face ((t (:foreground ,handmade-beige))))
+   `(font-lock-variable-name-face ((t (:foreground ,handmade-beige))))
+   `(handmade-important-face ((t (:foreground ,handmade-yellow :weight bold :underline t))))
+   `(handmade-note-face ((t (:foreground ,handmade-dark-green :weight bold :underline t))))
+   `(handmade-todo-face ((t (:foreground ,handmade-red :weight bold :underline t))))
+   `(hl-line ((t (:background ,handmade-dark-blue))))))
+
+(provide-theme 'handmade)