add gui settings

settings/theme-settings.el

@@ -0,0 +1,65 @@
+;;; theme-settings.el --- Theme settings  -*- mode: emacs-lisp; lexical-binding: t -*-
+
+;;; Commentary:
+
+;; Requirements:
+;;   spacemacs-theme https://github.com/nashamri/spacemacs-theme
+;;   emojify https://melpa.org/#/emojify
+;;   Fonts:
+;;     Source Han Mono (debian fonts-noto-cjk-extra)
+;;     Asana Math (debian texlive-fonts-extra)
+
+;;; Code:
+(use-package spacemacs-common
+  :after (cl-lib)  ;; spacemacs-common misses to load cl-lib
+  :load-path (lambda() (concat user-emacs-directory "lisp/spacemacs-theme"))
+  :config
+  (load-theme 'spacemacs-dark t)
+  )
+
+;; Test char and monospace:
+;; 1234567890abcdefghijklmnopqrstuvwxyz [] () :;,. !@#$^&*
+;; 1234567890ABCDEFGHIJKLMNOPQRSTUVWXYZ {} <> "'`  ~-_/|\?
+;; ａｂｃｄｅｆｇｈｉｊｋｌｍｎｏｐｑｒｓｔｕｖｗｘｙｚ    FULLWIDTH LATIN SMALL LETTER X
+;; ＡＢＣＤＥＦＧＨＩＪＫＬＭＮＯＰＱＲＳＴＵＶＷＸＹＺ    FULLWIDTH LATIN CAPITAL LETTER X
+;; ⑴⑵⑶⑷⑸⑹⑺⑻⑼⑽⑾⑿⒀⒁⒂⒃⒄⒅⒆⒇             PARENTHESIZED DIGIT X, PARENTHESIZED NUMBER X
+;; ⒜⒝⒞⒟⒠⒡⒢⒣⒤⒥⒦⒧⒨⒩⒪⒫⒬⒭⒮⒯⒰⒱⒲⒳⒴⒵    PARENTHESIZED LATIN SMALL LETTER X
+;; 🄐🄑🄒🄓🄔🄕🄖🄗🄘🄙🄚🄛🄜🄝🄞🄟🄠🄡🄢🄣🄤🄥🄦🄧🄨🄩    PARENTHESIZED LATIN CAPITAL LETTER X
+;; ①②③④⑤⑥⑦⑧⑨⓪　⓵⓶⓷⓸⓹⓺⓻⓼⓽             CIRCLED DIGIT X, DOUBLE CIRCLED DIGIT ONE
+;; ❶❷❸❹❺❻❼❽❾　　➊➋➌➍➎➏➐➑➒🄌            DINGBAT NEGATIVE CIRCLED DIGIT X, DINGBAT NEGATIVE CIRCLED SANS-SERIF DIGIT X
+;; ⓐⓑⓒⓓⓔⓕⓖⓗⓘⓙⓚⓛⓜⓝⓞⓟⓠⓡⓢⓣⓤⓥⓦⓧⓨⓩ    CIRCLED LATIN SMALL LETTER X
+;; ⒶⒷⒸⒹⒺⒻⒼⒽⒾⒿⓀⓁⓂⓃⓄⓅⓆⓇⓈⓉⓊⓋⓌⓍⓎⓏ    CIRCLED LATIN CAPITAL LETTER X
+;; 🅐🅑🅒🅓🅔🅕🅖🅗🅘🅙🅚🅛🅜🅝🅞🅟🅠🅡🅢🅣🅤🅥🅦🅧🅨🅩    NEGATIVE CIRCLED LATIN CAPITAL LETTER X
+;; 🄰🄱🄲🄳🄴🄵🄶🄷🄸🄹🄺🄻🄼🄽🄾🄿🅀🅁🅂🅃🅄🅅🅆🅇🅈🅉    SQUARED LATIN CAPITAL LETTER X
+;; 🅰🅱🅲🅳🅴🅵🅶🅷🅸🅹🅺🅻🅼🅽🅾🅿🆀🆁🆂🆃🆄🆅🆆🆇🆈🆉 🆊    NEGATIVE SQUARED LATIN CAPITAL LETTER X
+;; 𝓪𝓫𝓬𝓭𝓮𝓯𝓰𝓱𝓲𝓳𝓴𝓵𝓶𝓷𝓸𝓹𝓺𝓻𝓼𝓽𝓾𝓿𝔀𝔁𝔂𝔃            MATHEMATICAL BOLD SCRIPT SMALL X
+;; 𝓐𝓑𝓒𝓓𝓔𝓕𝓖𝓗𝓘𝓙𝓚𝓛𝓜𝓝𝓞𝓟𝓠𝓡𝓢𝓣𝓤𝓥𝓦𝓧𝓨𝓩         MATHEMATICAL BOLD SCRIPT CAPITAL X
+;; ✈↵＃↹⏎⇤⇥␣↑↓←→ ☐☑
+;; :rage::hamburger:
+;; see M-x describe-char
+(cond
+ ((find-font (font-spec :name "DejaVu Sans Mono"))
+  (set-frame-font "DejaVu Sans Mono-10"))
+ ((find-font (font-spec :name "Source Han Mono"))
+  (set-frame-font "Source Han Mono-9"))
+ ((find-font (font-spec :name "inconsolata"))
+  (set-frame-font "inconsolata-10"))
+ ((find-font (font-spec :name "Source Code Pro"))
+  (set-frame-font "Source Code Pro-10"))
+ ((find-font (font-spec :name "Lucida Console"))
+  (set-frame-font "Lucida Console-10"))
+ ((find-font (font-spec :name "courier"))
+  (set-frame-font "courier-10")))
+
+(setq inhibit-compacting-font-caches t)
+
+(use-package emojify
+  :commands emojify-mode
+  :load-path (lambda() (concat user-emacs-directory "lisp/emojify"))
+  :hook (after-init . global-emojify-mode)
+  :init
+  (setq emojify-emojis-dir (concat user-emacs-directory ".cache/emojify"))
+  )
+
+(provide 'theme-settings)
+;;; theme-settings.el ends here