(defconst *is-a-mac* (eq system-type 'darwin))

;;; 设置 mac 的快捷键
(when *is-a-mac*
  (setq mac-command-modifier 'meta
      mac-option-modifier 'super))

;;; 設置默認字體大小
(set-face-attribute 'default nil :height 250)

;;; 添加 package 的下載仓庫，melpa 上有更多的擴展
(require 'package)
(add-to-list 'package-archives '("melpa" . "https://melpa.org/packages/") t)
(add-to-list 'package-unsigned-archives "melpa")

;;; 調整 elfeed 数据庫的目录󠄃位置
(setq elfeed-db-directory "~/Downloads/emacs-config/.elfeed")

;;; 添加訂閱流
(setq elfeed-feeds
      '(("https://taxodium.ink/rss.xml" :title "Taxodium"  emacs zine)
      ("https://kagi.com/api/v1/smallweb/feed/" :title "Kagi Small Web" )
      ("https://bf.zzxworld.com/feed.xml" :title "BlogFinder" :no-update t :fetch-link t feeds )))

;;; 設置 *elfeed-search* 頁面的時間格式，會影响分組的展示
(setq elfeed-search-separator-date-format "%Y-%m-%d")

;;; 設置默認的過濾条件
(setq-default elfeed-search-filter "@1weeks +unread")

;;; 拉取新条目時，將一個月前的自動標記為己讀
(add-hook 'elfeed-new-entry-hook
          (elfeed-make-tagger :before "1 months ago"
                              :remove 'unread))

;;; 閱讀時開啟 `olivetti-mode'，讓內容居中展示
(defun spike-leung/preview-elfeed-with-olivetti ()
  "Preview elfeed with `olivetti-mode'."
  (olivetti-mode)
  (olivetti-set-width 80)
  (visual-line-mode))
(add-hook 'elfeed-show-mode-hook #'spike-leung/preview-elfeed-with-olivetti)

;; 增強自動補全
(use-package vertico
  :init
  (vertico-mode))

;; 允許補全關鍵字无序
(use-package orderless
  :custom
  ;; Configure a custom style dispatcher (see the Consult wiki)
  ;; (orderless-style-dispatchers '(+orderless-consult-dispatch orderless-affix-dispatch))
  ;; (orderless-component-separator #'orderless-escapable-split-on-space)
  (completion-styles '(orderless basic))
  (completion-category-overrides '((file (styles partial-completion))))
  (completion-category-defaults nil) ;; Disable defaults, use our settings
  (completion-pcm-leading-wildcard t)) ;; Emacs 31: partial-completion behaves like substring

;;; 讓補全顯示注解 (annotation)
(use-package marginalia
  ;; Bind `marginalia-cycle' locally in the minibuffer.  To make the binding
  ;; available in the *Completions* buffer, add it to the
  ;; `completion-list-mode-map'.
  :bind (:map minibuffer-local-map
              ("M-A" . marginalia-cycle))

  ;; The :init section is always executed.
  :init

  ;; Marginalia must be activated in the :init section of use-package such that
  ;; the mode gets enabled right away. Note that this forces loading the
  ;; package.
  (marginalia-mode))

(custom-set-variables
 ;; custom-set-variables was added by Custom.
 ;; If you edit it by hand, you could mess it up, so be careful.
 ;; Your init file should contain only one such instance.
 ;; If there is more than one, they won't work right.
 '(package-selected-packages '(elfeed marginalia olivetti orderless vertico)))
(custom-set-faces
 ;; custom-set-faces was added by Custom.
 ;; If you edit it by hand, you could mess it up, so be careful.
 ;; Your init file should contain only one such instance.
 ;; If there is more than one, they won't work right.
 )