;;; init-ui.el --- ui and other style customization cofig -*- lexical-binding: t -*-

;;; Commentary:

;;; Code:

;; 设置系统编码
(when (fboundp 'set-charset-priority)
  (set-charset-priority 'unicode))

(if *is-windows*
    (progn
      (set-language-environment 'chinese-gbk)
      (prefer-coding-system 'utf-8-auto))
  (progn
    (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)

;; rainbow-delimiters
(use-package rainbow-delimiters)

;; 自定义主题路径
(add-to-list 'custom-theme-load-path "~/.emacs.d/lisp/")

;; 信任所有主题
(setq custom-safe-themes t)

;; 安装solarized dark
(use-package solarized-theme)

;; 把主题加载延迟到frame创建之后，防止daemon模式下宏不能正常展开
(if (daemonp)
    (add-hook 'after-make-frame-functions
              (lambda (frame)
                (with-selected-frame frame
                  (load-theme 'my-base16-dark t))))
  (load-theme 'my-base16-dark t))

;; 很多主题
;; (use-package doom-themes)
;; (use-package color-theme-modern)
(use-package naysayer-theme)

;; modeline
;; (use-package smart-mode-line
;;   :config
;;   (setq sml/no-confirm-load-theme t)
;;         ;; sml/theme 'respectful)
;;   (sml/setup))

;; (use-package simple-modeline
;;   :init (simple-modeline-mode)
;;   :config
;;   ;; (defun simple-modeline-segment-buffer-name ()
;;   ;;   "Displays the full path of current file in the mode-line."
;;   ;;   (propertize " %f" 'face 'mode-line-buffer-id))
;;   )

;; eshell高亮
(use-package eshell-syntax-highlighting
  :hook (eshell-mode . eshell-syntax-highlighting-global-mode))

(add-hook 'eshell-mode-hook
          (lambda ()
            (setenv "TERM" "xterm-256color")
            (setenv "COLORTERM" "truecolor")
            (add-to-list 'eshell-output-filter-functions 'eshell-handle-ansi-color t)
            (setq-local eshell-prefer-lisp-functions nil)
            (setenv "LS_COLORS"
                    "di=34:ln=35:so=32:pi=33:ex=31:bd=34;46:cd=34;43:su=30;41:sg=30;46")
            (setenv "GIT_CONFIG_GLOBAL" (expand-file-name "~/.emacs.d/.gitconfig-eshell"))))

(use-package indent-bars
  :custom
  (indent-bars-color '(font-lock-comment-face :face-bg nil :blend 0.4))
  (indent-bars-highlight-current-depth '(:face default :blend 0.4))
  (indent-bars-pattern ".")
  (indent-bars-width-frac 0.1)
  (indent-bars-pad-frac 0.1)
  (indent-bars-color-by-depth nil)
  (indent-bars-no-descend-string t)
  (indent-bars-prefer-character t))

;; 高亮当前行
(global-hl-line-mode t)

;; 显示文件大小
(size-indication-mode t)

;; 显示行号列号
(column-number-mode t)

;; 配置字体
(defvar cn-fonts-list '("Sarasa Fixed TC" "STHeiti" "微软雅黑" "文泉译微米黑")
  "定义使用的中文字体候选列表")

(defvar en-fonts-list '("Sarasa Fixed TC" "Courier New" "Monaco" "Ubuntu Mono")
  "定义使用的英文字体候选列表")

(defvar emoji-fonts-list '("Apple Color Emoji" "Segoe UI Emoji" "Noto Color Emoji" "Symbola" "Symbol")
  "定义使用Emoji字体候选列表")

(defun tenon--available-font (font-list)
  "从 FONT-LIST 中寻找第一个系统中可用的字"
  (catch 'found
    (dolist (font font-list)
      (when (member font (font-family-list))
        (throw 'found font)))))

;; 设置字体大小和字重变量
(when *is-windows*
  (defvar tenon-font-size 125
    "默认字体大小")
  (defvar tenon-font-weight 'light
    "默认字重，选项有ultra-light，light，normal，medium，semibold，bold"))

(when *is-mac*
  (defvar tenon-font-size 160
    "默认字体大小")
  (defvar tenon-font-weight 'light
    "默认字重，选项有ultra-light，light，normal，medium，semibold，bold"))

(when *is-linux*
  (defvar tenon-font-size 125
    "默认字体大小")
  (defvar tenon-font-weight 'normal
    "默认字重，选项有ultra-light，light，normal，medium，semibold，bold"))

;; 定义函数
;;;###autoload
(defun tenon--font-setup ()
  "Font setup."
  (interactive)
  (let* ((cf (tenon--available-font cn-fonts-list))
         (ef (tenon--available-font en-fonts-list))
         (em (tenon--available-font emoji-fonts-list)))
    (when ef
      (dolist (face '(default fixed-pitch fixed-pitch-serif variable-pitch))
        (set-face-attribute face nil
                            :family ef
                            :height tenon-font-size
                            :weight tenon-font-weight)))
    (when em
      (dolist (charset `(unicode unicode-bmp ,(if (> emacs-major-version 27) 'emoji 'symbol)))
        (set-fontset-font t charset em nil 'prepend)))
    (when cf
      (dolist (charset '(kana han cjk-misc bopomofo))
        (set-fontset-font t charset cf))
      (setq face-font-rescale-alist
            (mapcar (lambda (item) (cons item 1)) `(,cf ,em))))))

;; 延迟执行字体设置
(add-hook 'after-init-hook #'tenon--font-setup)

;; 添加个人字体到 cnfonts
(setq cnfonts-personal-fontnames
      '(("Sarasa Fixed TC")  ; 英文字体
        ("Sarasa Fixed TC")  ; 中文字体
        nil   ; Ext-B 字体（可选）
        nil   ; Symbol 字体（可选）
        nil)) ; 装饰字体（可选）

;; 安装cnfonts脚本，用于修复中英文对齐
(use-package cnfonts
  :init
  (cnfonts-mode 1)
  :config
  (cnfonts--select-profile "profile1"))

;; 主题修复脚本
(defun fix-theme-colors ()
  "Fix invalid color name in theme files."
  (interactive)
  (load-file (expand-file-name "~/.emacs.d/lisp/fix-theme-colors.el")))

(provide 'init-ui)

;;; init-ui.el ends here