[3]Emacs主题

整理笔记到这里了，倒不是我特别臭美，，

 

一、主题网站

https://pawelbx.github.io/emacs-theme-gallery/

https://emacsthemes.com/

 

二、old-school风格 | 主题安装

- 安装 | 主题也是插件

 M-x package-list-packages

 - 应用

　　Options | Customize Emacs | Custom Themes

 

三、今时今日 | 试用

- 使用插件try

M-x try

 - 应用 | 函数

M-x load-theme

 

四、今时今日 | 使用

- 安装 | 从别人那学来的 中心思想是给出待安装插件列表 每次读配置时检查并安装 | 对于一些use-package无法成功安装的插件 使用这个杀手锏 | 还是比较好理解的 | 献上精品主题

(require 'cl-lib)
;; 列出package
(defvar my/packages '(
			     spacemacs-theme
			     dracula-theme
			     rebecca-theme
			     inkpot-theme
			     farmhouse-themes
			     zeno-theme
			     ) "Default packages")


;; 对列表中的package进行检查 - 函数定义
(defun my/packages-installed-p ()
  (cl-loop for pkg in my/packages
	   ;; 如果有pkg未安装，返回nil
	   when (not (package-installed-p pkg)) do (cl-return nil)
	   finally (cl-return t)))


;; 如果函数调用返回nil
(unless (my/packages-installed-p)
  (message "%s" "Refreshing package database...")
  ;; 重新拉取package
  (package-refresh-contents)
  (dolist (pkg my/packages)
    ;; 如果有pkg未安装
    (when (not (package-installed-p pkg))
      ;; 安装
      (package-install pkg))))

- 主题加载

(load-theme 'spacemacs-light t)

 - 保存 | 函数 | 会写入到配置文件

M-x customize-themes