Config: start customize theme with autotheme, update init-kbd.el

lisp/init-ui.el

@@ -16,6 +16,29 @@
     (set-language-environment "UTF-8")
     (prefer-coding-system 'utf-8)))
 
+;; 安装autothemer
+(use-package autothemer)
+
+;; 预览所有可用emacs颜色
+(defun my-color-picker ()
+  "Pick a color with preview."
+  (interactive)
+  (let* ((colors (defined-colors))
+         (choice (completing-read
+                  "Color: "
+                  (mapcar (lambda (c)
+                            (propertize 
+                             (format "%-20s %s" c "████")
+                             'face `(:foreground ,c)))
+                          colors))))
+    (string-trim (car (split-string choice)))))
+
+;; rainbow mode
+(use-package rainbow-mode)
+
+;; 自定义主题路径
+(add-to-list 'custom-theme-load-path "c:/Users/gaozh/AppData/Roaming/.emacs.d/lisp/")
+
 ;; 安装solarized dark
 (use-package solarized-theme)
 (load-theme 'solarized-dark t)
@@ -23,6 +46,7 @@
 ;; 很多主题
 (use-package doom-themes)
 (use-package color-theme-modern)
+(use-package naysayer-theme)
 
 ;; 信任所有主题
 (setq custom-safe-themes t)