From c248ab0852bebf1d0ae0d3a002d9e9ee55c97b2e Mon Sep 17 00:00:00 2001 From: Aryadev Chavali Date: Thu, 6 Jan 2022 00:47:37 +0000 Subject: (Emacs)~tons of edits I can't be bothered to annotate any of these. Thinking of making a new Emacs configuration as this one is unnecessarily bloated and I can't think of any other way to fix it. --- Emacs/.config/emacs/elisp/ada-mode.el | 3 +++ Emacs/.config/emacs/elisp/personal-theme.el | 6 +++--- 2 files changed, 6 insertions(+), 3 deletions(-) (limited to 'Emacs/.config/emacs/elisp') diff --git a/Emacs/.config/emacs/elisp/ada-mode.el b/Emacs/.config/emacs/elisp/ada-mode.el index 2dc40d7..a789fc2 100644 --- a/Emacs/.config/emacs/elisp/ada-mode.el +++ b/Emacs/.config/emacs/elisp/ada-mode.el @@ -30,6 +30,9 @@ ;; this opportunity to make a new mode and see what facilities Emacs ;; provides for it. +;;; Other notes: +;; TODO: Handle indenting + ;;; Code: (require 'generic-x) diff --git a/Emacs/.config/emacs/elisp/personal-theme.el b/Emacs/.config/emacs/elisp/personal-theme.el index e2b265a..aa4cd6a 100644 --- a/Emacs/.config/emacs/elisp/personal-theme.el +++ b/Emacs/.config/emacs/elisp/personal-theme.el @@ -1,5 +1,5 @@ (deftheme personal - "Created 2021-07-28.") + "Created 2021-10-20.") (custom-theme-set-faces 'personal @@ -26,13 +26,13 @@ '(font-lock-regexp-grouping-backslash ((t (:inherit (bold))))) '(font-lock-regexp-grouping-construct ((t (:inherit (bold))))) '(font-lock-string-face ((t (:family "Fira Code" :foreground "yellow4")))) - '(font-lock-type-face ((t (:foreground "chartreuse" :height 0.95 :width ultra-expanded :family "Hack")))) + '(font-lock-type-face ((t (:foreground "chartreuse" :family "Liberation Mono")))) '(font-lock-variable-name-face ((t (:family "Source Code Variable" :foreground "#e6e6e6")))) '(font-lock-warning-face ((t (:inherit (error))))) '(button ((t (:inherit (link))))) '(link ((t (:underline (:color foreground-color :style line) :foreground "cyan1")))) '(link-visited ((t (:foreground "violet" :inherit (link))))) - '(fringe ((((class color) (background light)) (:background "grey95")) (((class color) (background dark)) (:background "grey10")) (t (:background "gray")))) + '(fringe ((t (:background "grey4")))) '(header-line ((t (:box nil :foreground "grey90" :background "grey20" :inherit (mode-line))))) '(tooltip ((t (:foreground "black" :background "lightyellow" :inherit (variable-pitch))))) '(mode-line ((t (:box (:line-width -1 :color nil :style released-button) :foreground "white" :background "black")))) -- cgit v1.2.3-13-gbd6f