From 4f8b9467ae8a8720c47a010c488aeecdee4c06b3 Mon Sep 17 00:00:00 2001 From: Case Duckworth Date: Sat, 9 Jan 2021 14:45:34 -0600 Subject: Update README --- README.md | 160 ++++++++++++++++++++++++++++++++++++++++++++++++++------------ 1 file changed, 129 insertions(+), 31 deletions(-) (limited to 'README.md') diff --git a/README.md b/README.md index adf04f8..5bd0a6b 100644 --- a/README.md +++ b/README.md @@ -332,6 +332,7 @@ from [EmacsWiki](https://www.emacswiki.org/emacs/AlarmBell#h5o-3). (cuss sml/no-confirm-load-theme t "Pass the NO-CONFIRM flag to `load-theme'.") + (cuss sml/theme 'respectful) (sml/setup) @@ -411,15 +412,14 @@ helper function, though, to add things to the whitelist. #### Define fonts - (defun set-face-from-alternatives (face fonts) + (defun set-face-from-alternatives (face frame &rest fontspecs) + "Set FACE on FRAME from first available spec from FONTSPECS. + FACE and FRAME work the same as with `set-face-attribute.'" (catch :return - (dolist (font fonts) - (when (find-font (font-spec :family (car font))) - (apply #'set-face-attribute `(,face - nil - :family (car font) - ,@(cdr font))) - (throw :return font))))) + (dolist (spec fontspecs) + (when-let ((found (find-font (apply #'font-spec spec)))) + (set-face-attribute face frame :font found) + (throw :return found))))) (defun acdw/setup-fonts () "Setup fonts. This has to happen after the frame is setup for @@ -427,24 +427,27 @@ helper function, though, to add things to the whitelist. removes itself from that hook." (interactive) (when (display-graphic-p) - (set-face-from-alternatives 'default - '(("Input Mono" - :height 105) - ("Go Mono" - :height 100) - ("Consolas" - :height 100))) - - (set-face-from-alternatives 'fixed-pitch - '(("Input Mono") - ("Go Mono") - ("Consolas"))) - - (set-face-from-alternatives 'variable-pitch - '(("Input Serif") - ("Georgia"))) - - (remove-function after-focus-change-function #'acdw/setup-fonts))) + (dolist (face '(default fixed-pitch)) + ;; fixed-pitch /is/ the default + (set-face-from-alternatives face nil + '(:family "Input Mono" + :weight normal + :height 110) + '(:family "Go Mono" + :weight normal + :height 100) + '(:family "Consolas" + :weight normal + :height 100))) + ;; variable-pitch is different + (set-face-from-alternatives 'variable-pitch nil + '(:family "Input Sans" + :weight normal) + '(:family "Georgia" + :weight normal))) + + ;; remove myself from the hook + (remove-function after-focus-change-function #'acdw/setup-fonts)) (add-function :before after-focus-change-function #'acdw/setup-fonts) @@ -843,6 +846,12 @@ I’ve pretty much cribbed this from [recentf-remove-sudo-tramp-prefix](https:// (global-visual-line-mode +1) +### View long lines like filled lines in the beginning + + (straight-use-package 'adaptive-wrap) + (adaptive-wrap-prefix-mode +1) + + ### Stay snappy with long-lined files (when (fboundp 'global-so-long-mode) @@ -1008,6 +1017,12 @@ I’ve pretty much cribbed this from [recentf-remove-sudo-tramp-prefix](https:// "Don't truncate printed expressions by level.") +### Janet + + (straight-use-package 'janet-mode) + (require 'janet-mode) + + ### INI (straight-use-package 'ini-mode) @@ -1105,6 +1120,12 @@ This has to be done *before* loading the package. It's included in `visual-fill ;; highlight the current line in dired. (add-hook 'dired-mode-hook #'hl-line-mode) + + (cuss dired-recursive-copies 'always + "Always recursively copy.") + + (cuss dired-listing-switches "-alh" + "Show All items, Listed out, with Human-readable sizes.") ### Expand subtrees @@ -1122,6 +1143,19 @@ This has to be done *before* loading the package. It's included in `visual-fill (add-hook 'dired-mode-hook #'dired-collapse-mode) +### Kill dired buffers + +from [munen](https://github.com/munen/emacs.d/). + + (defun kill-dired-buffers () + "Kill all open dired buffers." + (interactive) + (mapc (lambda (buffer) + (when (eq 'dired-mode (buffer-local-value 'major-mode buffer)) + (kill-buffer buffer))) + (buffer-list))) + + ## Org mode I’ve put org mode under Applications, as opposed to Writing, because it’s more generally-applicable than that. @@ -1358,6 +1392,8 @@ from [unpackaged.el](https://github.com/alphapapa/unpackaged.el#ensure-blank-lin (cuss org-agenda-skip-scheduled-if-done t) (cuss org-agenda-skip-deadline-if-done t) + (cuss org-deadline-warning-days 4 + "Warn of a deadline beginning four days before.") ### TODO Capture @@ -1496,10 +1532,12 @@ I’m only enabling this at home for now, since it requires building stuff. "flag:unread AND NOT flag:trashed AND NOT maildir:/Spam" :key ?u) (:name "Today" - :query "date:today..now and not and not flag:trashed maildir:/Spam" + :query + "date:today..now and not flag:trashed and not maildir:/Spam" :key ?t) (:name "This week" - :query "date:7d..now and not maildir:/Spam and not flag:trashed" + :query + "date:7d..now and not maildir:/Spam and not flag:trashed" :hide-unread t :key ?w))) @@ -1523,9 +1561,11 @@ I’m only enabling this at home for now, since it requires building stuff. (add-hook 'mu4e-headers-mode #'acdw/setup-mu4e-headers-mode) (defun acdw/setup-mu4e-view-mode () + (setq visual-fill-column-center-text t) (visual-fill-column-mode +1)) (add-hook 'mu4e-view-mode-hook #'acdw/setup-mu4e-view-mode) + (add-hook 'mu4e-compose-mode-hook #'acdw/setup-mu4e-view-mode) (cuss mu4e-get-mail-command (cond ((executable-find "mbsync") "mbsync -a")) @@ -1626,6 +1666,60 @@ I’m only enabling this at home for now, since it requires building stuff. ;; TODO : add tokens ... somehow +## RSS + + +### elfeed + + (straight-use-package 'elfeed) + (require 'elfeed) + (define-key acdw/map "w" 'elfeed) + + (cuss elfeed-use-curl (executable-find "curl")) + (cuss elfeed-curl-extra-arguments '("--insecure") + "Extra arguments for curl.") + (elfeed-set-timeout (* 60 3)) + + (defun acdw/setup-elfeed-show () + (setq visual-fill-column-center-text t) + (visual-fill-column-mode +1)) + + (add-hook 'elfeed-show-mode-hook #'acdw/setup-elfeed-show) + + +### elfeed-protocol + + (straight-use-package 'elfeed-protocol) + (require 'elfeed-protocol) + + (cuss elfeed-protocol-ttrss-maxsize 200) + + (cuss elfeed-feeds (list + (list "ttrss+https://acdw@rss.tildeverse.org" + :use-authinfo t))) + + (setq elfeed-log-level 'debug) + + (elfeed-protocol-enable) + + +# System integration + + +## Linux + + +### Exec path from shell + + (at-home + (straight-use-package 'exec-path-from-shell) + (defvar acdw/exec-path-from-shell-initialized nil + "Stores whether we've initialized or not.") + (unless acdw/exec-path-from-shell-initialized + (exec-path-from-shell-initialize) + (setq acdw/exec-path-from-shell-initialized (current-time)))) + + # Appendices @@ -1648,9 +1742,11 @@ I’m only enabling this at home for now, since it requires building stuff. (conf-org (concat conf ".org"))) (unless (and (file-newer-than-file-p conf-el conf-org) (load conf 'no-error)) - ;; A plain require here just loads the older `org' in Emacs' install dir. We - ;; need to add the newer one to the `load-path', hopefully that's all. - (add-to-list 'load-path (expand-file-name "straight/build/org/")) + ;; A plain require here just loads the older `org' + ;; in Emacs' install dir. We need to add the newer + ;; one to the `load-path', hopefully that's all. + (add-to-list 'load-path (expand-file-name "straight/build/org" + user-emacs-directory)) (require 'org) (org-babel-load-file conf-org))) @@ -1691,6 +1787,8 @@ I’m only enabling this at home for now, since it requires building stuff. "config.el" user-emacs-directory)) (message "%s" "Tangling config.org...") + (add-to-list 'load-path (expand-file-name "straight/build/org/" + user-emacs-directory)) (require 'org) (let ((inits (org-babel-tangle))) ;; byte-compile resulting files -- cgit 1.4.1-21-gabe81