Compare commits
4
Commits
1c4f950e3f
...
main
| Author | SHA1 | Date | |
|---|---|---|---|
 jasonhilder
|
c43ff55d32 | ||
|
jasonhilder
|
62e4feba61 | ||
|
jasonhilder
|
d2e47dec2a | ||
|
jasonhilder
|
d2de783f3b |
@@ -16,3 +16,6 @@ config/vim/.netrwhist
|
||||
config/nvim/nvim-pack-lock.json
|
||||
# other
|
||||
scripts/bin/ols
|
||||
scripts/bin/deno
|
||||
scripts/bin/yt-dlp
|
||||
scripts/bin/tiled
|
||||
@@ -1,8 +1,6 @@
|
||||
;;; early-init.el --- Pre-init: GC ceiling and frame chrome -*- lexical-binding: t; -*-
|
||||
|
||||
;;; Commentary:
|
||||
;; Runs before package.el initialises and before the first frame is drawn, so
|
||||
;; it is the only place two things can take effect:
|
||||
;; Runs before package.el initialises and first frame is drawn, the only place these take effect:
|
||||
;; 1. Raising the GC ceiling, so the whole startup (package load + init.el)
|
||||
;; runs without garbage-collection pauses.
|
||||
;; 2. Removing the menu/tool/scroll bars via `default-frame-alist', so they
|
||||
@@ -10,15 +8,6 @@
|
||||
;; them and then removes them, a visible flicker on launch.
|
||||
;;
|
||||
;; Nothing here may depend on a package: none are loaded yet.
|
||||
;;
|
||||
;; IMPORTANT: the GC bump below is only half the pair. Restore a working value
|
||||
;; once startup is done by adding this to init.el:
|
||||
;;
|
||||
;; (add-hook 'emacs-startup-hook
|
||||
;; (lambda () (setq gc-cons-threshold (* 16 1024 1024))))
|
||||
;;
|
||||
;; Without it, GC never runs again and Emacs slowly eats memory.
|
||||
|
||||
;;; Code:
|
||||
|
||||
(startup-redirect-eln-cache (expand-file-name "var/eln-cache/" user-emacs-directory))
|
||||
|
||||
+22
-49
@@ -1,15 +1,20 @@
|
||||
;;; init.el --- Minimal Emacs: built-ins + evil + consult -*- lexical-binding: t; -*-
|
||||
;; Learning: F1 k KEY, F1 f FUNCTION, F1 v VARIABLE,
|
||||
;; F1 m (modes), F1 b (bindings).
|
||||
;; C-h works too, except in normal/motion state where it moves
|
||||
;; to the window on the left.
|
||||
;; Learning: F1 k KEY, F1 f FUNCTION, F1 v VARIABLE, F1 m (modes), F1 b (bindings).
|
||||
;; C-h works too, except in normal/motion state where it moves to the window on the left.
|
||||
|
||||
;;; Code:
|
||||
;;;; 1. Emac setup, files, packages and paths
|
||||
;;;; 1. Emac setup, gc, files, packages
|
||||
(add-hook 'emacs-startup-hook
|
||||
(lambda () (setq gc-cons-threshold (* 16 1024 1024))))
|
||||
|
||||
(dolist (bin (list (expand-file-name "~/.local/bin")
|
||||
(expand-file-name "~/.go/bin")))
|
||||
(add-to-list 'exec-path bin)
|
||||
(setenv "PATH" (concat bin path-separator (getenv "PATH"))))
|
||||
|
||||
;; Add the themes directory to the load path
|
||||
(add-to-list 'custom-theme-load-path (expand-file-name "themes" user-emacs-directory))
|
||||
|
||||
;; all the emacs runtime files live in var/.
|
||||
;; early-init.el redirects eln-cache and elpa.
|
||||
(defvar my/var (locate-user-emacs-file "var/"))
|
||||
@@ -46,14 +51,12 @@
|
||||
(blink-cursor-mode -1)
|
||||
|
||||
(setq inhibit-startup-screen t
|
||||
initial-scratch-message nil
|
||||
ring-bell-function #'ignore
|
||||
use-short-answers t
|
||||
scroll-conservatively 101
|
||||
scroll-margin 15)
|
||||
scroll-margin 20)
|
||||
|
||||
(setq-default indent-tabs-mode nil
|
||||
tab-width 4)
|
||||
(setq-default indent-tabs-mode nil tab-width 4)
|
||||
|
||||
(global-hl-line-mode 1)
|
||||
(global-display-line-numbers-mode 1)
|
||||
@@ -62,20 +65,8 @@
|
||||
(electric-pair-mode 1)
|
||||
(which-key-mode 1)
|
||||
|
||||
(add-to-list 'warning-suppress-types '(files))
|
||||
(use-package doom-themes :ensure t)
|
||||
(load-theme 'doom-one t)
|
||||
(doom-themes-set-faces 'user
|
||||
'(default :background "#131313")
|
||||
'(fringe :background "#131313")
|
||||
'(line-number :background "#131313")
|
||||
'(line-number-current-line :background "#131313")
|
||||
'(mode-line :background "#1a1a1a")
|
||||
'(mode-line-inactive :background "#131313"))
|
||||
|
||||
(use-package doom-modeline
|
||||
:ensure t
|
||||
:init (doom-modeline-mode 1))
|
||||
;; Load the compline theme
|
||||
(load-theme 'minimal t)
|
||||
|
||||
;; set mode line at the top of each window
|
||||
(setq-default header-line-format mode-line-format mode-line-format nil)
|
||||
@@ -139,18 +130,14 @@
|
||||
(setq evil-want-C-u-scroll t
|
||||
evil-undo-system 'undo-redo
|
||||
evil-want-keybinding nil)
|
||||
|
||||
:config
|
||||
(evil-mode 1)
|
||||
|
||||
(evil-define-key 'insert 'global
|
||||
(kbd "TAB") #'my/insert-tab
|
||||
(kbd "<tab>") #'my/insert-tab
|
||||
;; complete using the buffer's completion sources.
|
||||
(kbd "C-SPC") #'completion-at-point
|
||||
(kbd "C-@") #'completion-at-point)
|
||||
(kbd "C-SPC") #'completion-at-point)
|
||||
|
||||
;; C-p, C-f and C-b are assigned to Consult below.
|
||||
;; C-p and C-f are assigned to Consult below, C-m to ibuffer.
|
||||
(evil-define-key '(normal motion) 'global
|
||||
(kbd "C-e") #'dired-jump))
|
||||
|
||||
@@ -160,7 +147,7 @@
|
||||
;; Don't add its global [b ]b [e ]e ... bindings.
|
||||
(evil-collection-want-unimpaired-p nil)
|
||||
:config
|
||||
(evil-collection-init '(info)))
|
||||
(evil-collection-init '(info ibuffer)))
|
||||
|
||||
;; Minibuffer. Vertico
|
||||
(with-eval-after-load 'vertico
|
||||
@@ -173,14 +160,6 @@
|
||||
(evil-define-key '(insert normal) minibuffer-local-map
|
||||
(kbd "<escape>") #'abort-minibuffers)
|
||||
|
||||
;; Window navigation (normal/motion state): Ctrl+hjkl move, Ctrl+` closes.
|
||||
(evil-define-key '(normal motion) 'global
|
||||
(kbd "C-h") #'windmove-left
|
||||
(kbd "C-j") #'windmove-down
|
||||
(kbd "C-k") #'windmove-up
|
||||
(kbd "C-l") #'windmove-right
|
||||
(kbd "C-q") #'delete-window)
|
||||
|
||||
;; Result buffers: hjkl motions and RET to jump to a result.
|
||||
(dolist (m '(occur-mode grep-mode xref--xref-buffer-mode))
|
||||
(evil-set-initial-state m 'motion))
|
||||
@@ -207,22 +186,16 @@
|
||||
;; Searches start at the project root when there is one, else the current directory.
|
||||
(use-package consult
|
||||
:config
|
||||
;; Hide noise from the buffer picker.
|
||||
(dolist (re '("\\`\\*scratch\\*\\'"
|
||||
"\\`\\*Messages\\*\\'"
|
||||
"\\`\\*Warnings\\*\\'"
|
||||
"\\`\\*xref\\*\\'"))
|
||||
(add-to-list 'consult-buffer-filter re))
|
||||
|
||||
;; Don't re-run the preview on every keystroke while typing a search.
|
||||
(consult-customize consult-ripgrep
|
||||
:preview-key '(:debounce 0.4 any)))
|
||||
|
||||
;; Bind immediately, without waiting for consult to load.
|
||||
;; C-m opens the full ibuffer list (evil-collection provides its navigation).
|
||||
(evil-define-key '(normal motion) 'global
|
||||
(kbd "C-p") #'consult-fd
|
||||
(kbd "C-f") #'consult-ripgrep
|
||||
(kbd "C-b") #'consult-buffer)
|
||||
(kbd "C-m") #'ibuffer)
|
||||
|
||||
;;;; 7. Dired
|
||||
(setq dired-dwim-target t
|
||||
@@ -243,13 +216,13 @@
|
||||
"." #'dired-omit-mode
|
||||
(kbd "RET") #'dired-find-file))
|
||||
|
||||
;;;; Core config ends here.
|
||||
;;;; -----------------------------------------------------------------
|
||||
;;;; 8. Modules - additional functionality outside of the core init.el
|
||||
|
||||
;; Setup for orgmode
|
||||
(load (locate-user-emacs-file "modules/org.el") nil 'nomessage)
|
||||
|
||||
;; Setup for rss feed
|
||||
(load (locate-user-emacs-file "modules/rss.el") nil 'nomessage)
|
||||
|
||||
;; Magit and the :git command live in modules/git.el.
|
||||
(load (locate-user-emacs-file "modules/git.el") nil 'nomessage)
|
||||
|
||||
|
||||
@@ -2,16 +2,17 @@
|
||||
;;; Commentary:
|
||||
;; Loaded from init.el after Evil.
|
||||
;;
|
||||
;; :build Run ./build.sh from the project root.
|
||||
;; :build Run ./build.sh from the nearest ancestor dir containing it.
|
||||
;; :build ARGS Run ./build.sh ARGS, e.g. :build release -v
|
||||
;;
|
||||
;; If no build.sh is found (or it isn't executable), report it and do nothing.
|
||||
;;
|
||||
;; The compilation buffer opens at the bottom (45% height, full width) and
|
||||
;; takes focus when the build starts. ANSI colours are rendered.
|
||||
;; Kill a running build with M-x kill-compilation.
|
||||
;;; Code:
|
||||
|
||||
(setq compile-command "./build.sh"
|
||||
compilation-read-command nil ; run without prompting
|
||||
(setq compilation-read-command nil ; run without prompting
|
||||
compilation-ask-about-save nil
|
||||
compilation-scroll-output t)
|
||||
|
||||
@@ -31,10 +32,15 @@
|
||||
|
||||
;; :build runs ./build.sh; :build ARGS appends ARGS.
|
||||
(evil-define-command my/ex-build (args)
|
||||
"Run `./build.sh ARGS' from the project root."
|
||||
"Run `./build.sh ARGS' from the nearest directory containing build.sh."
|
||||
(interactive "<a>")
|
||||
(let ((compile-command (concat "./build.sh " args))) ; nil args -> ""
|
||||
(project-compile)))
|
||||
(let ((root (locate-dominating-file default-directory "build.sh")))
|
||||
(unless root
|
||||
(user-error "No build.sh found"))
|
||||
(let ((default-directory root))
|
||||
(unless (file-executable-p "build.sh")
|
||||
(user-error "build.sh is not executable"))
|
||||
(compile (string-trim (concat "./build.sh " args)))))) ; nil args -> ""
|
||||
|
||||
(evil-ex-define-cmd "build" #'my/ex-build)
|
||||
|
||||
|
||||
@@ -1,278 +0,0 @@
|
||||
;;; rss.el --- Elfeed for YouTube feeds, played in mpv -*- lexical-binding: t; -*-
|
||||
;;; Commentary:
|
||||
;; Elfeed with a little glue for Evil. Needs the `elfeed' package (MELPA).
|
||||
;;
|
||||
;; :rss / :rss get open elfeed / also fetch all feeds now
|
||||
;;
|
||||
;; Search buffer RET show the entry
|
||||
;; o play in mpv and mark read
|
||||
;; r/u mark read / unread
|
||||
;; A mark everything listed as read
|
||||
;; c pick a channel/feed by name and show only it
|
||||
;; s change the filter; TAB completes +tags
|
||||
;; (type "+seb" TAB -> "+Sebastian_Lague")
|
||||
;; gr fetch all feeds
|
||||
;; q quit
|
||||
;; Entry buffer o play in mpv
|
||||
;; q close
|
||||
;;
|
||||
;; Every feed is tagged with its category (+youtube, +news) and with its
|
||||
;; own channel tag: its name with spaces replaced by "_". So
|
||||
;; "gingerBill" is +gingerBill and "Sebastian Lague" is +Sebastian_Lague.
|
||||
;; Tags match exactly, but in the `s' prompt TAB completes them, ignoring
|
||||
;; case. Give a feed a short tag of your own with a third argument:
|
||||
;; (my/rss-yt "Jonathan Blow highlights" "UC..." 'blow).
|
||||
;;
|
||||
;; Everything else is your normal Evil keys. Nothing is fetched
|
||||
;; automatically; fetching is always manual (:rss get / gr). Fetch errors
|
||||
;; are logged in the *elfeed-log* buffer.
|
||||
;;
|
||||
;; Feeds live in `my/rss-categories' below, grouped by tag. Edit the list
|
||||
;; and restart Emacs.
|
||||
;;; Code:
|
||||
|
||||
(use-package elfeed
|
||||
:ensure t
|
||||
:defer t
|
||||
:custom
|
||||
(elfeed-search-filter "@1-month-ago +unread")
|
||||
;; Be gentle with YouTube: few simultaneous connections.
|
||||
(elfeed-curl-max-connections 4)
|
||||
:config
|
||||
;; Not in :custom: `my/rss-feeds' is defined below, and :custom runs
|
||||
;; immediately, while :config waits until elfeed loads.
|
||||
(setq elfeed-feeds (my/rss-feeds))
|
||||
(my/rss-apply-titles)
|
||||
(my/rss-retag))
|
||||
|
||||
(defun my/rss-yt (name channel-id &optional tag)
|
||||
"Feed entry for a YouTube channel, uploads only (no Shorts).
|
||||
TAG, a symbol, overrides the channel tag made from NAME."
|
||||
(let ((url (concat "https://www.youtube.com/feeds/videos.xml?playlist_id=UULF"
|
||||
(substring channel-id 2))))
|
||||
(if tag (list name url tag) (list name url))))
|
||||
|
||||
(defvar my/rss-categories
|
||||
(list
|
||||
(list 'youtube
|
||||
(my/rss-yt "Awesome" "UCXzw-OdotBUcNA9yhuYQBwA")
|
||||
(my/rss-yt "Coding with Sphere" "UCpwl7jNE9PJc-lBTShNs5TQ")
|
||||
(my/rss-yt "Computerphile" "UC9-y-6csu5WGm29I7JiwpnA")
|
||||
(my/rss-yt "gingerBill" "UCUSck1dOH7VKmG4lRW7tZXg")
|
||||
(my/rss-yt "Jonathan Blow highlights" "UCavhLwXoB9tkqd-KsXpovOQ")
|
||||
(my/rss-yt "Karl Zylinski" "UC5YnADU2rChK7598A9gKygQ")
|
||||
(my/rss-yt "Nic Barker" "UCz-yrxeZYIYdpEZgHGvIydA")
|
||||
(my/rss-yt "Nir Lichtman" "UCAMu6Dso0ENoNm3sKpQsy0g")
|
||||
(my/rss-yt "Ryan Fleury" "UCCsdwE2z_kRL3vfVsd5OGyA")
|
||||
(my/rss-yt "Tariq10x" "UCXyisNI9ezbv7fvGMoSaFKg")
|
||||
(my/rss-yt "The Coding Gopher" "UC-mTIBh__DzAqW495JHXy5A")
|
||||
(my/rss-yt "Tsoding Daily" "UCrqM0Ym_NbK1fqeQG2VIohg")
|
||||
(my/rss-yt "zyapguy" "UCc4IizbM0q_JySK3XUY0Drw")
|
||||
(my/rss-yt "Dylan Falconer" "UCZzs3Umh6sRiYS_IQIQDThw")
|
||||
(my/rss-yt "Gamefromscratch" "UCr-5TdGkKszdbboXXsFZJTQ")
|
||||
(my/rss-yt "Jonas Tyroller" "UC_p_9arduPuxM8DHTGIuSOg")
|
||||
(my/rss-yt "Miziziziz" "UCaoqVlqPTH78_xjTjTOMcmQ")
|
||||
(my/rss-yt "Penusbmic" "UCjU-rielI7RsX1hqsCQdfhw")
|
||||
(my/rss-yt "randy" "UCUmLRMERmJrmUtgnbFfknAg")
|
||||
(my/rss-yt "randy uncut" "UCgXdyySqz7qH-lDiVG-7KwA")
|
||||
(my/rss-yt "raylib" "UC8WIBkhYb5sBNqXO1mZ7WSQ")
|
||||
(my/rss-yt "Sebastian Lague" "UCmtyQOKKmrMVaKuRXz02jbQ")
|
||||
(my/rss-yt "Tantan" "UChl_NKOs1qqh_x7yJfaDpDw")
|
||||
(my/rss-yt "ThinMatrix" "UCUkRj4qoT1bsWpE_C8lZYoQ")
|
||||
(my/rss-yt "Brodie Robertson" "UCld68syR8Wi-GY_n4CaoJGA")
|
||||
(my/rss-yt "ETA PRIME" "UC_0CVCfC_3iuHqmyClu59Uw")
|
||||
(my/rss-yt "Benny Surge" "UCkih_7PNYICxAZi1omr2_Og")
|
||||
(my/rss-yt "bizlychannel" "UCMPGiQ8gwDXFYpwQhX6kK9A")
|
||||
(my/rss-yt "Daz Games" "UCDBCCMlFD-hArPbWv38FINA")
|
||||
(my/rss-yt "Deep Dive Dev" "UC1yGsLABIDAqLVtPnoHbpEA")
|
||||
(my/rss-yt "Flo Woelki" "UC18qytfIhR9cNEjUcgGLl3A")
|
||||
(my/rss-yt "Gohjoe" "UCac9YlOpTLy_wToRb5Bo-DQ")
|
||||
(my/rss-yt "Herbcode" "UC79nyXj9gujAj5CySiy2FAQ")
|
||||
(my/rss-yt "hoff._world" "UCaezB99bVg9xlMS6Jn_ka0A")
|
||||
(my/rss-yt "Inbound Shovel" "UCdYwjLVP-98bptdlQFO_5zQ")
|
||||
(my/rss-yt "Jimmy Oakes" "UChp08hcL-qAJD4LK51ZZZvw")
|
||||
(my/rss-yt "Juby Philosophy" "UCLrpO7U1lnmbRtVxji843-Q")
|
||||
(my/rss-yt "Lance Hedrick" "UCR2_8uHyWcTSV6iIw6BN4rg")
|
||||
(my/rss-yt "Mental Moshpit" "UC5a4hb7i2UAT6DxmGz72hdg")
|
||||
(my/rss-yt "NIGHTRIDE" "UCuYLDxZWv-aal88czKkFvKA")
|
||||
(my/rss-yt "Rockers Games" "UCeq6focWSVKJy5DR1JxDGyw")
|
||||
(my/rss-yt "Slax" "UCc0V8-3xYIT6aNOAreAjRcw")
|
||||
(my/rss-yt "StayAtHomeDev" "UCDshKIMtFjYreCzApleuV8w")
|
||||
(my/rss-yt "Turkey Tom" "UCDKJdFer1phQI95UinPZehw")
|
||||
(my/rss-yt "Zei" "UCywwEsnSmADUyhtSaq5dKNg")
|
||||
(my/rss-yt "Zip Tie Tech" "UCUpt_5O1vYpWAGg77iNMQXA"))
|
||||
(list 'news
|
||||
'("Hacker News" "https://hnrss.org/frontpage?points=100")))
|
||||
"Feeds by tag: each entry is (TAG FEED...), a feed is (NAME URL [CHANNEL-TAG]).
|
||||
The tag is what you filter on in elfeed, e.g. \"+youtube\". Each feed
|
||||
also gets its own channel tag, see `my/rss-channel-tag'.")
|
||||
|
||||
(defun my/rss-slug (name)
|
||||
"Tag symbol made from NAME, with spaces replaced by \"_\"."
|
||||
(intern (replace-regexp-in-string " +" "_" (string-trim name) t t)))
|
||||
|
||||
(defun my/rss-channel-tag (feed)
|
||||
"Channel tag for FEED, (NAME URL [TAG]): TAG if given, else NAME slugged."
|
||||
(or (nth 2 feed) (my/rss-slug (car feed))))
|
||||
|
||||
(defun my/rss-feeds ()
|
||||
"Elfeed feed list, (URL CATEGORY CHANNEL-TAG), from `my/rss-categories'."
|
||||
(mapcan (lambda (cat)
|
||||
(mapcar (lambda (feed)
|
||||
(list (cadr feed) (car cat) (my/rss-channel-tag feed)))
|
||||
(cdr cat)))
|
||||
my/rss-categories))
|
||||
|
||||
(defun my/rss-all-feeds ()
|
||||
"Every (NAME URL) in `my/rss-categories', across all tags."
|
||||
(mapcan (lambda (cat) (copy-sequence (cdr cat))) my/rss-categories))
|
||||
|
||||
(defun my/rss-apply-titles ()
|
||||
"Give each feed the name from `my/rss-categories' as its display title.
|
||||
YouTube playlist feeds all call themselves \"Videos\"; this overrides
|
||||
that, so the list shows the channel and \"=Name\" filters work. The
|
||||
title is stored as feed metadata, which fetching never overwrites."
|
||||
(dolist (feed (my/rss-all-feeds))
|
||||
(setf (elfeed-meta (elfeed-db-get-feed (cadr feed)) :title)
|
||||
(car feed))))
|
||||
|
||||
(defun my/rss-retag ()
|
||||
"Give already-fetched entries their feed's tags from `elfeed-feeds'.
|
||||
Elfeed tags entries only as they arrive, so this catches up entries
|
||||
fetched before a feed's tags changed. Safe to run any time."
|
||||
(interactive)
|
||||
(elfeed-db-ensure)
|
||||
(let ((tags-by-url (make-hash-table :test #'equal))
|
||||
(n 0))
|
||||
(dolist (f elfeed-feeds)
|
||||
(puthash (car f) (cdr f) tags-by-url))
|
||||
(maphash
|
||||
(lambda (_id entry)
|
||||
(let* ((tags (gethash (elfeed-entry-feed-id entry) tags-by-url))
|
||||
(missing (cl-set-difference tags (elfeed-entry-tags entry))))
|
||||
(when missing
|
||||
(apply #'elfeed-tag entry missing)
|
||||
(cl-incf n))))
|
||||
elfeed-db-entries)
|
||||
(when (or (> n 0) (called-interactively-p 'any))
|
||||
(message "rss: retagged %d entries" n))))
|
||||
|
||||
;;;; Playing videos
|
||||
|
||||
(defun my/rss-play (url &rest _)
|
||||
"Play URL in mpv. Its output goes to the *mpv* buffer."
|
||||
(message "mpv: starting %s (can take a few seconds)..." url)
|
||||
(set-process-sentinel
|
||||
(start-process "mpv" "*mpv*" "mpv" url)
|
||||
(lambda (proc _event)
|
||||
(when (and (eq (process-status proc) 'exit)
|
||||
(/= (process-exit-status proc) 0))
|
||||
(message "mpv failed (exit %d), see the *mpv* buffer"
|
||||
(process-exit-status proc))
|
||||
(display-buffer "*mpv*")))))
|
||||
|
||||
;; YouTube links go to mpv, everywhere in Emacs.
|
||||
(with-eval-after-load 'browse-url
|
||||
(add-to-list 'browse-url-handlers
|
||||
'("\\`https?://\\(?:www\\.\\|m\\.\\)?\\(?:youtube\\.com\\|youtu\\.be\\)/"
|
||||
. my/rss-play)))
|
||||
|
||||
;;;; Elfeed
|
||||
|
||||
(defvar my/rss-stagger 4
|
||||
"Seconds between feed fetches. YouTube answers with 404/500 when hit fast.")
|
||||
|
||||
(defun my/rss-fetch ()
|
||||
"Fetch every feed, one at a time, `my/rss-stagger' seconds apart.
|
||||
Run it again to fill in feeds that failed; entries are not duplicated."
|
||||
(interactive)
|
||||
(seq-do-indexed
|
||||
(lambda (feed i)
|
||||
(run-with-timer (* my/rss-stagger i) nil #'elfeed-update-feed (car feed)))
|
||||
elfeed-feeds)
|
||||
(message "rss: fetching %d feeds, about %ds"
|
||||
(length elfeed-feeds) (* my/rss-stagger (length elfeed-feeds))))
|
||||
|
||||
(defun my/rss-all-tags ()
|
||||
"Every tag name: the ones in `elfeed-feeds' plus any in the database."
|
||||
(delete-dups
|
||||
(mapcar #'symbol-name
|
||||
(append (mapcan (lambda (f) (copy-sequence (cdr f))) elfeed-feeds)
|
||||
(elfeed-db-get-all-tags)))))
|
||||
|
||||
(defun my/rss-filter-capf ()
|
||||
"Complete the +tag or -tag at point in the filter prompt."
|
||||
(when (looking-back "\\(?:^\\| \\)[+-]\\([^ ]*\\)" (line-beginning-position))
|
||||
(list (match-beginning 1) (match-end 1)
|
||||
(completion-table-case-fold (my/rss-all-tags))
|
||||
:exclusive 'no)))
|
||||
|
||||
(defvar my/rss-filter-map
|
||||
(let ((map (make-sparse-keymap)))
|
||||
(define-key map (kbd "TAB") #'completion-at-point)
|
||||
map)
|
||||
"Extra keys for the filter prompt.")
|
||||
|
||||
(defun my/rss-filter ()
|
||||
"Elfeed's live filter, with TAB completing +tags and -tags."
|
||||
(interactive)
|
||||
(minibuffer-with-setup-hook
|
||||
(lambda ()
|
||||
(add-hook 'completion-at-point-functions #'my/rss-filter-capf nil t)
|
||||
(use-local-map (make-composed-keymap my/rss-filter-map
|
||||
(current-local-map))))
|
||||
(elfeed-search-live-filter)))
|
||||
|
||||
(defun my/rss-mark-all-read ()
|
||||
"Mark every entry the current filter lists as read.
|
||||
Works on elfeed's list directly, so it doesn't depend on the region or
|
||||
on Evil's visual state. Clear the filter first to mark everything."
|
||||
(interactive)
|
||||
(let ((n (length elfeed-search-entries)))
|
||||
(elfeed-untag elfeed-search-entries 'unread)
|
||||
(elfeed-search-update :force)
|
||||
(message "rss: marked %d entries read" n)))
|
||||
|
||||
(defun my/rss-channel ()
|
||||
"Pick a feed by name and show only its entries (read and unread).
|
||||
Filters on the feed URL, so it works whatever the feed calls itself.
|
||||
Press `s' and clear the filter to go back."
|
||||
(interactive)
|
||||
(let* ((feeds (my/rss-all-feeds))
|
||||
(name (completing-read "Channel: " feeds nil t))
|
||||
(url (cadr (assoc name feeds))))
|
||||
(elfeed-search-set-filter
|
||||
(concat "@6-months-ago =" (regexp-quote url)))))
|
||||
|
||||
;; Elfeed's buffers start in motion state: Evil movement, no editing keys.
|
||||
(evil-set-initial-state 'elfeed-search-mode 'motion)
|
||||
(evil-set-initial-state 'elfeed-show-mode 'motion)
|
||||
|
||||
(with-eval-after-load 'elfeed-search
|
||||
(evil-define-key 'motion elfeed-search-mode-map
|
||||
(kbd "RET") #'elfeed-search-show-entry
|
||||
"o" #'elfeed-search-browse-url ; plays via `browse-url-handlers', marks read
|
||||
"r" #'elfeed-search-untag-all-unread
|
||||
"u" #'elfeed-search-tag-all-unread
|
||||
"A" #'my/rss-mark-all-read
|
||||
"c" #'my/rss-channel
|
||||
"s" #'my/rss-filter
|
||||
"gr" #'my/rss-fetch
|
||||
"q" #'elfeed-search-quit-window))
|
||||
|
||||
(with-eval-after-load 'elfeed-show
|
||||
(evil-define-key 'motion elfeed-show-mode-map
|
||||
"o" #'elfeed-show-visit
|
||||
"q" #'elfeed-kill-buffer))
|
||||
|
||||
;; :rss opens elfeed; :rss get also fetches every feed now.
|
||||
(evil-define-command my/rss (args)
|
||||
"Open elfeed, or fetch all feeds too with `:rss get'."
|
||||
(interactive "<a>")
|
||||
(elfeed)
|
||||
(when (equal (string-trim (or args "")) "get")
|
||||
(my/rss-fetch)))
|
||||
|
||||
(evil-ex-define-cmd "rss" #'my/rss)
|
||||
|
||||
;;; rss.el ends here
|
||||
@@ -0,0 +1,360 @@
|
||||
;;; minimal-theme.el --- Minimal high-functionality Ujelly port -*- lexical-binding: t; -*-
|
||||
;;
|
||||
;; Built on the compline-theme face structure, updated with the color palette
|
||||
;; from Ujelly (color-theme-ujelly by marktran).
|
||||
;;
|
||||
;;; Code:
|
||||
|
||||
(deftheme minimal
|
||||
"Created 2026-10-26.")
|
||||
|
||||
(custom-theme-set-faces
|
||||
'minimal
|
||||
|
||||
;;;; Core
|
||||
'(default ((t (:inherit nil :extend nil :stipple nil :background "#151515" :foreground "#e8e8d3" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight regular :height 143 :width normal))))
|
||||
'(cursor ((t (:background "#8fbfdc"))))
|
||||
'(fixed-pitch ((t (:height 140))))
|
||||
'(variable-pitch ((t (:height 140))))
|
||||
'(escape-glyph ((t (:foreground "#8fbfdc"))))
|
||||
'(homoglyph ((t (:foreground "#8fbfdc"))))
|
||||
'(minibuffer-prompt ((t (:foreground "#8fbfdc"))))
|
||||
'(highlight ((t (:foreground "#e8e8d3" :background "#303030" :weight bold))))
|
||||
'(hl-line ((t (:extend t :background "#1b1b1b"))))
|
||||
'(region ((t (:extend t :background "#404040"))))
|
||||
'(shadow ((t (:foreground "#7f7f7f"))))
|
||||
'(secondary-selection ((t (:extend t :background "#404040"))))
|
||||
'(trailing-whitespace ((t (:background "#cf6a4c"))))
|
||||
'(vertical-border ((t (:foreground "#262626"))))
|
||||
'(error ((t (:foreground "#cf6a4c"))))
|
||||
'(warning ((t (:foreground "#fad07a"))))
|
||||
'(success ((t (:foreground "#99ad6a"))))
|
||||
|
||||
;;;; Line numbers
|
||||
'(line-number ((t (:foreground "#404040"))))
|
||||
'(line-number-current-line ((t (:foreground "#e8e8d3"))))
|
||||
|
||||
;;;; Font lock
|
||||
'(font-lock-bracket-face ((t (:inherit (font-lock-punctuation-face)))))
|
||||
'(font-lock-builtin-face ((t (:foreground "#8fbfdc"))))
|
||||
'(font-lock-comment-delimiter-face ((default (:inherit (font-lock-comment-face)))))
|
||||
'(font-lock-comment-face ((t (:foreground "#767676"))))
|
||||
'(font-lock-constant-face ((t (:foreground "#c6b5ed"))))
|
||||
'(font-lock-delimiter-face ((t (:inherit (font-lock-punctuation-face)))))
|
||||
'(font-lock-doc-face ((t (:foreground "#767676" :inherit (font-lock-comment-face)))))
|
||||
'(font-lock-doc-markup-face ((t (:inherit (font-lock-constant-face)))))
|
||||
'(font-lock-escape-face ((t (:inherit (font-lock-regexp-grouping-backslash)))))
|
||||
'(font-lock-function-call-face ((t (:slant italic :foreground "#8fbfdc" :inherit (font-lock-function-name-face)))))
|
||||
'(font-lock-function-name-face ((t (:foreground "#8fbfdc"))))
|
||||
'(font-lock-keyword-face ((t (:foreground "#fad07a"))))
|
||||
'(font-lock-negation-char-face ((t (:foreground "#cf6a4c" :inherit (bold)))))
|
||||
'(font-lock-number-face ((t (:foreground "#cf6a4c"))))
|
||||
'(font-lock-misc-punctuation-face ((t (:inherit (font-lock-punctuation-face)))))
|
||||
'(font-lock-operator-face ((t (:foreground "#a0a8b0"))))
|
||||
'(font-lock-preprocessor-face ((t (:foreground "#fad07a" :inherit (bold)))))
|
||||
'(font-lock-property-name-face ((t (:weight bold :foreground "#8fbfdc"))))
|
||||
'(font-lock-property-use-face ((t (:weight regular :inherit (font-lock-property-name-face)))))
|
||||
'(font-lock-punctuation-face ((t (:foreground "#a0a8b0"))))
|
||||
'(font-lock-regexp-grouping-backslash ((t (:foreground "#fad07a" :inherit (bold)))))
|
||||
'(font-lock-regexp-grouping-construct ((t (:foreground "#fad07a" :inherit (bold)))))
|
||||
'(font-lock-string-face ((t (:foreground "#99ad6a"))))
|
||||
'(font-lock-type-face ((t (:foreground "#ffb17a"))))
|
||||
'(font-lock-variable-name-face ((t (:foreground "#e8e8d3"))))
|
||||
'(font-lock-variable-use-face ((t (:foreground "#e8e8d3" :inherit (font-lock-variable-name-face)))))
|
||||
'(font-lock-warning-face ((t (:inherit (warning)))))
|
||||
|
||||
;;;; Links, buttons, tooltips
|
||||
'(button ((t (:inherit (link)))))
|
||||
'(link ((t (:weight bold :underline (:color foreground-color :style line :position nil) :foreground "#8fbfdc"))))
|
||||
'(link-visited ((t (:inherit link :foreground "#c6b5ed"))))
|
||||
'(fringe ((t (:foreground "#404040" :inherit (default)))))
|
||||
'(tooltip ((t (:foreground "#e8e8d3" :background "#1b1b1b"))))
|
||||
|
||||
;;;; Mode line
|
||||
'(header-line ((t (:inherit (mode-line)))))
|
||||
'(mode-line ((t (:background "#1c1c1c" :foreground unspecified))))
|
||||
'(mode-line-buffer-id ((t (:weight bold))))
|
||||
'(mode-line-emphasis ((t (:foreground "#fad07a"))))
|
||||
'(mode-line-highlight ((t (:inherit (highlight)))))
|
||||
'(mode-line-inactive ((t (:foreground "#767676" :background "#121212"))))
|
||||
|
||||
;;;; Tab bar
|
||||
'(tab-bar ((t (:inherit default :background "#151515" :foreground "#767676"))))
|
||||
'(tab-bar-tab ((t (:inherit tab-bar :background "#262626" :foreground "#e8e8d3" :weight bold :box nil))))
|
||||
'(tab-bar-tab-inactive ((t (:inherit tab-bar :background "#151515" :foreground "#999999" :weight normal :box nil))))
|
||||
|
||||
;;;; Search & Completions
|
||||
'(isearch ((t (:weight bold :inherit (lazy-highlight)))))
|
||||
'(isearch-fail ((t (:weight bold :foreground "#151515" :background "#cf6a4c"))))
|
||||
'(lazy-highlight ((t (:weight bold :foreground "#e8e8d3" :background "#303030"))))
|
||||
'(match ((t (:weight bold :foreground "#99ad6a" :background "#151515"))))
|
||||
'(next-error ((t (:inherit (region)))))
|
||||
'(query-replace ((t (:inherit (isearch)))))
|
||||
|
||||
;;;; VC gutter: added = green, deleted = red, modified = sand/yellow
|
||||
'(diff-hl-insert ((t (:foreground "#99ad6a" :background "#99ad6a"))))
|
||||
'(diff-hl-delete ((t (:foreground "#cf6a4c" :background "#cf6a4c"))))
|
||||
'(diff-hl-change ((t (:foreground "#fad07a" :background "#fad07a"))))
|
||||
'(git-gutter:added ((t (:foreground "#99ad6a" :background "#99ad6a"))))
|
||||
'(git-gutter:deleted ((t (:foreground "#cf6a4c" :background "#cf6a4c"))))
|
||||
'(git-gutter:modified ((t (:foreground "#fad07a" :background "#fad07a"))))
|
||||
'(git-gutter-fr:added ((t (:foreground "#99ad6a"))))
|
||||
'(git-gutter-fr:deleted ((t (:foreground "#cf6a4c"))))
|
||||
'(git-gutter-fr:modified ((t (:foreground "#fad07a"))))
|
||||
|
||||
;;;; gnus: group buffer
|
||||
'(gnus-group-news-1 ((t (:foreground "#e8e8d3" :weight bold))))
|
||||
'(gnus-group-news-1-empty ((t (:foreground "#e8e8d3" :weight normal))))
|
||||
'(gnus-group-news-2 ((t (:foreground "#8fbfdc" :weight bold))))
|
||||
'(gnus-group-news-2-empty ((t (:foreground "#8fbfdc" :weight normal))))
|
||||
'(gnus-group-news-3 ((t (:foreground "#fad07a" :weight bold))))
|
||||
'(gnus-group-news-3-empty ((t (:foreground "#fad07a" :weight normal))))
|
||||
'(gnus-group-news-low ((t (:foreground "#767676" :weight bold))))
|
||||
'(gnus-group-news-low-empty ((t (:foreground "#404040" :weight normal))))
|
||||
'(gnus-group-mail-1 ((t (:foreground "#99ad6a" :weight bold))))
|
||||
'(gnus-group-mail-1-empty ((t (:foreground "#99ad6a" :weight normal))))
|
||||
'(gnus-group-mail-2 ((t (:foreground "#c6b5ed" :weight bold))))
|
||||
'(gnus-group-mail-2-empty ((t (:foreground "#c6b5ed" :weight normal))))
|
||||
'(gnus-group-mail-3 ((t (:foreground "#ffb17a" :weight bold))))
|
||||
'(gnus-group-mail-3-empty ((t (:foreground "#ffb17a" :weight normal))))
|
||||
'(gnus-group-mail-low ((t (:foreground "#767676" :weight bold))))
|
||||
'(gnus-group-mail-low-empty ((t (:foreground "#404040" :weight normal))))
|
||||
|
||||
;;;; gnus: summary buffer
|
||||
'(gnus-summary-normal-unread ((t (:foreground "#e8e8d3" :weight bold))))
|
||||
'(gnus-summary-normal-read ((t (:foreground "#767676" :weight normal))))
|
||||
'(gnus-summary-normal-ticked ((t (:foreground "#cf6a4c" :weight bold))))
|
||||
'(gnus-summary-normal-ancient ((t (:foreground "#404040" :weight normal))))
|
||||
'(gnus-summary-normal-undownloaded ((t (:foreground "#8fbfdc" :slant italic))))
|
||||
'(gnus-summary-high-unread ((t (:foreground "#fad07a" :weight bold))))
|
||||
'(gnus-summary-high-read ((t (:foreground "#99ad6a" :weight normal))))
|
||||
'(gnus-summary-high-ticked ((t (:foreground "#cf6a4c" :weight bold))))
|
||||
'(gnus-summary-high-ancient ((t (:foreground "#767676" :weight normal))))
|
||||
'(gnus-summary-low-unread ((t (:foreground "#8fbfdc" :slant italic :weight bold))))
|
||||
'(gnus-summary-low-read ((t (:foreground "#404040" :slant italic :weight normal))))
|
||||
'(gnus-summary-low-ticked ((t (:foreground "#cf6a4c" :slant italic))))
|
||||
'(gnus-summary-low-ancient ((t (:foreground "#404040" :slant italic))))
|
||||
'(gnus-summary-selected ((t (:background "#404040" :foreground "#e8e8d3" :weight bold))))
|
||||
'(gnus-summary-cancelled ((t (:foreground "#cf6a4c" :strike-through t))))
|
||||
|
||||
;;;; gnus: article headers, citations, misc
|
||||
'(gnus-header-name ((t (:foreground "#8fbfdc" :weight bold))))
|
||||
'(gnus-header-content ((t (:foreground "#fad07a" :slant italic))))
|
||||
'(gnus-header-from ((t (:foreground "#e8e8d3" :weight bold))))
|
||||
'(gnus-header-subject ((t (:foreground "#ffb17a"))))
|
||||
'(gnus-header-newsgroups ((t (:foreground "#fad07a" :slant italic))))
|
||||
'(gnus-cite-1 ((t (:foreground "#8fbfdc"))))
|
||||
'(gnus-cite-2 ((t (:foreground "#99ad6a"))))
|
||||
'(gnus-cite-3 ((t (:foreground "#fad07a"))))
|
||||
'(gnus-cite-4 ((t (:foreground "#cf6a4c"))))
|
||||
'(gnus-cite-5 ((t (:foreground "#c6b5ed"))))
|
||||
'(gnus-cite-6 ((t (:foreground "#ffb17a"))))
|
||||
'(gnus-cite-7 ((t (:foreground "#8fbfdc"))))
|
||||
'(gnus-cite-8 ((t (:foreground "#99ad6a"))))
|
||||
'(gnus-cite-9 ((t (:foreground "#fad07a"))))
|
||||
'(gnus-cite-10 ((t (:foreground "#767676"))))
|
||||
'(gnus-cite-11 ((t (:foreground "#404040"))))
|
||||
'(gnus-signature ((t (:foreground "#767676" :slant italic))))
|
||||
'(gnus-button ((t (:inherit link))))
|
||||
'(gnus-splash ((t (:foreground "#767676"))))
|
||||
'(gnus-emphasis-bold ((t (:weight bold))))
|
||||
'(gnus-emphasis-italic ((t (:slant italic))))
|
||||
'(gnus-emphasis-underline ((t (:underline t))))
|
||||
'(gnus-emphasis-bold-italic ((t (:weight bold :slant italic))))
|
||||
'(gnus-server-opened ((t (:foreground "#99ad6a" :weight bold))))
|
||||
'(gnus-server-closed ((t (:foreground "#767676" :slant italic))))
|
||||
'(gnus-server-denied ((t (:foreground "#cf6a4c" :weight bold))))
|
||||
'(gnus-server-offline ((t (:foreground "#fad07a" :weight bold))))
|
||||
'(gnus-server-agent ((t (:foreground "#8fbfdc" :weight bold))))
|
||||
|
||||
;;;; message (gnus composition buffers)
|
||||
'(message-header-name ((t (:foreground "#8fbfdc" :weight bold))))
|
||||
'(message-header-to ((t (:foreground "#e8e8d3" :weight bold))))
|
||||
'(message-header-cc ((t (:foreground "#ffb17a"))))
|
||||
'(message-header-subject ((t (:foreground "#e8e8d3" :weight bold))))
|
||||
'(message-header-newsgroups ((t (:foreground "#fad07a" :slant italic))))
|
||||
'(message-header-other ((t (:foreground "#fad07a"))))
|
||||
'(message-header-xheader ((t (:foreground "#767676"))))
|
||||
'(message-separator ((t (:foreground "#404040"))))
|
||||
'(message-mml ((t (:foreground "#99ad6a"))))
|
||||
'(message-cited-text-1 ((t (:foreground "#8fbfdc"))))
|
||||
'(message-cited-text-2 ((t (:foreground "#99ad6a"))))
|
||||
'(message-cited-text-3 ((t (:foreground "#fad07a"))))
|
||||
'(message-cited-text-4 ((t (:foreground "#cf6a4c"))))
|
||||
|
||||
;;;; magit: sections
|
||||
'(magit-section-heading ((t (:foreground "#fad07a" :weight bold :extend t))))
|
||||
'(magit-section-secondary-heading ((t (:foreground "#c6b5ed" :weight bold :extend t))))
|
||||
'(magit-section-heading-selection ((t (:foreground "#99ad6a" :weight bold :extend t))))
|
||||
'(magit-section-highlight ((t (:background "#1b1b1b" :extend t))))
|
||||
'(magit-section-child-count ((t (:foreground "#767676"))))
|
||||
|
||||
;;;; magit: refs, hashes, log
|
||||
'(magit-branch-local ((t (:foreground "#8fbfdc"))))
|
||||
'(magit-branch-remote ((t (:foreground "#99ad6a"))))
|
||||
'(magit-branch-current ((t (:foreground "#8fbfdc" :weight bold :box (:line-width -1 :color "#767676")))))
|
||||
'(magit-branch-remote-head ((t (:foreground "#99ad6a" :weight bold :box (:line-width -1 :color "#767676")))))
|
||||
'(magit-branch-upstream ((t (:slant italic))))
|
||||
'(magit-tag ((t (:foreground "#fad07a"))))
|
||||
'(magit-hash ((t (:foreground "#767676"))))
|
||||
'(magit-dimmed ((t (:foreground "#404040"))))
|
||||
'(magit-filename ((t (:foreground "#e8e8d3"))))
|
||||
'(magit-refname ((t (:foreground "#767676"))))
|
||||
'(magit-refname-stash ((t (:foreground "#767676"))))
|
||||
'(magit-refname-wip ((t (:foreground "#767676"))))
|
||||
'(magit-log-author ((t (:foreground "#fad07a"))))
|
||||
'(magit-log-date ((t (:foreground "#767676"))))
|
||||
'(magit-log-graph ((t (:foreground "#404040"))))
|
||||
'(magit-keyword ((t (:foreground "#fad07a"))))
|
||||
'(magit-keyword-squash ((t (:foreground "#fad07a"))))
|
||||
'(magit-cherry-equivalent ((t (:foreground "#e8e8d3"))))
|
||||
'(magit-cherry-unmatched ((t (:foreground "#8fbfdc"))))
|
||||
|
||||
;;;; magit: diffs
|
||||
'(magit-diff-file-heading ((t (:foreground "#e8e8d3" :weight bold :extend t))))
|
||||
'(magit-diff-file-heading-highlight ((t (:inherit magit-diff-file-heading :background "#1b1b1b"))))
|
||||
'(magit-diff-file-heading-selection ((t (:inherit magit-diff-file-heading :foreground "#fad07a" :background "#404040"))))
|
||||
'(magit-diff-hunk-heading ((t (:foreground "#c6b5ed" :background "#222222" :extend t))))
|
||||
'(magit-diff-hunk-heading-highlight ((t (:foreground "#e8e8d3" :background "#404040" :extend t))))
|
||||
'(magit-diff-hunk-heading-selection ((t (:foreground "#fad07a" :background "#404040" :extend t))))
|
||||
'(magit-diff-lines-heading ((t (:foreground "#151515" :background "#fad07a" :extend t))))
|
||||
'(magit-diff-context ((t (:foreground "#767676" :extend t))))
|
||||
'(magit-diff-context-highlight ((t (:foreground "#c6b5ed" :background "#1b1b1b" :extend t))))
|
||||
'(magit-diff-added ((t (:foreground "#99ad6a" :background "#1a261a" :extend t))))
|
||||
'(magit-diff-added-highlight ((t (:foreground "#99ad6a" :background "#223322" :extend t))))
|
||||
'(magit-diff-removed ((t (:foreground "#cf6a4c" :background "#261a1a" :extend t))))
|
||||
'(magit-diff-removed-highlight ((t (:foreground "#cf6a4c" :background "#332222" :extend t))))
|
||||
'(magit-diffstat-added ((t (:foreground "#99ad6a"))))
|
||||
'(magit-diffstat-removed ((t (:foreground "#cf6a4c"))))
|
||||
'(magit-diff-whitespace-warning ((t (:background "#cf6a4c"))))
|
||||
|
||||
;;;; magit: process, signatures, sequences, blame, header line
|
||||
'(magit-process-ok ((t (:foreground "#99ad6a" :weight bold))))
|
||||
'(magit-process-ng ((t (:foreground "#cf6a4c" :weight bold))))
|
||||
'(magit-mode-line-process ((t (:foreground "#fad07a"))))
|
||||
'(magit-mode-line-process-error ((t (:foreground "#cf6a4c"))))
|
||||
'(magit-signature-good ((t (:foreground "#99ad6a"))))
|
||||
'(magit-signature-bad ((t (:foreground "#cf6a4c" :weight bold))))
|
||||
'(magit-signature-untrusted ((t (:foreground "#8fbfdc"))))
|
||||
'(magit-signature-expired ((t (:foreground "#fad07a"))))
|
||||
'(magit-signature-expired-key ((t (:foreground "#fad07a"))))
|
||||
'(magit-signature-revoked ((t (:foreground "#cf6a4c"))))
|
||||
'(magit-signature-error ((t (:foreground "#cf6a4c"))))
|
||||
'(magit-sequence-head ((t (:foreground "#8fbfdc"))))
|
||||
'(magit-sequence-stop ((t (:foreground "#99ad6a"))))
|
||||
'(magit-sequence-part ((t (:foreground "#fad07a"))))
|
||||
'(magit-sequence-done ((t (:foreground "#767676"))))
|
||||
'(magit-sequence-onto ((t (:foreground "#767676"))))
|
||||
'(magit-bisect-good ((t (:foreground "#99ad6a"))))
|
||||
'(magit-bisect-skip ((t (:foreground "#fad07a"))))
|
||||
'(magit-bisect-bad ((t (:foreground "#cf6a4c"))))
|
||||
'(magit-blame-heading ((t (:foreground "#c6b5ed" :background "#222222" :extend t))))
|
||||
'(magit-header-line ((t (:foreground "#fad07a" :weight bold))))
|
||||
'(magit-header-line-key ((t (:foreground "#fad07a"))))
|
||||
'(magit-header-line-log-select ((t (:foreground "#e8e8d3" :weight bold))))
|
||||
|
||||
;;;; transient (magit popups)
|
||||
'(transient-heading ((t (:foreground "#fad07a" :weight bold))))
|
||||
'(transient-key ((t (:foreground "#fad07a" :weight bold))))
|
||||
'(transient-key-exit ((t (:foreground "#cf6a4c" :weight bold))))
|
||||
'(transient-key-return ((t (:foreground "#fad07a" :weight bold))))
|
||||
'(transient-key-stay ((t (:foreground "#99ad6a" :weight bold))))
|
||||
'(transient-argument ((t (:foreground "#99ad6a" :weight bold))))
|
||||
'(transient-value ((t (:foreground "#99ad6a"))))
|
||||
'(transient-inactive-argument ((t (:foreground "#767676"))))
|
||||
'(transient-inactive-value ((t (:foreground "#767676"))))
|
||||
'(transient-unreachable ((t (:foreground "#404040"))))
|
||||
'(transient-unreachable-key ((t (:foreground "#404040"))))
|
||||
'(transient-disabled-suffix ((t (:foreground "#151515" :background "#cf6a4c" :weight bold))))
|
||||
'(transient-enabled-suffix ((t (:foreground "#151515" :background "#99ad6a" :weight bold))))
|
||||
'(transient-delimiter ((t (:foreground "#767676"))))
|
||||
'(transient-separator ((t (:background "#1c1c1c"))))
|
||||
'(transient-active-infix ((t (:foreground "#e8e8d3" :background "#404040"))))
|
||||
'(transient-mismatched-key ((t (:underline t))))
|
||||
'(transient-nonstandard-key ((t (:underline t))))
|
||||
|
||||
;;;; git-commit (magit commit message buffer)
|
||||
'(git-commit-summary ((t (:foreground "#e8e8d3" :weight bold))))
|
||||
'(git-commit-overlong-summary ((t (:foreground "#cf6a4c" :weight bold))))
|
||||
'(git-commit-nonempty-second-line ((t (:foreground "#cf6a4c"))))
|
||||
'(git-commit-keyword ((t (:foreground "#8fbfdc"))))
|
||||
'(git-commit-comment-heading ((t (:foreground "#fad07a" :weight bold))))
|
||||
'(git-commit-comment-branch-local ((t (:foreground "#8fbfdc"))))
|
||||
'(git-commit-comment-branch-remote ((t (:foreground "#99ad6a"))))
|
||||
'(git-commit-comment-detached ((t (:foreground "#fad07a"))))
|
||||
'(git-commit-comment-file ((t (:foreground "#fad07a"))))
|
||||
'(git-commit-comment-action ((t (:foreground "#99ad6a"))))
|
||||
|
||||
;;;; erc: buffer text
|
||||
'(erc-default-face ((t (:foreground "#e8e8d3"))))
|
||||
'(erc-input-face ((t (:foreground "#99ad6a"))))
|
||||
'(erc-my-nick-face ((t (:foreground "#99ad6a" :weight bold))))
|
||||
'(erc-my-nick-prefix-face ((t (:foreground "#99ad6a" :weight bold))))
|
||||
'(erc-nick-default-face ((t (:foreground "#e8e8d3" :weight bold))))
|
||||
'(erc-nick-prefix-face ((t (:foreground "#fad07a"))))
|
||||
'(erc-notice-face ((t (:foreground "#767676" :weight normal))))
|
||||
'(erc-information ((t (:foreground "#c6b5ed"))))
|
||||
'(erc-timestamp-face ((t (:foreground "#404040" :weight normal))))
|
||||
'(erc-action-face ((t (:foreground "#ffb17a" :weight bold))))
|
||||
'(erc-prompt-face ((t (:foreground "#fad07a" :weight bold))))
|
||||
'(erc-command-indicator-face ((t (:foreground "#c6b5ed" :weight bold))))
|
||||
'(erc-error-face ((t (:foreground "#cf6a4c"))))
|
||||
'(erc-button ((t (:inherit link :foreground "#e8e8d3"))))
|
||||
'(erc-button-nick-default-face ((t (:foreground "#e8e8d3" :weight bold))))
|
||||
'(erc-bold-face ((t (:weight bold))))
|
||||
'(erc-italic-face ((t (:slant italic))))
|
||||
'(erc-underline-face ((t (:underline t))))
|
||||
'(erc-inverse-face ((t (:foreground "#151515" :background "#e8e8d3"))))
|
||||
'(erc-keep-place-indicator-line ((t (:underline (:color "#404040" :style line)))))
|
||||
'(erc-keep-place-indicator-arrow ((t (:foreground "#cf6a4c"))))
|
||||
'(erc-header-line ((t (:foreground "#c6b5ed" :background "#1c1c1c"))))
|
||||
'(erc-header-line-disconnected ((t (:foreground "#cf6a4c" :background "#1c1c1c"))))
|
||||
|
||||
;;;; erc: highlighting rules
|
||||
'(erc-current-nick-face ((t (:foreground "#fad07a" :weight bold))))
|
||||
'(erc-keyword-face ((t (:foreground "#fad07a" :weight bold))))
|
||||
'(erc-nick-msg-face ((t (:foreground "#fad07a" :weight bold))))
|
||||
'(erc-direct-msg-face ((t (:foreground "#cf6a4c"))))
|
||||
'(erc-pal-face ((t (:foreground "#99ad6a" :weight bold))))
|
||||
'(erc-fool-face ((t (:foreground "#404040"))))
|
||||
'(erc-dangerous-host-face ((t (:foreground "#cf6a4c"))))
|
||||
|
||||
;;;; css-mode / scss-mode
|
||||
'(css-proprietary-property ((t (:foreground "#fad07a"))))
|
||||
'(css-property ((t (:foreground "#e8e8d3"))))
|
||||
'(css-selector ((t (:foreground "#cf6a4c"))))
|
||||
|
||||
;;;; markdown-mode
|
||||
'(markdown-markup-face ((t (:foreground "#404040"))))
|
||||
'(markdown-header-face ((t (:inherit bold :foreground "#cf6a4c"))))
|
||||
'(markdown-code-face ((t (:background "#1c1c1c"))))
|
||||
|
||||
;;;; outline
|
||||
'(outline-1 ((t (:foreground "#e8e8d3" :weight ultra-bold))))
|
||||
'(outline-2 ((t (:foreground "#8fbfdc"))))
|
||||
'(outline-3 ((t (:foreground "#99ad6a"))))
|
||||
'(outline-4 ((t (:foreground "#c6b5ed"))))
|
||||
'(outline-5 ((t (:foreground "#ffb17a"))))
|
||||
'(outline-6 ((t (:foreground "#fad07a"))))
|
||||
'(outline-7 ((t (:foreground "#cf6a4c"))))
|
||||
'(outline-8 ((t (:foreground "#e8e8d3"))))
|
||||
|
||||
;;;; org
|
||||
'(org-block ((t (:background "#1b1b1b"))))
|
||||
'(org-block-begin-line ((t (:foreground "#404040" :slant italic :background "#121212"))))
|
||||
'(org-ellipsis ((t (:underline nil :background "#151515" :foreground "#cf6a4c"))))
|
||||
'(org-quote ((t (:background "#1c1c1c"))))
|
||||
'(org-hide ((t (:foreground "#151515"))))
|
||||
|
||||
;;;; solaire-mode
|
||||
'(solaire-mode-line-face ((t (:inherit mode-line :background "#1c1c1c"))))
|
||||
'(solaire-mode-line-inactive-face ((t (:inherit mode-line-inactive :background "#1c1c1c")))))
|
||||
|
||||
;;;###autoload
|
||||
(when load-file-name
|
||||
(add-to-list 'custom-theme-load-path
|
||||
(file-name-as-directory (file-name-directory load-file-name))))
|
||||
|
||||
(provide-theme 'minimal)
|
||||
|
||||
;;; minimal-theme.el ends here
|
||||
Reference in New Issue
Block a user