diff options
Diffstat (limited to 'emacs/libs')
| -rw-r--r-- | emacs/libs/center-helm-buffer.el | 55 | ||||
| -rw-r--r-- | emacs/libs/lambda-line.el | 1825 | ||||
| -rw-r--r-- | emacs/libs/minad.el | 89 | ||||
| m--------- | emacs/libs/nano-emacs | 0 | ||||
| -rw-r--r-- | emacs/libs/penumbra-theme.el | 512 | ||||
| m--------- | emacs/libs/slime | 0 | ||||
| -rw-r--r-- | emacs/libs/utils.el | 17 |
7 files changed, 2498 insertions, 0 deletions
diff --git a/emacs/libs/center-helm-buffer.el b/emacs/libs/center-helm-buffer.el new file mode 100644 index 0000000..85f8438 --- /dev/null +++ b/emacs/libs/center-helm-buffer.el @@ -0,0 +1,55 @@ +;;; package --- Center the helm buffer to the emacs window +;;; Commentary: + +;;; Code: + +(defun my-helm-display-frame-center (buffer &optional resume) + "Display `BUFFER' in a separate frame which centered in parent frame. + +I don't know what's RESUME." + (if (not (display-graphic-p)) + ;; Fallback to default when frames are not usable. + (helm-default-display-buffer buffer) + (setq helm--buffer-in-new-frame-p t) + (let* ((parent (selected-frame)) + (frame-pos (frame-position parent)) + (parent-left (car frame-pos)) + (parent-top (cdr frame-pos)) + (width (/ (frame-width parent) 2)) + (height (/ (frame-height parent) 3)) + tab-bar-mode + (default-frame-alist + (if resume + (buffer-local-value 'helm--last-frame-parameters + (get-buffer buffer)) + `((parent . ,parent) + (width . ,width) + (height . ,height) + (undecorated . ,helm-use-undecorated-frame-option) + (left-fringe . 0) + (right-fringe . 0) + (tool-bar-lines . 0) + (line-spacing . 0) + (desktop-dont-save . t) + (no-special-glyphs . t) + (inhibit-double-buffering . t) + (tool-bar-lines . 0) + (left . ,(+ parent-left (/ (* (frame-char-width parent) (frame-width parent)) 4))) + (top . ,(+ parent-top (/ (* (frame-char-width parent) (frame-height parent)) 2))) + (title . "Helm") + (vertical-scroll-bars . nil) + (menu-bar-lines . 0) + (fullscreen . nil) + (visible . ,(null helm-display-buffer-reuse-frame)) + ;; (internal-border-width . ,(if IS-MAC 1 0)) + ))) + display-buffer-alist) + (set-face-background 'internal-border (face-foreground 'default)) + (helm-display-buffer-popup-frame buffer default-frame-alist)) + (helm-log-run-hook 'helm-window-configuration-hook))) + +(setq helm-display-function 'my-helm-display-frame-center) + + +(provide 'center-helm-buffer) +;;; center-helm-buffer.el ends here diff --git a/emacs/libs/lambda-line.el b/emacs/libs/lambda-line.el new file mode 100644 index 0000000..acbd660 --- /dev/null +++ b/emacs/libs/lambda-line.el @@ -0,0 +1,1825 @@ +;;; lambda-line.el --- A custom status line -*- lexical-binding: t -*- + +;; Author: Colin McLear +;; Maintainer: Colin McLear +;; Version: 0.2.0 +;; Package-Requires: ((emacs "27.1")) +;; Homepage: https://github.com/Lambda-Emacs/lambda-line +;; Keywords: mode-line faces + +;; This file is NOT part of GNU Emacs + +;; This program is free software: you can redistribute it and/or modify +;; it under the terms of the GNU General Public License as published by +;; the Free Software Foundation, either version 3 of the License, or +;; (at your option) any later version. + +;; This program is distributed in the hope that it will be useful, +;; but WITHOUT ANY WARRANTY; without even the implied warranty of +;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +;; GNU General Public License for more details. + +;; You should have received a copy of the GNU General Public License +;; along with this program. If not, see <https://www.gnu.org/licenses/>. + +;;; Commentary: + +;; lambda-line is a minimal, though opinionated, status-line (i.e. in Emacs the +;; information display either in the mode-line and/or header-line) for use as +;; either header or footer in a buffer. The structure of the status-line takes +;; the following form: [ status | name (primary) tertiary | secondary ] + +;; Usage: M-x lambda-line-mode + +;;; Code: + +(require 'face-remap) +(require 'cl-lib) +(require 'all-the-icons) + +;;;; Group + +(defgroup lambda-line nil + "lambda-line group" + :group 'mode-line + :link '(url-link :tag "Homepage" "https://github.com/Lambda-Emacs/lambda-line")) + +;;;; Custom Variable Settings + +(defcustom lambda-line-window-width-limit 0.25 + "The limit of the window width. +If `window-width' is smaller than the limit, some information won't be +displayed. It can be an integer or a float number. `nil' means no limit." + :type '(choice integer + float + (const :tag "Disable" nil)) + :group 'lambda-line) + +(defcustom lambda-line-position 'bottom + "Default modeline position (top or bottom)" + :type '(choice + (const :tag "Nil" nil) + (const :tag "Top" top) + (const :tag "Bottom" bottom)) + :group 'lambda-line) + +(defcustom lambda-line-prefix t + "Include a prefix icon to indicate buffer status in the status-line." + :type 'boolean + :group 'lambda-line) + +(defcustom lambda-line-prefix-padding t + "Include prefix padding." + :type 'boolean + :group 'lambda-line) + +(defcustom lambda-line-user-mode nil + "User supplied mode to be evaluated for modeline." + :type '(choice (const nil) function) + :group 'lambda-line) + +(defcustom lambda-line-abbrev nil + "If t then show abbreviated mode symbol in modeline. +Default is nil. To change the values of the major-mode symbols +see the value of `lambda-line-abbrev-alist'" + :group 'lambda-line + :type 'boolean) + +(defcustom lambda-line-git-diff-mode-line t + "If t then show diff lines in modeline." + :group 'lambda-line + :type 'boolean) + +(defcustom lambda-line-vc-symbol "" + "Symbol to use in buffers visiting files under version control" + :group 'lambda-line + :type 'string) + +;; Visual Bell +(defcustom lambda-line-visual-bell t + "If t then use `lambda-line-visual-bell'." + :group 'lambda-line + :type 'boolean) + +;; Invert status faces +;; This make lambda-line look more like nano-modeline +(defcustom lambda-line-status-invert nil + "If t then invert the colors to get a box effect for the corner of the status line." + :group 'lambda-line + :type 'boolean) + +;; Mode line symbols +(defcustom lambda-line-gui-ro-symbol " ⨂" ;; ⬤◯⨂ + "Modeline gui read-only symbol." + :group 'lambda-line + :type 'string) + +(defcustom lambda-line-gui-mod-symbol " ⬤" ;; ⨀⬤ + "Modeline gui modified symbol." + :group 'lambda-line + :type 'string) + +(defcustom lambda-line-gui-rw-symbol " ◯" ; λ ◉ ◎ ⬤◯ + "Modeline gui read-write symbol." + :group 'lambda-line + :type 'string) + +(defcustom lambda-line-tty-ro-symbol " 𝛌 " + "Modeline tty read-only symbol." + :group 'lambda-line + :type 'string) + +(defcustom lambda-line-tty-mod-symbol " 𝛌 " + "Modeline tty read-only symbol." + :group 'lambda-line + :type 'string) + +(defcustom lambda-line-tty-rw-symbol " 𝛌 " + "Modeline tty read-write symbol." + :group 'lambda-line + :type 'string) + +(defcustom lambda-line-truncate-value 30 + "Value of modeline truncate-length function." + :group 'lambda-line + :type 'integer) + +(defcustom lambda-line-hspace " " + "Space adjustment for right end of modeline." + :type 'string + :group 'lambda-line) + +(defcustom lambda-line-space-top +.35 + "Space adjustment for top of status-line. +Positive is upwards" + :type 'float + :group 'lambda-line) + +(defcustom lambda-line-space-bottom -.5 + "Space adjustment for bottom of status-line. +Negative is downwards." + :type 'float + :group 'lambda-line) + +(defcustom lambda-line-symbol-position .067 + "Space adjustment for symbol in status-line. +Negative is downwards." + :type 'float + :group 'lambda-line) + +(defcustom lambda-line-syntax t + "Show flycheck/flymake report in status-line." + :type 'boolean + :group 'lambda-line) + +(defcustom lambda-line-flycheck-label "Issues: " + "Show with flycheck/flymake issues count." + :type 'string + :group 'lambda-line) + +(defcustom lambda-line-icon-time nil + "When set to non-nil show the time as an icon clock. +Time info is only shown `display-time-mode' is non-nil" + :type 'boolean + :group 'lambda-line) + +(defcustom lambda-line-time-day-and-date-format " %H:%M %Y-%m-%e " + "`format-time-string'." + :type 'string + :group 'lambda-line) + +(defcustom lambda-line-time-format " %H:%M " + "`format-time-string'." + :type 'string + :group 'lambda-line) + +(defcustom lambda-line-time-icon-format " %s" + "`format-time-string'." + :type 'string + :group 'lambda-line) + +(defcustom lambda-line-display-group-start "(" + "Modeline display group start indicator." + :group 'lambda-line + :type 'string) + +(defcustom lambda-line-display-group-end ")" + "Modeline display group end indicator." + :group 'lambda-line + :type 'string) + +(defcustom lambda-line-mode-formats + '(;; with :mode-p first + (imenu-list-mode :mode-p lambda-line-imenu-list-mode-p + :format lambda-line-imenu-list-mode) + (org-capture-mode :mode-p lambda-line-org-capture-mode-p + :format lambda-line-org-capture-mode + :on-activate lambda-line-org-capture-activate + :on-deactivate lambda-line-org-capture-deactivate) + (prog-mode :mode-p lambda-line-prog-mode-p + :format lambda-line-prog-mode + :on-activate lambda-line-prog-activate + :on-deactivate lambda-line-prog-deactivate) + (mu4e-dashboard-mode :mode-p lambda-line-mu4e-dashboard-mode-p + :format lambda-line-mu4e-dashboard-mode) + (messages-mode :mode-p lambda-line-messages-mode-p + :format lambda-line-messages-mode) + (message-mode :mode-p lambda-line-message-mode-p + :format lambda-line-message-mode) + (term-mode :mode-p lambda-line-term-mode-p + :format lambda-line-term-mode) + (vterm-mode :mode-p lambda-line-vterm-mode-p + :format lambda-line-term-mode) + (eshell-mode :mode-p lambda-line-eshell-mode-p + :format lambda-line-eshell-mode) + (buffer-menu-mode :mode-p lambda-line-buffer-menu-mode-p + :format lambda-line-buffer-menu-mode + :on-activate lambda-line-buffer-menu-activate + :on-deactivate lambda-line-buffer-menu-deactivate) + (calendar-mode :mode-p lambda-line-calendar-mode-p + :format lambda-line-calendar-mode + :on-activate lambda-line-calendar-activate + :on-deactivate lambda-line-calendar-deactivate) + (completion-list-mode :mode-p lambda-line-completion-list-mode-p + :format lambda-line-completion-list-mode) + (deft-mode :mode-p lambda-line-deft-mode-p + :format lambda-line-deft-mode) + (doc-view-mode :mode-p lambda-line-doc-view-mode-p + :format lambda-line-doc-view-mode) + (elfeed-search-mode :mode-p lambda-line-elfeed-search-mode-p + :format lambda-line-elfeed-search-mode + :on-activate lambda-line-elfeed-search-activate + :on-deactivate lambda-line-elfeed-search-deactivate) + (elfeed-show-mode :mode-p lambda-line-elfeed-show-mode-p + :format lambda-line-elfeed-show-mode) + (elpher-mode :mode-p lambda-line-elpher-mode-p + :format lambda-line-elpher-mode + :on-activate lambda-line-elpher-activate) + (help-mode :mode-p lambda-line-help-mode-p + :format lambda-line-help-mode) + (helpful-mode :mode-p lambda-line-helpful-mode-p + :format lambda-line-help-mode) + (info-mode :mode-p lambda-line-info-mode-p + :format lambda-line-info-mode + :on-activate lambda-line-info-activate + :on-deactivate lambda-line-info-deactivate) + (magit-mode :mode-p lambda-line-magit-mode-p + :format lambda-line-magit-mode) + (mu4e-compose-mode :mode-p lambda-line-mu4e-compose-mode-p + :format lambda-line-mu4e-compose-mode) + (mu4e-headers-mode :mode-p lambda-line-mu4e-headers-mode-p + :format lambda-line-mu4e-headers-mode) + (mu4e-loading-mode :mode-p lambda-line-mu4e-loading-mode-p + :format lambda-line-mu4e-loading-mode) + (mu4e-main-mode :mode-p lambda-line-mu4e-main-mode-p + :format lambda-line-mu4e-main-mode) + (mu4e-view-mode :mode-p lambda-line-mu4e-view-mode-p + :format lambda-line-mu4e-view-mode) + (org-agenda-mode :mode-p lambda-line-org-agenda-mode-p + :format lambda-line-org-agenda-mode) + + (org-clock-mode :mode-p lambda-line-org-clock-mode-p + :format lambda-line-org-clock-mode + :on-activate lambda-line-org-clock-activate + :on-deactivate lambda-line-org-clock-deactivate) + (pdf-view-mode :mode-p lambda-line-pdf-view-mode-p + :format lambda-line-pdf-view-mode) + (fundamental-mode :mode-p lambda-line-fundamental-mode-p + :format lambda-line-fundamental-mode) + (text-mode :mode-p lambda-line-text-mode-p + :format lambda-line-text-mode) + + ;; hooks only go last + (ein-notebook-mode :on-activate lambda-line-ein-notebook-activate + :on-deactivate lambda-line-ein-notebook-deactivate) + (esh-mode :on-activate lambda-line-esh-activate + :on-deactivate lambda-line-esh-deactivate) + (ispell-mode :on-activate lambda-line-ispell-activate + :on-deactivate lambda-line-ispell-deactivate) + (mu4e-mode :on-activate lambda-line-mu4e-activate + :on-deactivate lambda-line-mu4e-deactivate)) + + "Modes to be evalued for modeline. +KEY mode name, for reference only. Easier to do lookups and/or replacements. +:MODE-P the function to check if :FORMAT needs to be used, first one wins. +:ON-ACTIVATE and :ON-DEACTIVATE do hook magic on enabling/disabling the mode. +" + :type '(alist :key-type symbol + :value-type (plist :key-type (choice (const :mode-p) + (const :format) + (const :on-activate) + (const :on-deactivate)) + :value-type function)) + :group 'lambda-line) + +(defcustom lambda-line-mode-format-activate-hook nil + "Add hooks on activation of the mode. +This is for those modes that define their own status-line." + :type 'hook + :options '(turn-on-auto-fill flyspell-mode) + :group 'lambda-line) + +(defcustom lambda-line-mode-format-deactivate-hook nil + "Remove hooks on de-activation of the mode. +This is for those modes that define their own status-line." + :type 'hook + :options '(turn-on-auto-fill flyspell-mode) + :group 'lambda-line) + +(defcustom lambda-line-default-mode-format 'lambda-line-default-mode + "Default mode to evaluate. +This is if no match could be found in `lambda-lines-mode-formats'" + :type 'function + :group 'lambda-line) + +;;;; Faces +;;;;; Line Faces + +(defface lambda-line-active + '((t (:inherit (mode-line)))) + "Modeline face for active modeline." + :group 'lambda-line-active) + +(defface lambda-line-inactive + '((t (:inherit (mode-line-inactive)))) + "Modeline face for inactive line." + :group 'lambda-line-inactive) + +(defface lambda-line-hspace-active + '((t (:invisible t :family "Monospace" :inherit (mode-line)))) + "Face for vertical spacer in active line.") + +(defface lambda-line-hspace-inactive + '((t (:invisible t :family "Monospace" :inherit (mode-line-inactive)))) + "Face for vertical spacer in inactive line.") + +(defface lambda-line-active-name + '((t (:inherit (mode-line)))) + "Modeline face for active name element." + :group 'lambda-line-active) + +(defface lambda-line-inactive-name + '((t (:inherit (mode-line-inactive)))) + "Modeline face for inactive name element." + :group 'lambda-line-inactive) + +(defface lambda-line-active-primary + '((t (:weight light :inherit (mode-line)))) + "Modeline face for active primary element." + :group 'lambda-line-active) + +(defface lambda-line-inactive-primary + '((t (:inherit (mode-line-inactive)))) + "Modeline face for inactive primary element." + :group 'lambda-line-inactive) + +(defface lambda-line-active-secondary + '((t (:inherit mode-line))) + "Modeline face for active secondary element." + :group 'lambda-line-active) + +(defface lambda-line-inactive-secondary + '((t (:inherit (mode-line-inactive)))) + "Modeline face for inactive secondary element." + :group 'lambda-line-inactive) + +(defface lambda-line-active-tertiary + '((t (:inherit mode-line))) + "Modeline face for active tertiary element." + :group 'lambda-line-active) + +(defface lambda-line-inactive-tertiary + '((t (:inherit (mode-line-inactive)))) + "Modeline face for inactive tertiary element." + :group 'lambda-line-inactive) + + +;;;;; Status Bar Faces + +;; lambda-line uses a colored symbol to indicate the status of the buffer + +(defface lambda-line-active-status-RO + '((t (:inherit (mode-line) :foreground "yellow" (when lambda-line-status-invert :inverse-video t)))) + "Modeline face for active READ-ONLY element." + :group 'lambda-line-active) + +(defface lambda-line-inactive-status-RO + '((t (:inherit (mode-line-inactive) :foreground "light gray" (when lambda-line-status-invert :inverse-video t)))) + "Modeline face for inactive READ-ONLY element." + :group 'lambda-line-inactive) + +(defface lambda-line-active-status-RW + '((t (:inherit (mode-line) :foreground "green" (when lambda-line-status-invert :inverse-video t)))) + "Modeline face for active READ-WRITE element." + :group 'lambda-line-active) + +(defface lambda-line-inactive-status-RW + '((t (:inherit (mode-line-inactive) :foreground "light gray" (when lambda-line-status-invert :inverse-video t)))) + "Modeline face for inactive READ-WRITE element." + :group 'lambda-line-inactive) + +(defface lambda-line-active-status-MD + '((t (:inherit (mode-line) :foreground "red" (when lambda-line-status-invert :inverse-video t)))) + "Modeline face for active MODIFIED element." + :group 'lambda-line-active) + +(defface lambda-line-inactive-status-MD + '((t (:inherit (mode-line-inactive) :foreground "light gray" (when lambda-line-status-invert :inverse-video t)))) + "Modeline face for inactive MODIFIED element." + :group 'lambda-line-inactive) + + +;;;;; Bell Faces + +(defface lambda-line-visual-bell '((t (:background "red3"))) + "Face to use for the mode-line when `lambda-line-visual-bell-config' is used." + :group 'lambda-line) + +;;;; Setup Functions + +;;;;; Visual bell for mode line + +;; See https://github.com/hlissner/emacs-doom-themes for the basic idea + +(defun lambda-line-visual-bell-fn () + "Blink the status-line red briefly. Set `ring-bell-function' to this to use it." + (let ((lambda-line--bell-cookie (if (eq lambda-line-position 'bottom) + (face-remap-add-relative 'mode-line 'lambda-line-visual-bell) + (face-remap-add-relative 'header-line 'lambda-line-visual-bell))) + (force-mode-line-update t)) + (run-with-timer 0.15 nil + (lambda (cookie buf) + (with-current-buffer buf + (face-remap-remove-relative cookie) + (force-mode-line-update t))) + lambda-line--bell-cookie + (current-buffer)))) + +(defun lambda-line-visual-bell-config () + "Enable flashing the status-line on error." + (setq ring-bell-function #'lambda-line-visual-bell-fn + visible-bell t)) + +;;;;; Abbreviate Major-Mode +;; Source: https://www.masteringemacs.org/article/hiding-replacing-modeline-strings + +(defcustom lambda-line-abbrev-alist + `((dired-mode . "Dir") + (emacs-lisp-mode . "𝛌") + (fundamental-mode . "F") + (helpful-mode . "") + (help-mode . "") + (lisp-interaction-mode . "λΙ") + (markdown-mode . "MD") + (magit-mode . "MG") + (nxhtml-mode . "NX") + (prog-mode . "PR") + (python-mode . "PY") + (text-mode . "TX")) + "Alist for `lambda-line--abbrev'. + +When you add a new element to the alist, keep in mind that you +must pass the correct minor/major mode symbol and a string you +want to use in the modeline *as substitute for* the original." + :type '(alist + :key-type (symbol :tag "Major mode") + :value-type (string :tag "Abbreviation")) + :group 'lambda-line) + +(defun lambda-line--abbrev () + (cl-loop for abbrev in lambda-line-abbrev-alist + do (let* ((mode (car abbrev)) + (mode-str (cdr abbrev)) + (old-mode-str (cdr (assq mode minor-mode-alist)))) + (when old-mode-str + (setcar old-mode-str mode-str)) + ;; major mode + (when (eq mode major-mode) + (setq mode-name mode-str))))) + +;; Set abbrev (default is nil) +(when lambda-line-abbrev + (add-hook 'after-change-major-mode-hook #'lambda-line--abbrev)) + +;;;;; Mode Name +(defun lambda-line-user-mode-p () + "Should the user supplied mode be called for modeline?" + lambda-line-user-mode) + +(defun lambda-line-mode-name () + "Return current major mode name." + (format-mode-line mode-name)) + +;;;;; String Truncate +(defun lambda-line-truncate (str size &optional ellipsis) + "If STR is longer than SIZE, truncate it and add ELLIPSIS." + + (let ((ellipsis (or ellipsis "…"))) + (if (> (length str) size) + (format "%s%s" (substring str 0 (- size (length ellipsis))) ellipsis) + str))) + +;;;;; Branch display +;; ------------------------------------------------------------------- +(defun lambda-line-project-name () + "Return name of project without path." + (file-name-nondirectory (directory-file-name (if (vc-root-dir) (vc-root-dir) "-")))) + +(defun lambda-line-vc-project-branch () + "Show project and branch name for file. +Otherwise show '-'." + (let ((backend (vc-backend buffer-file-name))) + (concat + (if buffer-file-name + (if vc-mode + (let ((project-name (lambda-line-project-name))) + ;; Project name + (unless (string= "-" project-name) + (concat + ;; Divider + (propertize " •" 'face `(:inherit fringe)) + (format " %s" project-name)))))) + + ;; Show branch + (if vc-mode + (concat + lambda-line-vc-symbol (substring-no-properties vc-mode ; + (+ (if (eq backend 'Hg) 2 3) 2))) nil)))) + +;;;;; Dir display +;; From https://amitp.blogspot.com/2011/08/emacs-custom-mode-line.html +(defun lambda-line-shorten-directory (dir max-length) + "Show up to `max-length' characters of a directory name `dir'." + (let ((path (reverse (split-string (abbreviate-file-name dir) "/"))) + (output "")) + (when (and path (equal "" (car path))) + (setq path (cdr path))) + (while (and path (< (length output) (- max-length 4))) + (setq output (concat (car path) "/" output)) + (setq path (cdr path))) + (when path + (setq output (concat "…/" output))) + output)) + +;;;;; Git diff in modeline +;; https://cocktailmake.github.io/posts/emacs-modeline-enhancement-for-git-diff/ +(when lambda-line-git-diff-mode-line + (defadvice vc-git-mode-line-string (after plus-minus (file) compile activate) + "Show the information of git diff in status-line" + (setq ad-return-value + (concat ad-return-value + (let ((plus-minus (vc-git--run-command-string + file "diff" "--numstat" "--"))) + (if (and plus-minus + (string-match "^\\([0-9]+\\)\t\\([0-9]+\\)\t" plus-minus)) + (concat + " " + (format "+%s" (match-string 1 plus-minus)) + (format "-%s" (match-string 2 plus-minus))) + "")))))) + +;;;;; Git Parse Repo Status +;; See https://kitchingroup.cheme.cmu.edu/blog/2014/09/19/A-git-status-Emacs-modeline/ +(defun lambda-line-git-parse-status () + "Display the status of the repo." + (interactive) + (let ((U 0) ; untracked files + (M 0) ; modified files + (O 0) ; other files + (U-files "") + (M-files "") + (O-files "")) + (dolist (line (split-string + (shell-command-to-string "git status --porcelain") + "\n")) + (cond + + ;; ignore empty line at end + ((string= "" line) nil) + + ((string-match "^\\?\\?" line) + (setq U (+ 1 U)) + (setq U-files (concat U-files "\n" line))) + + ((string-match "^ M" line) + (setq M (+ 1 M)) + (setq M-files (concat M-files "\n" line)) + ))) + + ;; construct propertized string + (concat + (propertize + (format "M:%d" M) + 'face (if (> M 0) + 'error + 'success) + 'help-echo M-files) + (propertize "|" 'face 'magit-dimmed) + (propertize + (format "?:%d" U) + 'face (if (> U 0) + 'warning + 'success) + 'help-echo U-files)))) + +;;;;; Flycheck/Flymake Segment +(defvar-local lambda-line--flycheck-text nil) +(defun lambda-line--update-flycheck-segment (&optional status) + "Update `lambda-line--flycheck-text' against the reported flycheck STATUS." + (setq lambda-line--flycheck-text + (pcase status + ('finished (if flycheck-current-errors + (let-alist (flycheck-count-errors flycheck-current-errors) + (let ((sum (+ (or .error 0) (or .warning 0)))) + (propertize (concat lambda-line-flycheck-label + (number-to-string sum) + " ") + 'face (if .error + 'error + 'warning)))) + (propertize "Good " 'face 'success))) + ('running (propertize "Checking " 'face 'info)) + ('errored (propertize "Error " 'face 'error)) + ('interrupted (propertize "Paused " 'face 'fringe)) + ('no-checker "")))) + +(defun lambda-line-check-syntax () + "Display syntax-checking information from flymake/flycheck in the mode-line (if available)." + (if (and (>= emacs-major-version 28) + (boundp 'flymake-mode) + flymake-mode) + (concat (format-mode-line flymake-mode-line-format) " ") + lambda-line--flycheck-text)) + +;;;;; Display-time-mode +(defun lambda-line-install-clockface-fonts () + "Install ClockFace fonts on the local system. + +Thanks to the Doom Emacs project, for the basis of this +cross-platform font dowload/install code." + (interactive) + (let ((on-mac (eq system-type 'darwin)) + (on-linux (memq system-type '(gnu gnu/linux gnu/kfreebsd berkeley-unix))) + (on-windows (memq system-type '(cygwin windows-nt ms-dos))) + (name "ClockFace") + (url-format "https://ocodo.github.io/ClockFace-font/%s") + (fonts-list '("ClockFace-Regular.ttf" + "ClockFaceRect-Regular.ttf" + "ClockFaceSolid-Regular.ttf" + "ClockFaceRectSolid-Regular.ttf"))) + (unless (yes-or-no-p + (format + "Download%sthe ClockFace fonts, continue?" + (if on-windows + " " + " and install "))) + (user-error "Aborted Download of ClockFace fonts")) + (let* ((font-dest + (cond (on-linux + (expand-file-name + "fonts/" (or (getenv "XDG_DATA_HOME") + "~/.local/share"))) + (on-mac + (expand-file-name "~/Library/Fonts/")))) + (known-dest-p (stringp font-dest)) + (font-dest (or font-dest (read-directory-name "Font installation directory: " "~/")))) + (unless (file-directory-p font-dest) + (mkdir font-dest t)) + (dolist (font fonts-list) + (url-copy-file (format url-format font) + (expand-file-name font font-dest) + t)) + (when known-dest-p + (message "Font downloaded, updating font cache... Using <fc-cache -f -v> ") + (shell-command-to-string "fc-cache -f -v")) + (if on-windows + (when (y-or-n-p "The %S font was downloaded, Windows users must install manually.\n\nOpen windows explorer?") + (call-process "explorer.exe" nil nil nil font-dest)) + (message "Successfully %s %S fonts to %S!" + (if known-dest-p + "installed" + "downloaded") + name font-dest))))) + +(defun lambda-line-clockface-select-font () + "Select clockface icon font." + (interactive) + (let ((font (completing-read + "Select clockface icon font: " + '("ClockFace" + "ClockFaceSolid" + "ClockFaceRect" + "ClockFaceRectSolid")))) + (lambda-line-clockface-update-fontset font))) + +(defun lambda-line-clockface-update-fontset (&optional font) + "Use ClockFace font for unicode #xF0000..F008F. +Optionally use another clockface font." + (set-fontset-font + "fontset-default" + (cons (decode-char 'ucs #xF0000) + (decode-char 'ucs #xF008F)) + (or font "ClockFace"))) + +;; Usage example for testing +;; - exal each one after font installation to test. +;; (uses the complete font name now) +;; +;; [x] (lambda-line-clockface-update-fontset "ClockFace") +;; [x] (lambda-line-clockface-update-fontset "ClockFaceRect") +;; [x] (lambda-line-clockface-update-fontset "ClockFaceRectSolid") +;; [x] (lambda-line-clockface-update-fontset "ClockFaceSolid") + +;; Need to add some note about Doom Emacs font-set modification for the user: +;; +;; E.g. +;; +;; Doom Emacs will reset fontset-default when fonts are resized +;; (e.g. after `doom/increase-font-size' or `doom/decrease-font-size') +;; +;; So it's necessary to use `lambda-line-clockface-update-fontset' after such events have +;; completed. +;; +;; (I haven't found a working solution, i.e. using the Doom hook `after-setting-font-hook' doesn't work.) + +(defun lambda-line-clockface-icons-unicode (hours minutes) + "Return ClockFace icon unicode for HOURS and MINUTES." + (let* ((minute (- minutes (% minutes 5))) + (offset (round (+ (* (% hours 12) 12) (* 12 (/ minute 60.0)))))) + (+ offset #xF0000))) + +(defun lambda-line-time () + "Display the time when `display-time-mode' is non-nil." + (when display-time-mode + (let* ((time-unicode + (cl-destructuring-bind (_ minute hour &rest n) (decode-time) + (lambda-line-clockface-icons-unicode hour minute)))) + (concat + (unless lambda-line-icon-time + (if display-time-day-and-date + (propertize (format-time-string lambda-line-time-day-and-date-format)) + (propertize (format-time-string lambda-line-time-format ) 'face `(:height 0.9)))) + (propertize + (format lambda-line-time-icon-format (char-to-string time-unicode) + 'display '(raise 0))))))) + +;;;;; Status +(defun lambda-line-status () + "Return buffer status, one of 'read-only, 'modified or 'read-write." + + (let ((read-only (when (not (or (derived-mode-p 'vterm-mode) + (derived-mode-p 'term-mode) + (derived-mode-p 'Info-mode) + (derived-mode-p 'help-mode) + (derived-mode-p 'helpful-mode) + (derived-mode-p 'elfeed-search) + (derived-mode-p 'elfeed-show))) + buffer-read-only)) + (modified (and buffer-file-name (buffer-modified-p)))) + (cond (modified 'modified) + (read-only 'read-only) + (t 'read-write)))) + +;;;;; Compose Status-Line +(defun lambda-line-compose (status name primary tertiary secondary) + "Compose a string with provided information. +Each section is first defined, along with a measure of the width of the status-line. +STATUS, NAME, PRIMARY, and SECONDARY are always displayed. TERTIARY is displayed only in some modes." + (let* ((window (get-buffer-window (current-buffer))) + + (name-max-width (max 12 + (- (window-body-width) + (round (* 0.8 (length primary))) + (length tertiary) + (length secondary)))) + + (name (if (and (stringp name) (> (length name) name-max-width)) + (format "…%s" (substring name (- (length name) name-max-width -1))) + name)) + + (status (or status (lambda-line-status))) + + (active (eq window lambda-line--selected-window)) + + (prefix (cond ((eq lambda-line-prefix nil) "") + (t + (cond ((derived-mode-p 'term-mode) " >_") + ((derived-mode-p 'vterm-mode) " >_") + ((derived-mode-p 'eshell-mode) " λ:") + ((derived-mode-p 'Info-mode) " ℹ") + ((derived-mode-p 'help-mode) " ") + ((derived-mode-p 'helpful-mode) " ") + ((eq status 'read-only) + (if (display-graphic-p) lambda-line-gui-ro-symbol + lambda-line-tty-ro-symbol)) + ((eq status 'read-write) (if (display-graphic-p) lambda-line-gui-rw-symbol + lambda-line-tty-rw-symbol)) + ((eq status 'modified) (if (display-graphic-p) lambda-line-gui-mod-symbol + lambda-line-tty-mod-symbol)) + ((window-dedicated-p) (if (display-graphic-p) " ––" " --")) + ;; otherwise just use rw symbol + (t (if (display-graphic-p) lambda-line-gui-rw-symbol + lambda-line-tty-rw-symbol)))))) + + (face-modeline (if active + 'lambda-line-active + 'lambda-line-inactive)) + (face-prefix (if (not prefix) face-modeline + (if active + (cond ((eq status 'read-only) 'lambda-line-active-status-RO) + ((eq status 'read-write) 'lambda-line-active-status-RW) + ((eq status 'modified) 'lambda-line-active-status-MD) + ((or (derived-mode-p 'term-mode) + (derived-mode-p 'vterm-mode) + (derived-mode-p 'eshell-mode)) + 'lambda-line-active-status-MD) + ((or (derived-mode-p 'Info-mode) + (derived-mode-p 'help-mode) + (derived-mode-p 'helpful-mode)) + 'lambda-line-active-status-RO) + (t 'lambda-line-active)) + (cond ((eq status 'read-only) 'lambda-line-inactive-status-RO) + ((eq status 'read-write) 'lambda-line-inactive-status-RW) + ((eq status 'modified) 'lambda-line-inactive-status-MD) + ((or (derived-mode-p 'term-mode) + (derived-mode-p 'vterm-mode) + (derived-mode-p 'eshell-mode) + (derived-mode-p 'Info-mode) + (derived-mode-p 'help-mode) + (derived-mode-p 'helpful-mode)) + 'lambda-line-inactive-status-RW) + (t 'lambda-line-inactive))))) + (face-name (if active + 'lambda-line-active-name + 'lambda-line-inactive-name)) + (face-primary (if active + 'lambda-line-active-primary + 'lambda-line-inactive-primary)) + (face-secondary (if active + 'lambda-line-active-secondary + 'lambda-line-inactive-secondary)) + (face-tertiary (if active + 'lambda-line-active-tertiary + 'lambda-line-inactive-tertiary)) + (left + ;; special face for special mode prefixes + (concat + (propertize prefix 'face face-prefix 'display `(raise ,lambda-line-symbol-position)) + ;; this matters for inverse-video! + (propertize " " 'face face-prefix 'display `(raise ,lambda-line-space-top)) + + (when lambda-line-prefix-padding + (propertize " " 'face face-modeline)) + + (propertize name 'face face-name) + + (propertize " " 'face (if active 'lambda-line-active + 'lambda-line-inactive) + 'display `(raise ,lambda-line-space-bottom)) + + (propertize primary 'face face-primary))) + + (right (concat tertiary (propertize secondary 'face face-secondary) (propertize lambda-line-hspace 'face face-modeline))) + + (right-len (length (format-mode-line right)))) + (concat + left + (propertize " " 'face face-modeline 'display `(space :align-to (- right ,right-len))) + right))) + +;;;; Mode Functions +;;;; Default display +(defun lambda-line-default-mode () + "Compose the default status line." + (let ((buffer-name (format-mode-line (if buffer-file-name + (file-name-nondirectory (buffer-file-name)) + "%b"))) + (mode-name (lambda-line-mode-name)) + (branch (lambda-line-vc-project-branch)) + (position (format-mode-line "%l:%c:%o"))) + (lambda-line-compose (lambda-line-status) + (lambda-line-truncate buffer-name lambda-line-truncate-value) + (concat lambda-line-display-group-start + mode-name + (when branch + branch) + lambda-line-display-group-end) + "" + ;; Narrowed buffer + (concat (if (buffer-narrowed-p) + (concat + (propertize "⇥ " 'face `(:inherit lambda-line-inactive-secondary)) + position " ") + position) + (lambda-line-time))))) + +;;;;; Prog Mode +;; --------------------------------------------------------------------- +(defun lambda-line-prog-mode-p () + (derived-mode-p 'prog-mode)) + +(defun lambda-line-prog-mode () + (let ((buffer-name (format-mode-line (if buffer-file-name (file-name-nondirectory (buffer-file-name)) "%b"))) + (mode-name (lambda-line-mode-name)) + (branch (lambda-line-vc-project-branch)) + (position (format-mode-line "%l:%c:%o"))) + (lambda-line-compose (lambda-line-status) + (lambda-line-truncate buffer-name lambda-line-truncate-value) + (concat lambda-line-display-group-start mode-name + (when branch branch) + lambda-line-display-group-end) + + (if lambda-line-syntax + (lambda-line-check-syntax) "") + + (concat + ;; Narrowed buffer + (when (buffer-narrowed-p) + (propertize "⇥ " 'face `(:inherit lambda-line-inactive-secondary))) + (if lambda-line-syntax + (if (or (boundp 'flycheck-mode) + (boundp 'flymake-mode)) + ;; (concat position lambda-line-hspace) + position) + position) + + (lambda-line-time))))) + +(defun lambda-line-prog-activate () + "Setup flycheck hooks." + (add-hook 'flycheck-status-changed-functions #'lambda-line--update-flycheck-segment) + (add-hook 'flycheck-mode-hook #'lambda-line--update-flycheck-segment) + (when lambda-line-git-diff-mode-line + (add-hook 'after-save-hook #'vc-refresh-state))) + +(defun lambda-line-prog-deactivate () + "Remove flycheck hooks." + (remove-hook 'flycheck-status-changed-functions #'lambda-line--update-flycheck-segment) + (remove-hook 'flycheck-mode-hook #'lambda-line--update-flycheck-segment) + (when lambda-line-git-diff-mode-line + (remove-hook 'after-save-hook #'vc-refresh-state))) + +;;;;; Fundamental Mode + +(defun lambda-line-fundamental-mode-p () + (derived-mode-p 'fundamental-mode)) + +(defun lambda-line-fundamental-mode () + (lambda-line-default-mode)) + +;;;;; Text Mode + +(defun lambda-line-text-mode-p () + (derived-mode-p 'text-mode)) + +(defun lambda-line-text-mode () + (lambda-line-default-mode)) + + +;;;;; Help (& Helpful) Mode +(defun lambda-line-help-mode-p () + (derived-mode-p 'help-mode)) + +(defun lambda-line-helpful-mode-p () + (derived-mode-p 'helpful-mode)) + +(defun lambda-line-help-mode () + (lambda-line-compose "HELP" + (format-mode-line "%b") + "" + "" + (format-mode-line "%l:%c:%o"))) + + +;;;;; Info Display +;; --------------------------------------------------------------------- +(defun lambda-line-info-breadcrumbs () + (let ((nodes (Info-toc-nodes Info-current-file)) + (cnode Info-current-node) + (node Info-current-node) + (crumbs ()) + (depth Info-breadcrumbs-depth) + line) + (save-excursion + (while (> depth 0) + (setq node (nth 1 (assoc node nodes))) + (if node (push node crumbs)) + (setq depth (1- depth))) + (setq crumbs (cons "Top" (if (member (pop crumbs) '(nil "Top")) + crumbs (cons nil crumbs)))) + (forward-line 1) + (dolist (node crumbs) + (let ((text + (if (not (equal node "Top")) node + (format "%s" + (if (stringp Info-current-file) + (file-name-sans-extension + (file-name-nondirectory Info-current-file)) + Info-current-file))))) + (setq line (concat line (if (null line) "" " > ") + (if (null node) "..." text))))) + (if (and cnode (not (equal cnode "Top"))) + (setq line (concat line (if (null line) "" " > ") cnode))) + line))) + +(defun lambda-line-info-mode-p () + (derived-mode-p 'Info-mode)) + +(defun lambda-line-info-mode () + (lambda-line-compose "INFO" + "" + (concat lambda-line-display-group-start + (lambda-line-info-breadcrumbs) + lambda-line-display-group-end) + "" + "" + )) + +(defun lambda-line-info-activate () + (if (eq lambda-line-position 'top) + (setq Info-use-header-line nil))) + +(defun lambda-line-info-deactivate () + (custom-reevaluate-setting 'Info-use-header-line)) + +;;;; Term & Vterm +;; --------------------------------------------------------------------- +;; term +(defun lambda-line-term-mode-p () + (derived-mode-p 'term-mode)) + +;; vterm +(defun lambda-line-vterm-mode-p () + (derived-mode-p 'vterm-mode)) + +(defun lambda-line-term-mode () + (lambda-line-compose " >_ " + "Terminal" + (concat lambda-line-display-group-start + (file-name-nondirectory shell-file-name) + lambda-line-display-group-end) + nil + (concat (lambda-line-shorten-directory default-directory 32) + (lambda-line-time)))) + + +;; --------------------------------------------------------------------- + +(defun lambda-line-get-ssh-host (_str) + (let ((split-defdir (split-string default-directory))) + (if (equal (length split-defdir) 1) + (car (split-string (shell-command-to-string "hostname") "\n")) + (cadr split-defdir)))) + +(defun lambda-line-ssh-mode () + (lambda-line-compose " >_ " + "Terminal" + (concat lambda-line-display-group-start + (lambda-line-get-ssh-host default-directory) + lambda-line-display-group-end) + nil + (concat (lambda-line-shorten-directory (car (last (split-string default-directory ":"))) 32) + (lambda-line-time)))) + +;;;; Eshell +;; --------------------------------------------------------------------- +(defun lambda-line-eshell-mode-p () + (derived-mode-p 'eshell-mode)) + +(defun lambda-line-eshell-mode () + (lambda-line-compose " >_ " + "Eshell" + (concat lambda-line-display-group-start + (buffer-name) + lambda-line-display-group-end) + "" + (concat (lambda-line-shorten-directory default-directory 32) + (lambda-line-time)))) + +(defun lambda-line-esh-activate () + (with-eval-after-load 'esh-mode + (setq eshell-status-in-mode-line nil))) + +(defun lambda-line-esh-deactivate () + (custom-reevaluate-setting 'eshell-status-in-mode-line)) + +;;;; Messages Buffer Mode +;; --------------------------------------------------------------------- +(defun lambda-line-messages-mode-p () + (derived-mode-p 'messages-buffer-mode)) + +(defun lambda-line-messages-mode () + (lambda-line-compose (lambda-line-status) + "*Messages*" + "" + "" + (concat "" (lambda-line-time)))) + +;;;; Message Mode +;; --------------------------------------------------------------------- +(defun lambda-line-message-mode-p () + (derived-mode-p 'message-mode)) + +(defun lambda-line-message-mode () + (lambda-line-compose (lambda-line-status) + "Message" "(Draft)" nil (lambda-line-time))) + +;;;; Docview Mode +;;--------------------------------------------------------------------- +(defun lambda-line-doc-view-mode-p () + (derived-mode-p 'doc-view-mode)) + +(defun lambda-line-doc-view-mode () + (let ((buffer-name (format-mode-line "%b")) + (mode-name (lambda-line-mode-name)) + (branch (lambda-line-vc-project-branch)) + (page-number (concat + (number-to-string (doc-view-current-page)) "/" + (or (ignore-errors + (number-to-string (doc-view-last-page-number))) + "???")))) + (lambda-line-compose + (lambda-line-status) + buffer-name + (concat lambda-line-display-group-start mode-name + branch + lambda-line-display-group-end) + nil + (concat page-number + (lambda-line-time))))) + +;;;; PDF View Mode +;; --------------------------------------------------------------------- +(defun lambda-line-pdf-view-mode-p () + (derived-mode-p 'pdf-view-mode)) + +(with-eval-after-load 'pdf-tools + (require 'pdf-view)) + +(defun lambda-line-pdf-view-mode () + (let ((buffer-name (format-mode-line "%b")) + (mode-name (lambda-line-mode-name)) + (branch (lambda-line-vc-project-branch)) + (page-number (concat + (number-to-string (eval `(pdf-view-current-page))) "/" + (or (ignore-errors + (number-to-string (pdf-cache-number-of-pages))) + "???")))) + (lambda-line-compose (lambda-line-status) + buffer-name + (concat lambda-line-display-group-start mode-name + lambda-line-display-group-end) + "" + (concat page-number " " (lambda-line-time))))) + +;;;; MenuMode + +(defun lambda-line-buffer-menu-mode-p () + (derived-mode-p 'buffer-menu-mode)) + +(defun lambda-line-buffer-menu-mode () + (let ((buffer-name "Buffer list") + (mode-name (lambda-line-mode-name)) + (position (format-mode-line "%l:%c:%o"))) + + (lambda-line-compose (lambda-line-status) + buffer-name "" nil (concat position lambda-line-hspace (lambda-line-time))))) + +;;;; Imenu-List +(defun lambda-line-imenu-list-mode-p () + (derived-mode-p 'imenu-list-major-mode)) + +(defun lambda-line-imenu-list-mode () + (let ( + ;; We take into account the case of narrowed buffers + (buffer-name (buffer-name imenu-list--displayed-buffer)) + (branch (lambda-line-vc-project-branch)) + (position (format-mode-line "%l:%c"))) + (lambda-line-compose (lambda-line-status) + buffer-name + "(imenu list)" + "" + ""))) +;;;; Completion +;; --------------------------------------------------------------------- +(defun lambda-line-completion-list-mode-p () + (derived-mode-p 'completion-list-mode)) + +(defun lambda-line-completion-list-mode () + (let ((buffer-name (format-mode-line "%b")) + (mode-name (lambda-line-mode-name)) + (position (format-mode-line "%l:%c:%o"))) + + (lambda-line-compose (lambda-line-status) + buffer-name "" nil (concat position lambda-line-hspace)))) + +;;;; Deft Mode + +(with-eval-after-load 'deft + (defun lambda-line--deft-print-header () + (force-mode-line-update) + (widget-insert "\n"))) + +(defun lambda-line-deft-mode-p () + (derived-mode-p 'deft-mode)) + +(defun lambda-line-deft-mode () + (let ((prefix " DEFT ") + (primary "Search:") + (filter (if deft-filter-regexp + (deft-whole-filter-regexp) "<filter>")) + (matches (if deft-filter-regexp + (format "%d matches" (length deft-current-files)) + (format "%d notes" (length deft-all-files))))) + (lambda-line-compose prefix primary filter nil matches))) + +;;;; Calendar Mode +;; --------------------------------------------------------------------- +(defun lambda-line-calendar-mode-p () + (derived-mode-p 'calendar-mode)) + +(defun lambda-line-calendar-mode () "") + +;; Calendar (no header, only overline) +(with-eval-after-load 'calendar + (defun lambda-line-calendar-setup-header () + (setq header-line-format "") + (face-remap-add-relative + 'header-line `(:overline ,(face-foreground 'default) + :height 0.5 + :background ,(face-background 'default))))) + +(defun lambda-line-calendar-activate () + (with-eval-after-load 'calendar + (add-hook 'calendar-initial-window-hook + #'lambda-line-calendar-setup-header))) + +(defun lambda-line-calendar-deactivate () + (remove-hook 'calendar-initial-window-hook + #'lambda-line-calendar-setup-header)) + +;;;; Org Capture +;; --------------------------------------------------------------------- +(defun lambda-line-org-capture-mode-p () + (bound-and-true-p org-capture-mode)) + +(defun lambda-line-org-capture-mode () + (lambda-line-compose (lambda-line-status) + "Capture" + (concat lambda-line-display-group-start + (org-capture-get :description) + lambda-line-display-group-end) + nil + "Finish: C-c C-c, refile: C-c C-w, cancel: C-c C-k ")) + + +(defun lambda-line-org-capture-turn-off-header-line () + (setq-local header-line-format (default-value 'header-line-format)) + (message nil)) + +(defun lambda-line-org-capture-activate () + (with-eval-after-load 'org-capture + (add-hook 'org-capture-mode-hook + #'lambda-line-org-capture-turn-off-header-line))) + +(defun lambda-line-org-capture-deactivate () + (remove-hook 'org-capture-mode-hook + #'lambda-line-org-capture-turn-off-header-line)) + + +;;;; Org Agenda +;; --------------------------------------------------------------------- +(defun lambda-line-org-agenda-mode-p () + (derived-mode-p 'org-agenda-mode)) + +(defun lambda-line-org-agenda-mode () + (let ((lambda-line-icon-time t)) + (lambda-line-compose (lambda-line-status) + "Agenda" + (concat lambda-line-display-group-start (format "%S" org-agenda-current-span) lambda-line-display-group-end) + "" + (concat (format-time-string "%A, %d %B %Y") + (lambda-line-time) + (format-time-string " %H:%M"))))) + +;;;; Org Clock +;; --------------------------------------------------------------------- +(defun lambda-line-org-clock-mode-p () + (and (boundp 'org-mode-line-string) + (stringp org-mode-line-string))) + +(defun lambda-line-org-clock-mode () + (let ((buffer-name (format-mode-line "%b")) + (mode-name (lambda-line-mode-name)) + (branch (lambda-line-vc-project-branch)) + (position (format-mode-line "%l:%c:%o"))) + (lambda-line-compose (lambda-line-status) + buffer-name + (concat lambda-line-display-group-start + mode-name + (when branch + branch) + lambda-line-display-group-end) + "" + (concat + ;; Narrowed buffer + (when (buffer-narrowed-p) + (propertize "⇥ " 'face `(:inherit lambda-line-inactive-secondary))) + org-mode-line-string + " " + nil + position + lambda-line-hspace)))) + +(defun lambda-line-org-clock-out () + (setq org-mode-line-string nil) + (force-mode-line-update)) + +(defun lambda-line-org-clock-activate () + (with-eval-after-load 'org-clock + (add-hook 'org-clock-out-hook #'lambda-line-org-clock-out))) + +(defun lambda-line-org-clock-deactivate () + (remove-hook 'org-clock-out-hook + #'lambda-line-org-clock-out)) + +;;;; Elfeed +;; --------------------------------------------------------------------- +(defun lambda-line-elfeed-search-mode-p () + (derived-mode-p 'elfeed-search-mode)) + +(defun lambda-line-elfeed-search-mode () + (let* ((status "NEWS") + (no-database (zerop (elfeed-db-last-update))) + (update (> (elfeed-queue-count-total) 0)) + + (name (cond (no-database "No database") + (update "Update:") + (t "Search:"))) + (primary (cond (no-database "") + (update + (let ((total (elfeed-queue-count-total)) + (in-process (elfeed-queue-count-active))) + (format "%d jobs pending, %d active" + (- total in-process) in-process))) + (t (let* ((db-time (seconds-to-time (elfeed-db-last-update))) + (unread)) + (cond (elfeed-search-filter-active "") + ((string-match-p "[^ ]" elfeed-search-filter) + elfeed-search-filter) + ("")))))) + (secondary (concat + (cond + ((zerop (elfeed-db-last-update)) "") + ((> (elfeed-queue-count-total) 0) "") + (t (elfeed-search--count-unread))) + (lambda-line-time)))) + + (lambda-line-compose status name primary nil secondary))) + +;; Elfeed uses header-line, we need to tell it to use our own format +(defun lambda-line-elfeed-setup-header () + (setq header-line-format (default-value 'header-line-format))) + +(defun lambda-line-elfeed-search-activate () + (with-eval-after-load 'elfeed + (if (eq lambda-line-position 'top) + (setq elfeed-search-header-function #'lambda-line-elfeed-setup-header)))) + +(defun lambda-line-elfeed-search-deactivate () + (if (boundp 'elfeed-search-header-function) + (setq elfeed-search-header-function #'elfeed-search--header))) + +;; --------------------------------------------------------------------- +(defun lambda-line-elfeed-show-mode-p () + (derived-mode-p 'elfeed-show-mode)) + +(defun lambda-line-elfeed-show-mode () + (let* ((title (elfeed-entry-title elfeed-show-entry)) + (tags (elfeed-entry-tags elfeed-show-entry)) + (tags-str (mapconcat #'symbol-name tags ", ")) + (tag (if tags + (concat lambda-line-display-group-start + tags-str + lambda-line-display-group-end) + " ")) + (date (seconds-to-time (elfeed-entry-date elfeed-show-entry))) + (feed (elfeed-entry-feed elfeed-show-entry)) + (entry-author (elfeed-meta elfeed-show-entry :author)) + (feed-title (if entry-author + (concat entry-author " (" (elfeed-feed-title feed) ")") + (elfeed-feed-title feed)))) + (lambda-line-compose + "" + (lambda-line-truncate title 65) + tag + "" + (format-time-string "%Y-%m-%d %H:%M:%S" date)))) + + +;;;; Mu4e + +(defun lambda-line-mu4e-last-query () + "Get the most recent mu4e query or nil if there is none." + (if (fboundp 'mu4e-last-query) + (mu4e-last-query) + mu4e~headers-last-query)) + +(defun lambda-line-mu4e-context () + "Return the current mu4e context as a non propertized string." + (if (> (length (mu4e-context-label)) 0) + (concat + lambda-line-display-group-start + (substring-no-properties (mu4e-context-label) 1 -1) + lambda-line-display-group-end) + "(none)")) + +(defun lambda-line-mu4e-server-props () + "Encapsulates the call to the variable mu4e-/~server-props +depending on the version of mu4e." + (if (version< mu4e-mu-version "1.6.0") + mu4e~server-props + mu4e--server-props)) + +(defun lambda-line-mu4e-activate () + (with-eval-after-load 'mu4e + (advice-add 'mu4e~header-line-format :override #'lambda-line))) + +(defun lambda-line-mu4e-deactivate () + (advice-remove #'mu4e~header-line-format #'lambda-line)) + +;; --------------------------------------------------------------------- +(defun lambda-line-mu4e-dashboard-mode-p () + (bound-and-true-p mu4e-dashboard-mode)) + +(defun lambda-line-mu4e-dashboard-mode () + (lambda-line-compose (lambda-line-status) + (format "%d messages" + (plist-get (lambda-line-mu4e-server-props) :doccount)) + "" + "" + (lambda-line-time))) + +;; --------------------------------------------------------------------- +(defun lambda-line-mu4e-loading-mode-p () + (derived-mode-p 'mu4e-loading-mode)) + +(defun lambda-line-mu4e-loading-mode () + (lambda-line-compose (lambda-line-status) + (format-time-string "%A %d %B %Y, %H:%M ") + "" + "Loading..." + (lambda-line-mu4e-context))) + +;; --------------------------------------------------------------------- +(defun lambda-line-mu4e-main-mode-p () + (derived-mode-p 'mu4e-main-mode)) + +(defun lambda-line-mu4e-main-mode () + (lambda-line-compose (lambda-line-status) + (format-time-string "%A %d %B %Y, %H:%M ") + "" + "" + (lambda-line-mu4e-context))) + +;; --------------------------------------------------------------------- +(defun lambda-line-mu4e-compose-mode-p () + (derived-mode-p 'mu4e-compose-mode)) + +(defun lambda-line-mu4e-compose-mode () + (lambda-line-compose (lambda-line-status) + (format-mode-line "%b") + "" + "" + (format "[%s] " + (lambda-line-mu4e-quote + (mu4e-context-name (mu4e-context-current)))))) + +;; --------------------------------------------------------------------- +(defun lambda-line-mu4e-quote (str) + (if (version< mu4e-mu-version "1.8.0") + (mu4e~quote-for-modeline str) + (mu4e-quote-for-modeline str))) + +(defun lambda-line-mu4e-headers-mode-p () + (derived-mode-p 'mu4e-headers-mode)) + +(defun lambda-line-mu4e-headers-mode () + (let ((mu4e-modeline-max-width 80)) + (lambda-line-compose + (lambda-line-status) + "Search:" + (or (lambda-line-mu4e-quote + (lambda-line-mu4e-last-query)) "") + "" + (concat + (format "[%s] " + (lambda-line-mu4e-quote + (mu4e-context-name (mu4e-context-current)))) + (or (lambda-line-time) ""))))) + +;; --------------------------------------------------------------------- +(defun lambda-line-mu4e-view-mode-p () + (derived-mode-p 'mu4e-view-mode)) + +(defun lambda-line-mu4e-view-mode () + (let* ((msg (mu4e-message-at-point)) + (subject (mu4e-message-field msg :subject)) + (from (mu4e~headers-contact-str (mu4e-message-field msg :from))) + (date (mu4e-message-field msg :date))) + (lambda-line-compose (lambda-line-status) + (or from "") + (concat lambda-line-display-group-start + (lambda-line-truncate (or subject "") 50 "…") + lambda-line-display-group-end) + "" + (concat (or (format-time-string mu4e-headers-date-format date) "") " ")))) + +(defun lambda-line-mu4e-activate () + (with-eval-after-load 'mu4e + (advice-add 'mu4e~header-line-format :override #'lambda-line))) + +(defun lambda-line-mu4e-deactivate () + (advice-remove #'mu4e~header-line-format #'lambda-line)) + +;;;; Ein + +(defun lambda-line-ein-notebook-mode () + (let ((buffer-name (format-mode-line "%b"))) + (lambda-line-compose (if (ein:notebook-modified-p) "MD" "RW") + buffer-name + "" + "" + (concat + (ein:header-line) + (lambda-line-time))))) + +;; since the EIN library itself is constantly re-rendering the notebook, and thus +;; re-setting the header-line-format, we cannot use the lambda-line function to set +;; the header format in a notebook buffer. Fortunately, EIN exposes the +;; ein:header-line-format variable for just this purpose. + +(defun lambda-line-ein-notebook-activate () + (with-eval-after-load 'ein + (if (eq lambda-line-position 'top) + (setq ein:header-line-format '((:eval (lambda-line-ein-notebook-mode))))))) + +(defun lambda-line-ein-notebook-deactivate () + (if (boundp 'ein:header-line-format) + (setq ein:header-line-format '(:eval (ein:header-line))))) + + +;;;; Buffer Menu Mode +;; --------------------------------------------------------------------- +(defun lambda-line-buffer-menu-mode-p () + (derived-mode-p 'buffer-menu-mode)) + +(defun lambda-line-buffer-menu-mode () + (let ((buffer-name "Buffer list") + (mode-name (lambda-line-mode-name)) + (position (format-mode-line "%l:%c"))) + + (lambda-line-compose nil + buffer-name + "" + nil + (concat + position + (lambda-line-time))))) + +;;(defun buffer-menu-mode-header-line () +;; (face-remap-add-relative +;; 'header-line `(:background ,(face-background 'nano-subtle)))) +;;(add-hook 'Buffer-menu-mode-hook +;; #'buffer-menu-mode-header-line) + +(defun lambda-line-buffer-menu-activate () + (if (eq lambda-line-position 'top) + (setq Buffer-menu-use-header-line nil))) + +(defun lambda-line-buffer-menu-deactivate () + (custom-reevaluate-setting 'Buffer-menu-use-header-line)) + +;;;; Elpher Mode +;; --------------------------------------------------------------------- +(defun lambda-line-elpher-mode-p () + (derived-mode-p 'elpher-mode)) + +(defun lambda-line-elpher-mode () + (let* ((display-string (elpher-page-display-string elpher-current-page)) + (sanitized-display-string (replace-regexp-in-string "%" "%%" display-string)) + (address (elpher-page-address elpher-current-page)) + (tls-string (if (and (not (elpher-address-about-p address)) + (member (elpher-address-protocol address) + '("gophers" "gemini"))) + "(TLS encryption)" + ""))) + (lambda-line-compose nil + sanitized-display-string + tls-string + nil + (lambda-line-time)))) + +(defun lambda-line-elpher-activate () + (with-eval-after-load 'elpher + (setq elpher-use-header nil))) + +;;;; Ispell Mode +;; --------------------------------------------------------------------- +(defun lambda-line-enlarge-ispell-choices-buffer (buffer) + (when (string= (buffer-name buffer) "*Choices*") + (with-current-buffer buffer + ;; (enlarge-window +2) + (setq-local header-line-format nil) + (setq-local mode-line-format nil)))) + +(defun lambda-line-ispell-activate () + (with-eval-after-load 'ispell + (advice-add #'ispell-display-buffer :after + #'lambda-line-enlarge-ispell-choices-buffer))) + +(defun lambda-line-ispell-deactivate () + (advice-remove #'ispell-display-buffer + #'lambda-line-enlarge-ispell-choices-buffer)) + +;;;; Eldoc +;; --------------------------------------------------------------------- +;; `eldoc-minibuffer-message' changes `mode-line-format' but status-line when +;; `lambda-line-position' is `top' fails to display info. Solution is to move +;; eldoc messages to the minibuffer/echo area. +(when (eq lambda-line-position 'top) + (setq eldoc-message-function #'message)) + +;;;; Magit +;; --------------------------------------------------------------------- +(defun lambda-line-magit-mode-p () + (derived-mode-p 'magit-mode)) + +;; Add functions to parse repo every N seconds +(defvar lambda-line-git-parse-last-update (float-time) "Last time we updated") +(defvar lambda-line-git-parse-update-interval 15 "Minimum time between update in seconds") +(defvar lambda-line-git-parse "" "Last value of the parse") + +(defun lambda-line-magit-mode () + (let* ((buffer-name (format-mode-line + (if buffer-file-name + (file-name-nondirectory (buffer-file-name)) + "%b"))) + (mode-name (lambda-line-mode-name)) + (project (file-name-nondirectory (directory-file-name (magit-toplevel)))) + (branch (magit-get-current-branch)) + (status (lambda-line-git-parse-status))) + (lambda-line-compose (lambda-line-status) + mode-name + (concat lambda-line-display-group-start + project + lambda-line-vc-symbol + branch + lambda-line-display-group-end) + status + ""))) + + +;;;; Setup Lambda-line +;; --------------------------------------------------------------------- +(defun lambda-line-face-clear (face) + "Clear FACE" + (set-face-attribute face nil + :foreground 'unspecified :background 'unspecified + :family 'unspecified :slant 'unspecified + :weight 'unspecified :height 'unspecified + :underline 'unspecified :overline 'unspecified + :box 'unspecified :inherit 'unspecified)) + +;; --------------------------------------------------------------------- +(defvar lambda-line--saved-mode-line-format nil) +(defvar lambda-line--saved-header-line-format nil) +(defvar lambda-line--selected-window nil) + +(defun lambda-line--update-selected-window () + "Update selected window (before mode-line is active)" + (setq lambda-line--selected-window (selected-window))) + +(defun lambda-line () + "Build and set the modeline." + (let* ((format + '((:eval + (funcall + (or (catch 'found + (dolist (elt lambda-line-mode-formats) + (let* ((config (cdr elt)) + (mode-p (plist-get config :mode-p)) + (format (plist-get config :format))) + (when mode-p + (when (funcall mode-p) + (throw 'found format)))))) + lambda-line-default-mode-format)))))) + (if (eq lambda-line-position 'top) + (progn + (setq header-line-format format) + (setq-default header-line-format format)) + (progn + (setq mode-line-format format) + (setq-default mode-line-format format))))) + +(defun lambda-line-update-windows () + "Hide the mode line depending on the presence of a window +below or a buffer local variable 'no-mode-line'." + (dolist (window (window-list)) + (with-selected-window window + (with-current-buffer (window-buffer window) + (if (or (not (boundp 'no-mode-line)) (not no-mode-line)) + (setq mode-line-format + (cond ((one-window-p t) (list "")) + ((eq (window-in-direction 'below) (minibuffer-window)) (list "")) + ((not (window-in-direction 'below)) (list "")) + (t nil)))))))) + +(defun lambda-line-mode--activate () + "Activate lambda-line." + + ;; Save current mode-line and header-line + (unless lambda-line--saved-mode-line-format + (setq lambda-line--saved-mode-line-format mode-line-format) + (setq lambda-line--saved-header-line-format header-line-format)) + + (dolist (elt lambda-line-mode-formats) + (let* ((config (cdr elt)) + (fn (plist-get config :on-activate))) + (when fn (funcall fn)))) + + (run-hooks 'lambda-line-mode-format-activate-hook) + + ;; Update selected window + (lambda-line--update-selected-window) + ;; (setq lambda-line--selected-window (selected-window)) + + (setq mode-line-format nil) + (setq-default mode-line-format nil) + (setq header-line-format nil) + (setq-default header-line-format nil) + + (lambda-line) + + ;; Use lambda-line-visual-bell when var is set to t + (when lambda-line-visual-bell + (lambda-line-visual-bell-config)) + + ;; This hooks is necessary to register selected window because when + ;; a modeline is evaluated, the corresponding window is always selected. + (add-hook 'post-command-hook #'lambda-line--update-selected-window) + + ;; This hooks hide the modeline for windows having a window below them + ;; Disabled for the time being, + ;; -> see https://github.com/rougier/nano-modeline/issues/24 + ;; (add-hook 'window-configuration-change-hook #'lambda-line-update-windows) + + (force-mode-line-update t)) + +;; Deactivate status-line +(defun lambda-line-mode--deactivate () + "Deactivate lambda-line and restore default mode-line." + + (dolist (elt lambda-line-mode-formats) + (let* ((config (cdr elt)) + (fn (plist-get config :on-deactivate))) + (when fn (funcall fn)))) + + (run-hooks 'lambda-line-mode-format-deactivate-hook) + + (remove-hook 'post-command-hook + #'lambda-line--update-selected-window) + (remove-hook 'window-configuration-change-hook + #'lambda-line-update-windows) + + ;; Deactivate lambda-line-visual-bell + (setq lambda-line-visual-bell nil) + + (setq mode-line-format lambda-line--saved-mode-line-format) + (setq-default mode-line-format lambda-line--saved-mode-line-format) + (setq header-line-format lambda-line--saved-header-line-format) + (setq-default header-line-format lambda-line--saved-header-line-format)) + +;;;; Lambda-line minor mode + +;; Store the default mode-line format +(defvar lambda-line--default-mode-line mode-line-format) + +;;;###autoload +(define-minor-mode lambda-line-mode + "Toggle lambda-line on or off." + :group 'lambda-line + :global t + :lighter nil + + (if lambda-line-mode + (lambda-line-mode--activate) + (lambda-line-mode--deactivate)) + + ;; Run any registered hooks + (run-hooks 'lambda-line-mode-hook)) + +;;; Provide: +(provide 'lambda-line) + +;;; lambda-line.el ends here diff --git a/emacs/libs/minad.el b/emacs/libs/minad.el new file mode 100644 index 0000000..3b9ca4e --- /dev/null +++ b/emacs/libs/minad.el @@ -0,0 +1,89 @@ +;;; package --- Summary + +;;; Commentary: + +;; This loads vertico, corfu, orderless, etc. +;; All from https://github.com/minad + + +;;; Code: + +(require 'package) + +(use-package corfu + :ensure t + :custom + (corfu-cycle t) + :hook ((prog-mode . corfu-mode) + (shell-mode . corfu-mode) + (eshell-mode . corfu-mode)) + :init (global-corfu-mode)) + +(use-package orderless + :ensure t + :init + ;; Configure a custom style dispatcher (see the Consult wiki) + (setq orderless-style-dispatchers nil + orderless-component-separator #'orderless-escapable-split-on-space) + (setq completion-styles '(orderless basic) + completion-category-defaults nil + completion-category-overrides '((file (styles basic partial-completion))))) + +(setq completion-styles '(orderless basic)) + + +;; Use dabbrev with Corfu! +(use-package dabbrev + ;; Swap M-/ and C-M-/ + :bind (("M-/" . dabbrev-expand) + ("C-M-/" . dabbrev-completion))) + +;; Enable richer annotations using the Marginalia package +(use-package marginalia + :ensure t + ;; Either bind `marginalia-cycle` globally or only in the minibuffer + ;; :bind (("M-A" . marginalia-cycle) + ;; :map minibuffer-local-map + ;; ("M-A" . marginalia-cycle)) + + ;; The :init configuration is always executed (Not lazy!) + :init + + ;; Must be in the :init section of use-package such that the mode gets + ;; enabled right away. Note that this forces loading the package. + (marginalia-mode)) + +(use-package vertico + :ensure t + ;; Special recipe to load extensions conveniently + :straight (vertico :files (:defaults "extensions/*") + :includes (vertico-indexed + vertico-flat + vertico-grid + vertico-mouse + vertico-quick + vertico-buffer + vertico-repeat + vertico-reverse + vertico-directory + vertico-multiform + vertico-unobtrusive + )) + ;; :general + ;; (:keymaps 'vertico-map + ;; "<tab>" #'vertico-insert ; Choose selected candidate + ;; "<escape>" #'minibuffer-keyboard-quit ; Close minibuffer + ;; ;; NOTE 2022-02-05: Cycle through candidate groups + ;; "C-M-n" #'vertico-next-group + ;; "C-M-p" #'vertico-previous-group) + :custom + (vertico-count 12) ; Number of candidates to display + (vertico-resize t) + (vertico-cycle nil) ; Go from last to first candidate and first to last (cycle)? + :config + (vertico-mode) + (vertico-reverse-mode)) + +(provide 'minad) + +;;; minad.el ends here diff --git a/emacs/libs/nano-emacs b/emacs/libs/nano-emacs new file mode 160000 +Subproject 185894da71aeab33e52a1bedcde6cea4b148436 diff --git a/emacs/libs/penumbra-theme.el b/emacs/libs/penumbra-theme.el new file mode 100644 index 0000000..e8e6acf --- /dev/null +++ b/emacs/libs/penumbra-theme.el @@ -0,0 +1,512 @@ +;;; penumbra-theme.el --- A color theme based on Acme & Sam from Plan 9 -*- lexical-binding: t; -*- + +;; Copyright (C) 2020 Ian Yi-En Pan + +;; Author: Ian Y.E. Pan +;; URL: https://github.com/ianpan870102/acme-emacs-theme +;; Version: 1.0.0 + +;; This program is free software; you can redistribute it and/or modify +;; it under the terms of the GNU General Public License as published by +;; the Free Software Foundation, either version 3 of the License, or +;; (at your option) any later version. + +;; This program is distributed in the hope that it will be useful, +;; but WITHOUT ANY WARRANTY; without even the implied warranty of +;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +;; GNU General Public License for more details. + +;; You should have received a copy of the GNU General Public License +;; along with this program. If not, see <http://www.gnu.org/licenses/>. + +;;; Commentary: +;; A color theme for Emacs based on Acme & Sam from Plan 9 + +;;; Credits: +;; This theme was modified from John Louis Del Rosario's plan9-theme.el + +;;; Code: + +(defgroup penumbra-theme nil + "Options for penumbra theme." + :group 'faces) + +(defcustom penumbra-theme-black-fg nil + "If non-nil, foreground will be pure black instead of the default dark grey." + :group 'penumbra-theme + :type 'boolean) + +(deftheme penumbra "A color theme based on Penumbra & Sam") + +;;; Color palette + +(let ((class '((class color) (min-colors 89))) + (bg "#FFF7ED") ; default bg + (bg-alt "#FFFDFB") + (bg-dark "#F2E6D4") + (fg (if penumbra-theme-black-fg "#000000" "#24272B")) ; default fg + (fg-alt "#B8B09A") + (fg-dark "#988D6D") + (fg-light "#CCCCB7") + (highlight "#E8EB98") + (highlight-alt "#E8EBC8") + + ;; Standardized palette + (penumbra-cyan "#00B3C2") + (penumbra-cyan-light "#00C4D7") + (penumbra-red "#DF7F78") + (penumbra-red-light "#F58C81") + (penumbra-yellow "#9CA748") + (penumbra-yellow-light "#A9B852") + (penumbra-green "#50B584") + (penumbra-green-alt "#54C794") + (penumbra-green-light "#54C794") + (penumbra-blue "#61A3E6") + (penumbra-blue-light "#6EB2FD") + (penumbra-purple "#A48FE1") + (penumbra-purple-light "#B69CF6")) + +;;; Theme Faces + (custom-theme-set-faces + 'penumbra + +;;;; Built-in + +;;;;; basic coloring + `(button ((t (:underline t)))) + `(link ((t (:foreground "#0066cc":weight normal)))) + `(highlight ((t (:inherit link :underline t)))) ; link hover + `(link-visited ((t (:foreground ,penumbra-purple :underline t :weight normal)))) + `(default ((t (:foreground ,fg :background ,bg)))) + `(cursor ((t (:foreground ,bg :background ,fg)))) + `(escape-glyph ((t (:foreground ,penumbra-cyan-light :bold nil)))) + `(fringe ((t (:foreground ,fg :background ,bg)))) + `(line-number ((t (:foreground ,fg :background ,bg-alt)))) + `(line-number-current-line ((t (:foreground ,fg :background ,bg-alt)))) + `(header-line ((t (:foreground ,fg :background ,penumbra-blue-light :box t)))) + `(success ((t (:foreground ,penumbra-green :weight normal)))) + `(warning ((t (:foreground ,penumbra-red :weight normal)))) + `(error ((t (:foreground ,penumbra-red :bold t)))) + +;;;;; compilation + `(compilation-column-face ((t (:foreground ,penumbra-yellow :background ,penumbra-yellow-light)))) + `(compilation-column-number ((t (:foreground ,penumbra-yellow :background ,penumbra-yellow-light)))) + `(compilation-error-face ((t (:foreground ,penumbra-red :weight normal :underline t)))) + `(compilation-face ((t (:foreground ,fg)))) + `(compilation-info-face ((t (:foreground ,penumbra-blue)))) + `(compilation-info ((t (:foreground ,penumbra-blue :underline t)))) + `(compilation-line-face ((t (:foreground ,penumbra-purple)))) + `(compilation-line-number ((t (:foreground ,penumbra-yellow :background ,penumbra-yellow-light)))) + `(compilation-message-face ((t (:foreground ,penumbra-blue)))) + `(compilation-warning-face ((t (:foreground ,penumbra-yellow :weight normal :underline t)))) + `(compilation-mode-line-exit ((t (:foreground ,penumbra-cyan :weight normal)))) + `(compilation-mode-line-fail ((t (:foreground ,penumbra-red :weight normal)))) + `(compilation-mode-line-run ((t (:foreground ,penumbra-purple :weight normal)))) + +;;;;; grep + `(grep-context-face ((t (:foreground ,fg-alt)))) + `(grep-error-face ((t (:foreground ,penumbra-red :weight normal :underline t)))) + `(grep-hit-face ((t (:foreground ,penumbra-purple :weight normal)))) + `(grep-match-face ((t (:foreground ,penumbra-cyan :weight normal)))) + `(match ((t (:background ,penumbra-cyan :foreground ,penumbra-cyan-light)))) + +;;;;; ag + `(ag-hit-face ((t (:foreground ,penumbra-green :weight normal)))) + `(ag-match-face ((t (:foreground ,penumbra-cyan :background ,penumbra-cyan-light :weight normal)))) + +;;;;; isearch + `(isearch ((t (:foreground ,fg :weight normal :background ,penumbra-cyan-light)))) + `(isearch-fail ((t (:foreground ,fg :weight normal :background ,penumbra-red)))) + `(lazy-highlight ((t (:foreground ,fg :weight normal :background ,penumbra-blue-light)))) + + `(menu ((t (:foreground ,bg :background ,fg)))) + `(minibuffer-prompt ((t (:foreground ,fg :weight normal)))) + `(region ((,class (:foreground ,fg :background ,highlight :extend nil)))) + `(secondary-selection ((t (:background ,penumbra-green-light)))) + `(trailing-whitespace ((t (:background ,penumbra-red-light)))) + `(vertical-border ((t (:foreground ,penumbra-cyan)))) + +;;;;; font lock + `(font-lock-builtin-face ((t (:foreground ,fg :weight normal)))) + `(font-lock-function-name-face ((t (:foreground ,fg :weight normal)))) + `(font-lock-string-face ((t (:foreground ,penumbra-red)))) + `(font-lock-keyword-face ((t (:foreground ,penumbra-blue :weight bold)))) ; if, else, for, while, return... + `(font-lock-type-face ((t (:foreground ,fg :weight bold)))) ; int, float, string, void... + `(font-lock-constant-face ((t (:foreground ,fg :weight bold)))) ; NULL, nullptr, true, false... + `(font-lock-variable-name-face ((t (:foreground ,fg :weight normal)))) + `(font-lock-comment-face ((t (:foreground ,penumbra-green :italic nil)))) + `(font-lock-comment-delimiter-face ((t (:foreground ,penumbra-green :italic nil)))) + `(font-lock-doc-face ((t (:foreground ,penumbra-yellow :italic nil)))) + `(font-lock-negation-char-face ((t (:foreground ,penumbra-red :weight normal)))) + `(font-lock-preprocessor-face ((t (:foreground ,penumbra-red :weight normal)))) + `(font-lock-regexp-grouping-construct ((t (:foreground ,penumbra-purple :weight normal)))) + `(font-lock-regexp-grouping-backslash ((t (:foreground ,penumbra-purple :weight normal)))) + `(font-lock-warning-face ((t (:foreground ,penumbra-red :weight normal)))) + +;;;;; table + `(table-cell ((t (:background ,bg-alt)))) + +;;;;; ledger + `(ledger-font-directive-face ((t (:foreground ,penumbra-cyan)))) + `(ledger-font-periodic-xact-face ((t (:inherit ledger-font-directive-face)))) + `(ledger-font-posting-account-face ((t (:foreground ,penumbra-blue)))) + `(ledger-font-posting-amount-face ((t (:foreground ,penumbra-red)))) + `(ledger-font-posting-date-face ((t (:foreground ,penumbra-red :weight normal)))) + `(ledger-font-payee-uncleared-face ((t (:foreground ,penumbra-purple)))) + `(ledger-font-payee-cleared-face ((t (:foreground ,fg)))) + `(ledger-font-payee-pending-face ((t (:foreground ,penumbra-yellow)))) + `(ledger-font-xact-highlight-face ((t (:background ,bg-alt)))) + +;;;; Third-party + + +;;;;; anzu + `(anzu-mode-line ((t (:foreground ,penumbra-yellow :background ,penumbra-yellow-light :weight normal)))) + +;;;;; clojure-mode + `(clojure-interop-method-face ((t (:inherit font-lock-function-name-face)))) + +;;;;; clojure-test-mode + `(clojure-test-failure-face ((t (:foreground ,penumbra-red :weight normal :underline t)))) + `(clojure-test-error-face ((t (:foreground ,penumbra-red :weight normal :underline t)))) + `(clojure-test-success-face ((t (:foreground ,penumbra-green :weight normal :underline t)))) + +;;;;; diff + `(diff-added ((,class (:foreground ,fg :background ,penumbra-green-light)) + (t (:foreground ,fg :background ,penumbra-green-light)))) + `(diff-changed ((t (:foreground ,penumbra-yellow)))) + `(diff-context ((t (:foreground ,fg)))) + `(diff-removed ((,class (:foreground ,fg :background ,penumbra-red-light)) + (t (:foreground ,fg :background ,penumbra-red-light)))) + `(diff-refine-added ((t :inherit diff-added :background ,penumbra-green-light :weight bold :underline t))) + `(diff-refine-change ((t :inherit diff-changed :weight normal))) + `(diff-refine-removed ((t :inherit diff-removed :background ,penumbra-red-light :weight bold :underline t))) + `(diff-header ((,class (:foreground ,fg :weight normal)) + (t (:foreground ,penumbra-purple-light :weight normal)))) + `(diff-file-header ((,class (:foreground ,fg :background ,penumbra-cyan-light :weight normal)) + (t (:foreground ,fg :background ,penumbra-cyan-light :weight normal)))) + `(diff-hunk-header ((,class (:foreground ,penumbra-green :weight normal)) + (t (:foreground ,penumbra-green :weight normal)))) +;;;;; dired/dired+/dired-subtree + `(dired-directory ((t (:foreground ,penumbra-blue :weight bold)))) + `(diredp-display-msg ((t (:foreground ,penumbra-blue)))) + `(diredp-compressed-file-suffix ((t (:foreground ,penumbra-purple)))) + `(diredp-date-time ((t (:foreground ,penumbra-green)))) + `(diredp-deletion ((t (:foreground ,penumbra-red)))) + `(diredp-deletion-file-name ((t (:foreground ,penumbra-red)))) + `(diredp-dir-heading ((t (:foreground ,penumbra-blue :background ,penumbra-blue-light :weight bold)))) + `(diredp-dir-priv ((t (:foreground ,penumbra-blue)))) + `(diredp-exec-priv ((t (:foreground ,penumbra-yellow)))) + `(diredp-executable-tag ((t (:foreground ,penumbra-yellow)))) + `(diredp-file-name ((t (:foreground ,fg)))) + `(diredp-file-suffix ((t (:foreground ,penumbra-yellow)))) + `(diredp-flag-mark ((t (:foreground ,penumbra-cyan)))) + `(diredp-flag-mark-line ((t (:foreground ,penumbra-cyan)))) + `(diredp-ignored-file-name ((t (:foreground ,fg-light)))) + `(diredp-link-priv ((t (:foreground ,penumbra-purple)))) + `(diredp-mode-line-flagged ((t (:foreground ,penumbra-yellow)))) + `(diredp-mode-line-marked ((t (:foreground ,penumbra-yellow)))) + `(diredp-no-priv ((t (:foreground ,fg)))) + `(diredp-number ((t (:foreground ,penumbra-blue)))) + `(diredp-other-priv ((t (:foreground ,fg)))) + `(diredp-rare-priv ((t (:foreground ,fg)))) + `(diredp-read-priv ((t (:foreground ,fg)))) + `(diredp-symlink ((t (:foreground ,fg :background ,penumbra-blue-light)))) + `(diredp-write-priv ((t (:foreground ,fg)))) + `(diredp-dir-name ((t (:foreground ,penumbra-blue :weight bold)))) + `(dired-subtree-depth-1-face ((t (:background ,bg)))) + `(dired-subtree-depth-2-face ((t (:background ,bg)))) + `(dired-subtree-depth-3-face ((t (:background ,bg)))) + +;;;;; elfeed + `(elfeed-search-date-face ((t (:foreground ,penumbra-blue)))) + `(elfeed-search-title-face ((t (:foreground ,fg)))) + `(elfeed-search-unread-title-face ((t (:foreground ,fg)))) + `(elfeed-search-feed-face ((t (:foreground ,penumbra-green)))) + `(elfeed-search-tag-face ((t (:foreground ,penumbra-red)))) + `(elfeed-search-unread-count-face ((t (:foreground ,fg)))) + +;;;;; erc + `(erc-default-face ((t (:foreground ,fg)))) + `(erc-header-line ((t (:inherit header-line)))) + `(erc-action-face ((t (:inherit erc-default-face)))) + `(erc-bold-face ((t (:inherit erc-default-face :weight normal)))) + `(erc-underline-face ((t (:underline t)))) + `(erc-error-face ((t (:inherit font-lock-warning-face)))) + `(erc-prompt-face ((t (:foreground ,penumbra-green :background ,penumbra-green-light :weight normal)))) + `(erc-timestamp-face ((t (:foreground ,penumbra-green :background ,penumbra-green-light)))) + `(erc-direct-msg-face ((t (:inherit erc-default)))) + `(erc-notice-face ((t (:foreground ,fg-light)))) + `(erc-highlight-face ((t (:background ,highlight)))) + `(erc-input-face ((t (:foreground ,fg :background ,bg-alt)))) + `(erc-current-nick-face ((t (:foreground ,fg :background ,penumbra-cyan-light :weight normal + :box (:line-width 1 :style released-button))))) + `(erc-nick-default-face ((t (:weight normal :background ,bg-alt)))) + `(erc-my-nick-face ((t (:foreground ,fg :background ,penumbra-cyan-light :weight normal + :box (:line-width 1 :style released-button))))) + `(erc-nick-msg-face ((t (:inherit erc-default)))) + `(erc-fool-face ((t (:inherit erc-default)))) + `(erc-pal-face ((t (:foreground ,penumbra-purple :weight normal)))) + `(erc-dangerous-host-face ((t (:inherit font-lock-warning-face)))) + `(erc-keyword-face ((t (:foreground ,penumbra-yellow :weight normal)))) + + ;;;;; evil + `(evil-search-highlight-persist-highlight-face ((t (:inherit lazy-highlight)))) + +;;;;; flx + `(flx-highlight-face ((t (:foreground ,penumbra-yellow :background ,penumbra-green-light + :weight normal :underline t)))) + +;;;;; company + `(company-tooltip ((t (:background ,penumbra-blue-light)))) + `(company-tooltip-selection ((t (:background ,penumbra-cyan-light)))) + `(company-tooltip-common ((t (:foreground ,penumbra-blue :bold t)))) + `(company-tooltip-annotation ((t (:foreground ,penumbra-yellow :italic t)))) ; parameter hints etc. + `(company-scrollbar-fg ((t (:background ,penumbra-cyan)))) + `(company-scrollbar-bg ((t (:background ,penumbra-cyan-light)))) + `(company-preview-common ((t (:foreground ,fg :background ,penumbra-cyan-light)))) + +;;;;; highlight-symbol + `(highlight-symbol-face ((t (:background ,bg-alt)))) + +;;;;; highlight-numbers + `(highlight-numbers-number ((t (:foreground ,penumbra-blue)))) + +;;;;; highlight-operators + `(highlight-operators-face ((t (:foreground ,fg)))) + +;;;;; hl-todo + `(hl-todo ((t (:inverse-video t)))) + +;;;;; hl-line-mode + `(hl-line ((,class (:background ,bg-alt)))) + +;;;;; hl-sexp + `(hl-sexp-face ((,class (:background ,bg-alt)))) + +;;;;; ido-mode + `(ido-first-match ((t (:foreground ,fg :weight normal)))) + `(ido-only-match ((t (:foreground ,fg :weight normal)))) + `(ido-subdir ((t (:foreground ,penumbra-blue)))) + `(ido-indicator ((t (:foreground ,penumbra-yellow)))) + +;;;;; ido-vertical + `(ido-vertical-first-match-face ((t (:foreground ,fg :background ,penumbra-cyan-light :weight normal)))) + `(ido-vertical-only-match-face ((t (:foreground ,penumbra-red :background ,penumbra-red-light :weight normal)))) + `(ido-vertical-match-face ((t (:foreground ,fg :background ,penumbra-green-light + :weight normal :underline t)))) + +;;;;; indent-guide + `(indent-guide-face ((t (:foreground ,highlight)))) + +;;;;; ivy + `(ivy-current-match ((t (:background ,penumbra-blue-light :underline t :extend t)))) + `(ivy-minibuffer-match-face-1 ((t (:background ,bg-alt)))) + `(ivy-minibuffer-match-face-2 ((t (:background ,penumbra-cyan-light)))) + `(ivy-minibuffer-match-face-3 ((t (:background ,penumbra-purple-light)))) + `(ivy-minibuffer-match-face-3 ((t (:background ,penumbra-blue-light)))) + +;;;;; js2-mode + `(js2-warning ((t (:underline ,penumbra-yellow)))) + `(js2-error ((t (:foreground ,penumbra-red :weight normal)))) + `(js2-jsdoc-tag ((t (:foreground ,penumbra-purple)))) + `(js2-jsdoc-type ((t (:foreground ,penumbra-blue)))) + `(js2-jsdoc-value ((t (:foreground ,penumbra-cyan)))) + `(js2-function-param ((t (:foreground ,fg)))) + `(js2-external-variable ((t (:foreground ,penumbra-cyan)))) + +;;;;; linum-mode + `(linum ((t (:foreground ,fg-light)))) + +;;;;; lsp-mode + `(lsp-face-highlight-textual ((t (:background ,bg-dark)))) + `(lsp-face-highlight-read ((t (:background ,penumbra-purple-light)))) + `(lsp-face-highlight-write ((t (:background ,penumbra-green-light)))) + +;;;;; magit + `(magit-section-heading ((t (:foreground ,penumbra-cyan :background ,penumbra-blue-light + :weight normal :underline t)))) + `(magit-section-highlight ((t (:background ,bg-alt)))) + `(magit-section-heading-selection ((t (:background ,highlight)))) + `(magit-filename ((t (:foreground ,fg)))) + `(magit-hash ((t (:foreground ,penumbra-yellow :weight normal)))) + `(magit-tag ((t (:foreground ,penumbra-purple :weight normal)))) + `(magit-refname ((t (:foreground ,penumbra-purple :weight normal)))) + `(magit-head ((t (:foreground ,penumbra-green :weight normal)))) + `(magit-branch-local ((t (:foreground ,penumbra-blue :background ,penumbra-blue-light + :weight normal)))) + `(magit-branch-remote ((t (:foreground ,penumbra-green :background ,penumbra-green-light + :weight normal)))) + `(magit-branch-current ((t (:foreground ,penumbra-cyan :background ,penumbra-cyan-light + :weight normal + :box (:line-width 1 :color ,penumbra-cyan))))) + `(magit-diff-file-heading ((t (:foreground ,fg :weight normal)))) + `(magit-diff-file-heading-highlight ((t (:background ,bg-alt)))) + `(magit-diff-file-heading-selection ((t (:foreground ,penumbra-red :background ,highlight)))) + `(magit-diff-hunk-heading ((t (:foreground ,penumbra-blue :background ,penumbra-blue-light :weight normal :underline t)))) + `(magit-diff-hunk-heading-highlight ((t (:background ,penumbra-cyan-light)))) + `(magit-diff-added ((t (:foreground ,penumbra-green :background ,penumbra-green-light)))) + `(magit-diff-removed ((t (:foreground ,penumbra-red :background ,penumbra-red-light)))) + `(magit-diff-context ((t (:foreground ,fg-dark :background nil)))) + `(magit-diff-added-highlight ((t (:foreground ,penumbra-green :background ,penumbra-green-light)))) + `(magit-diff-removed-highlight ((t (:foreground ,penumbra-red :background ,penumbra-red-light)))) + `(magit-diff-context-highlight ((t (:foreground ,fg-dark :background ,bg-alt)))) + `(magit-diffstat-added ((t (:foreground ,penumbra-green :background ,penumbra-green-light :weight normal)))) + `(magit-diffstat-removed ((t (:foreground ,penumbra-red :background ,penumbra-red-light :weight normal)))) + `(magit-log-author ((t (:foreground ,penumbra-blue :weight normal)))) + `(magit-log-date ((t (:foreground ,penumbra-purple :weight normal)))) + `(magit-log-graph ((t (:foreground ,penumbra-red :weight normal)))) + `(magit-blame-heading ((t (:foreground ,fg-dark :background ,bg-alt)))) + +;;;;; paren-face + `(parenthesis ((t (:foreground "#CCCCB7")))) + +;;;;; project-explorer + `(pe/file-face ((t (:foreground ,fg)))) + `(pe/directory-face ((t (:foreground ,penumbra-blue :weight normal)))) + +;;;;; rainbow-delimiters + `(rainbow-delimiters-depth-1-face ((t (:foreground ,penumbra-green)))) + `(rainbow-delimiters-depth-2-face ((t (:foreground ,penumbra-blue)))) + `(rainbow-delimiters-depth-3-face ((t (:foreground ,penumbra-red)))) + +;;;;; show-paren + `(show-paren-mismatch ((t (:foreground ,penumbra-yellow :background ,penumbra-red :weight normal)))) + `(show-paren-match ((t (:foreground ,fg :background ,penumbra-cyan-light :weight normal)))) + +;;;;; mode-line/sml-mode-line + `(mode-line ((,class (:foreground ,fg :background ,penumbra-blue-light :box t)))) + `(mode-line-inactive ((t (:foreground ,fg :background ,bg-dark :box t)))) + `(mode-line-buffer-id ((t (:foreground ,fg :weight bold)))) ; associated buffer/file name + `(sml/global ((t (:foreground ,fg)))) + `(sml/modes ((t (:foreground ,penumbra-green :background ,penumbra-green-light)))) + `(sml/filename ((t (:foreground ,penumbra-red)))) + `(sml/folder ((t (:foreground ,fg)))) + `(sml/prefix ((t (:foreground ,fg)))) + `(sml/read-only ((t (:foreground ,fg)))) + `(sml/modified ((t (:foreground ,penumbra-red :weight normal)))) + `(sml/outside-modified ((t (:background ,penumbra-red :foreground ,penumbra-red-light :weight normal)))) + `(sml/line-number ((t (:foreground ,fg :weight normal)))) + `(sml/col-number ((t (:foreground ,fg :weight normal)))) + `(sml/vc ((t (:foreground ,fg :weight normal)))) + `(sml/vc-edited ((t (:foreground ,penumbra-red :weight normal)))) + `(sml/git ((t (:foreground ,fg :weight normal)))) + +;;;;; sh + `(sh-heredoc-face ((t (:foreground ,penumbra-purple)))) + +;;;;; web-mode + `(web-mode-builtin-face ((t (:inherit ,font-lock-builtin-face)))) + `(web-mode-comment-face ((t (:inherit ,font-lock-comment-face)))) + `(web-mode-constant-face ((t (:inherit ,font-lock-constant-face)))) + `(web-mode-doctype-face ((t (:inherit ,font-lock-comment-face)))) + `(web-mode-folded-face ((t (:underline t)))) + `(web-mode-function-name-face ((t (:foreground ,fg :weight normal)))) + `(web-mode-html-attr-name-face ((t (:foreground ,fg)))) + `(web-mode-html-attr-value-face ((t (:inherit ,font-lock-string-face)))) + `(web-mode-html-tag-face ((t (:foreground ,penumbra-blue)))) + `(web-mode-keyword-face ((t (:inherit ,font-lock-keyword-face)))) + `(web-mode-preprocessor-face ((t (:inherit ,font-lock-preprocessor-face)))) + `(web-mode-string-face ((t (:inherit ,font-lock-string-face)))) + `(web-mode-type-face ((t (:inherit ,font-lock-type-face)))) + `(web-mode-variable-name-face ((t (:inherit ,font-lock-variable-name-face)))) + `(web-mode-server-background-face ((t (:background ,penumbra-green-light)))) + `(web-mode-server-comment-face ((t (:inherit web-mode-comment-face)))) + `(web-mode-server-string-face ((t (:foreground ,penumbra-red)))) + `(web-mode-symbol-face ((t (:inherit font-lock-constant-face)))) + `(web-mode-warning-face ((t (:inherit font-lock-warning-face)))) + `(web-mode-whitespaces-face ((t (:background ,penumbra-red-light)))) + `(web-mode-block-face ((t (:background ,penumbra-green-light)))) + `(web-mode-current-element-highlight-face ((t (:foreground ,fg :background ,penumbra-blue-light)))) + `(web-mode-json-key-face ((,class (:inherit font-lock-string-face)))) + `(web-mode-json-context-face ((,class (:inherit font-lock-string-face :bold t)))) + +;;;;; which-func-mode + `(which-func ((t (:foreground ,penumbra-purple :background ,penumbra-purple-light)))) + +;;;;; yascroll + `(yascroll:thumb-text-area ((t (:background ,highlight)))) + `(yascroll:thumb-fringe ((t (:background ,bg :foreground ,bg + :box (:line-width 1 :style released-button))))) + +;;;;; Org + `(org-level-1 ((t (:background ,penumbra-blue-light :foreground ,penumbra-blue :weight bold :overline t)))) + `(org-level-2 ((t (:background ,penumbra-blue-light :foreground ,penumbra-cyan :weight bold :overline t)))) + `(org-level-3 ((t (:background ,penumbra-blue-light :foreground ,penumbra-blue :weight bold :overline t)))) + `(org-level-4 ((t (:background ,penumbra-blue-light :foreground ,penumbra-cyan)))) + `(org-level-5 ((t (:background ,penumbra-blue-light :foreground ,penumbra-blue)))) + `(org-level-6 ((t (:background ,penumbra-blue-light :foreground ,penumbra-cyan)))) + `(org-level-7 ((t (:background ,penumbra-blue-light :foreground ,penumbra-blue)))) + `(org-level-8 ((t (:background ,penumbra-blue-light :foreground ,penumbra-cyan)))) + `(org-document-title ((t (:height 1.2 :foreground ,penumbra-blue :weight bold :underline t)))) ; #TITLE + `(org-meta-line ((t (:foreground ,penumbra-green)))) + `(org-document-info ((t (:foreground ,penumbra-cyan :weight normal)))) + `(org-document-info-keyword ((t (:foreground ,penumbra-cyan)))) + `(org-todo ((t (:foreground ,penumbra-yellow :background ,bg-alt :weight normal :box (:line-width 1 :style released-button))))) + `(org-done ((t (:foreground ,penumbra-green :background ,penumbra-green-light :weight normal :box (:style released-button))))) + `(org-date ((t (:foreground ,penumbra-purple)))) + `(org-table ((t (:foreground ,penumbra-purple)))) + `(org-formula ((t (:foreground ,penumbra-blue :background ,bg-alt)))) + `(org-code ((t (:foreground ,penumbra-red :background ,bg-alt)))) + `(org-verbatim ((t (:foreground ,fg :background ,bg-alt :underline t)))) + `(org-special-keyword ((t (:foreground ,penumbra-cyan)))) + `(org-agenda-date ((t (:foreground ,penumbra-cyan)))) + `(org-agenda-structure ((t (:foreground ,penumbra-purple)))) + `(org-block ((t (:foreground ,fg :background ,bg-alt :extend t)))) + `(org-block-background ((t (:background ,bg-alt :extend t)))) + `(org-block-begin-line ((t (:foreground ,fg-alt :background ,bg-dark :italic t :extend t)))) + `(org-block-end-line ((t (:foreground ,fg-alt :background ,bg-dark :italic t :extend t)))) + +;;;;; origami + `(origami-fold-replacement-face ((t (:foreground ,penumbra-red :background ,penumbra-red-light + :box (:line-width -1))))) + +;;;;; git-gutter + `(git-gutter:added ((t (:background ,penumbra-green-alt :foreground ,penumbra-green-alt :weight normal)))) + `(git-gutter:deleted ((t (:background ,penumbra-red :foreground ,penumbra-red :weight normal)))) + `(git-gutter:modified ((t (:background ,penumbra-yellow :foreground ,penumbra-yellow :weight normal)))) + `(git-gutter-fr:added ((t (:background ,penumbra-green-alt :foreground ,penumbra-green-alt :weight normal)))) + `(git-gutter-fr:deleted ((t (:background ,penumbra-red :foreground ,penumbra-red :weight normal)))) + `(git-gutter-fr:modified ((t (:background ,penumbra-yellow :foreground ,penumbra-yellow :weight normal)))) + +;;;;; diff-hl + `(diff-hl-insert ((t (:background ,penumbra-green-alt :foreground ,penumbra-green-alt)))) + `(diff-hl-delete ((t (:background ,penumbra-red :foreground ,penumbra-red)))) + `(diff-hl-change ((t (:background ,penumbra-yellow :foreground ,penumbra-yellow)))) + +;;;;; mu4e, mail + `(mu4e-header-highlight-face ((t (:background ,highlight)))) + `(mu4e-unread-face ((t (:foreground ,penumbra-blue :weight normal)))) + `(mu4e-flagged-face ((t (:foreground ,penumbra-red :background ,penumbra-red-light :weight normal)))) + `(mu4e-compose-separator-face ((t (:foreground ,penumbra-green)))) + `(mu4e-header-value-face ((t (:foreground ,fg)))) + `(message-header-name ((t (:foreground ,penumbra-purple :weight normal)))) + `(message-header-to ((t (:foreground ,penumbra-blue)))) + `(message-header-subject ((t (:foreground ,penumbra-blue)))) + `(message-header-other ((t (:foreground ,penumbra-blue)))) + `(message-cited-text ((t (:inherit font-lock-comment-face)))) + +;;;;; term-mode (vterm too) + `(term ((,class (:foreground ,fg :background ,bg)))) + `(term-color-black ((,class (:foreground ,fg :background ,fg)))) + `(term-color-blue ((,class (:foreground ,penumbra-blue :background ,penumbra-blue)))) + `(term-color-red ((,class (:foreground ,penumbra-red :background ,penumbra-red)))) + `(term-color-green ((,class (:foreground ,penumbra-green :background ,penumbra-green)))) + `(term-color-yellow ((,class (:foreground ,penumbra-yellow :background ,penumbra-yellow)))) + `(term-color-magenta ((,class (:foreground ,penumbra-purple :background ,penumbra-purple)))) + `(term-color-cyan ((,class (:foreground ,penumbra-cyan :background ,penumbra-cyan)))) + `(term-color-white ((,class (:foreground ,fg :background ,fg)))) + +;;;;; fill-column-indicator + `(fci-rule-color ((t (:foreground ,highlight-alt)))) + `(fill-column-indicator ((t (:foreground ,highlight-alt)))))) + +;;;###autoload +(when (and (boundp 'custom-theme-load-path) load-file-name) + (add-to-list 'custom-theme-load-path + (file-name-as-directory (file-name-directory load-file-name)))) + +(provide-theme 'penumbra) +(provide 'penumbra-theme) + +;;; penumbra-theme.el ends here diff --git a/emacs/libs/slime b/emacs/libs/slime new file mode 160000 +Subproject 6ef28864d4a6b4d9390dbd0cac64f2a56582682 diff --git a/emacs/libs/utils.el b/emacs/libs/utils.el new file mode 100644 index 0000000..df0c464 --- /dev/null +++ b/emacs/libs/utils.el @@ -0,0 +1,17 @@ +;;; utils.el --- Utility package +;;; Commentary: +;; None + +;;; Code: +(require 'org-table) + +(defun csv-to-table (file) + "Turn a csv with ; separator in FILE to table." + (with-temp-buffer + (erase-buffer) + (insert-file-contents file nil 0 500) + (org-table-convert-region (point-min) (point-max) ";") + (buffer-string))) + +(provide 'utils) +;;; utils.el ends here |