My Theme Customizations

[myyrkezaan]

I browse themes a lot and came up with a few things. Might be useful for others in your Theme section.

(defvar my/preferred-theme 'ef-night "Set to default theme.")

;; For browsing/selecting themes - 
(defun my/change-theme (&optional theme)
  "Disable current theme and load THEME (default: 'cyberpunk)."
  (interactive (list
      (intern
        (completing-read
          "Load custom theme: "
          (mapcar #'symbol-name (custom-available-themes))))))
  (when custom-enabled-themes
    (mapc #'disable-theme custom-enabled-themes))
  t (load-theme theme t))

(global-set-key (kbd "C-c x t") 'my/change-theme)

(defun my/load-preferred-theme ()
  "Load my default theme or passed in theme after Emacs initialization."
  (cond
    ;; if something more needed
    ((string= my/preferred-theme 'solarized-light)
      (require 'config-theme-solarized-light))
    ((string= my/preferred-theme 'solarized-dark)
      (require 'config-theme-solarized-dark))
    (t (load-theme my/preferred-theme t))))

(add-hook 'emacs-startup-hook #'my/load-preferred-theme)

And then I have a shell script for passing the theme (if desired)

#!/usr/bin/bash

emacs --eval "(setq my/preferred-theme '$1)"

[jamescherti]

Thank you for sharing, @myyrkezaan.