📦 ef-themes

etc/el-get-recipes/ef-themes.rcp

@@ -0,0 +1,6 @@
+(:name ef-themes
+       :website "https://protesilaos.com/emacs/ef-themes"
+       :description "Colorful and legible themes"
+       :type github
+       :pkgname "protesilaos/ef-themes"
+       :minimum-emacs-version "27.1")

lisp/toncs-config-ef-themes.org

@@ -0,0 +1,33 @@
+#+TITLE: ef-themes
+#+setupfile: ../setup.org
+
+#+begin_src emacs-lisp :comments no :padline no
+;;; toncs-config-ef-themes.el -*- lexical-binding: t -*-
+#+end_src
+
+#+begin_src emacs-lisp
+(require 'ef-themes)
+(require 'general)
+
+(defun toncs-config-ef-themes-configure ()
+  (setq ef-themes-headings
+      '((1 variable-pitch 1.3)
+        (2 variable-pitch 1.2)
+        (agenda-date 1.3)
+        (agenda-structure variable-pitch light 1.3)
+        (t variable-pitch 1.1)))
+  (setq ef-themes-common-palette-overrides
+        '((bg-region bg-cyan-intense)
+          (fg-region fg-intense)))
+  (setq ef-themes-mixed-fonts t
+        ef-themes-variable-pitch-ui t)
+  (mapc #'disable-theme custom-enabled-themes)
+  (setq ef-themes-to-toggle '(ef-duo-light ef-duo-dark))
+  (ef-themes-select 'ef-duo-light)
+  (general-def "<f9>" #'ef-themes-toggle))
+#+end_src
+
+#+begin_src emacs-lisp :comments no
+(provide 'toncs-config-ef-themes)
+;;; toncs-config-ef-themes.el ends here
+#+end_src

lisp/toncs-config.org

@@ -173,11 +173,11 @@ FEATURE の読み込み前に設定しておきたい変数の初期化処理や
       (setq font-use-system-font t)))))
 #+end_src
 
-** modus-themes
+** ef-themes
 
 #+begin_src emacs-lisp
-(toncs-config-prepare modus-themes)
-(require 'modus-themes)
+(toncs-config-prepare ef-themes)
+(require 'ef-themes)
 #+end_src
 
 ** spacious-padding
@@ -189,6 +189,7 @@ FEATURE の読み込み前に設定しておきたい変数の初期化処理や
       '(:internal-border-width 8
         :header-line-width 8
         :tab-width 4
+        :mode-line-width 0 ;; moody に任せる
         :right-divider-width 8
         :scroll-bar-width 0
         :fringe-width 16))
@@ -430,6 +431,7 @@ FEATURE の読み込み前に設定しておきたい変数の初期化処理や
 (toncs-config-configure crux
   (general-def
     [remap move-beginning-of-line] #'crux-move-beginning-of-line
+    "C-a" #'crux-move-beginning-of-line
     "C-c o" #'crux-open-with
     [(shift return)] #'crux-smart-open-line
     [remap kill-whole-line] #'crux-kill-whole-line))

lisp/toncs-deps.org

@@ -53,7 +53,7 @@
     (:name general :checkout "a0b17d207badf462311b2eef7c065b884462cb7c")
     (:name delight :checkout "5a0cd5ccb650d7bba1c1ea02cf67b71d7cfa6e9a")
 
-    (:name modus-themes :checkout "57539cad169a0383a0197015b748a4c075cb3fb8")
+    (:name ef-themes :checkout "675eb261ea44560686c653ca3142d269f6465ba1")
     (:name moody :checkout "546472d1cabafa092fbc24f467e2acc02fe713ec"))
   "無いと辛すぎるパッケージ達です。")
 #+end_src