doom-packages-inline-toggle

I was annoyed at editing the packages.el file to unpin and disable things. I didn’t even know I could add :disable t to disable a package. I thought I had to comment it out or wrap it in when nil.

I made a package that adds subtle buttons to whatever line the mouse is on. One button toggles between pinned i.e. package! or unpinned i.e. unpin!. The other button toggles enabled or disabled i.e. :disable t.

read-symbol-shorthands-helper

I was annoyed by prefixing everything with a long package name. I made a package that makes it easy to add to read-symbol-shorthands.

;;; some-nice-string-utils.el --- Some Nice String Utils -*- lexical-binding: t; -*-

(defun some-nice-string-utils-split (separator s &optional omit-nulls)
  "A match-data saving variant of `split-string'."
  (save-match-data (split-string s separator omit-nulls)))

(defun some-nice-string-utils-lines (s)
  "Split string S at newline characters into a list of strings."
  (some-nice-string-utils-split "\\(\r\n\\|[\n\r]\\)" s))

(provide 'some-nice-string-utils)

;;; some-nice-string-utils.el ends here

Mark the region some-nice-string-utils- and then invoke M-x ~read-symbol-shorthands-helper-compress and this is the result.

;;; some-nice-string-utils.el --- Some Nice String Utils -*- lexical-binding: t; -*-

(defun snsu-split (separator s &optional omit-nulls)
  "A match-data saving variant of `split-string'."
  (save-match-data (split-string s separator omit-nulls)))

(defun snsu-lines (s)
  "Split string S at newline characters into a list of strings."
  (snsu-split "\\(\r\n\\|[\n\r]\\)" s))

(provide 'some-nice-string-utils)

;; Local Variables:
;; read-symbol-shorthands: (("snsu-" . "some-nice-string-utils-"))
;; End:

;;; some-nice-string-utils.el ends here

resolve-face

I was working on https://github.com/rgkirch/propertized-text-to-svg.

(resolve-face-attributes 'treemacs-root-remote-face nil t)

((:height . 1.2) (:weight . bold) (:foreground . "#c678dd"))

(resolve-face-attributes 'treemacs-root-remote-face nil 'default)

((:family . "Adwaita Mono") (:foundry . "UKWN") (:width . normal) (:height . 189) (:weight . bold) (:slant . normal) (:underline) (:overline) (:extend) (:strike-through) (:box) (:inverse-video) (:foreground . "#c678dd") (:background . "#282c34") (:stipple) (:inherit))

file:~/.config/doom/modules/resolve-face/resolve-face.el::defun face-attribute+ (face attribute &optional frame inherit

file:~/.config/doom/modules/resolve-face/resolve-face.el::defun resolve-face-attributes (face &optional frame inherit

propertized-text-to-svg

I wanted to demonstrate the modeline-vcs-diffstat package in the readme.

(propertized-text-to-svg
 (concat (propertize "The" 'face '(:foreground "black"))
         " "
         (propertize "quick" 'face '(:foreground "brown" :weight bold))
         " "
         (propertize "brown" 'face '(:foreground "brown" :slant italic))
         " "
         (propertize "fox" 'face '(:foreground "orange red" :underline t))
         " "
         (propertize "jumps over the" 'face '(:foreground "black"))
         " "
         (propertize "lazy" 'face '(:foreground "grey" :strike-through t))
         " "
         (propertize "dog." 'face '(:foreground "black" :weight heavy))))

file:~/.config/doom/modules/propertized-text-to-svg/propertized-text-to-svg.el::defun propertized-text-to-svg (p-string &optional buffer

modeline-major-mode

I didn’t want the full text of the major mode in the doom modeline so I made a doom modeline segment with just the major mode icon.



modeline-vcs-diffstat

I didn’t want to be surprised that a file isn’t in vcs when i thought it was or be surprised that the file had uncommited changes when i thought it was commited.

(propertized-text-to-svg
 (modeline-vcs-diffstat--format-metrics
  (modeline-vcs-diffstat--metrics
   '(:staged-removed 20
     :staged-added 30))))