个人 Emacs 核心配置

backup-emacs-org:
	mkdir -p /data/resource/emacs_org_backup
	tar -czvf /data/resource/emacs_org_backup/$$(date +'%Y%m%d')-wemacs.tar.gz ~/.wemacs
	tar -czvf /data/resource/emacs_org_backup/$$(date +'%Y%m%d')-org.tar.gz ~/org
	@echo "Backup completed."

#!/usr/bin/env bash
# 打开不同 配置 的 emacs 方式, 但基本只用默认的

export PATH=$HOME/miniconda3/envs/usr/bin:$PATH
version=${version:-29.4}
em=~/codes/emacs-${version}/src/emacs
emc=~/codes/emacs-${version}/lib-src/emacsclient
if [ "$1" == 'default' ]; then
    if [ ! -z $2 ]; then
        $em --name "$2"
    else
        $em
    fi
	#systemctl restart --user emacsanywhere.service
elif [ "$1" == 'client' ]; then
    $emc -c
elif [ "$1" == 'test' ]; then
	$em --init-directory ~/.wemacs_test/
else 
	$em
fi

conda install jupyter

pip install epc tld lxml PyQt6 PyQt6-Qt6 PyQt6-sip PyQt6-WebEngine PyQt6-WebEngine-Qt6

git clone -b master --depth 1 git@github.com:emacs-eaf/eaf-mindmap.git app/mindmap

(use-package eaf
  :load-path "site-lisp/emacs-application-framework/"
  :commands eaf-open-mindmap
  :config
  (require 'eaf-mindmap)
  <<eaf-key-bindings>>
  )

(use-package evil
  :init
  (setq evil-want-Y-yank-to-eol t)
  (setq evil-want-integration t)
  (setq evil-want-keybinding nil)
  (setq evil-want-C-u-scroll t)
  (setq evil-want-C-i-jump nil)
  :config 
  (evil-mode 1)
  <<evil-esc>>
  <<evil-undo-fu>>
  <<evil-collections>>
  <<expand-region>>
  <<evil-surround>>
  <<evil-commentary>>
  <<evil-multiedit>>
  <<evil-select-paste>>
  <<snipe-pinyin>>
  <<avy-ace-pinyin>>
  <<evil-9line>>
  <<ex-quit-buffer>>
  (general-define-key
   :keymaps '(visual)
   "DEL" (lambda ()
           (interactive)
           (evil-delete (region-beginning) (region-end) nil ?_))))

<<evil-basic>>

(global-set-key (kbd "<escape>") 'keyboard-escape-quit)
(defun minibuffer-keyboard-quit ()
  "Abort recursive edit.
In Delete Selection mode, if the mark is active, just deactivate it;
then it takes a second \\[keyboard-quit] to abort the minibuffer."
  (interactive)
  (if (and delete-selection-mode transient-mark-mode mark-active)
      (setq deactivate-mark  t)
    (when (get-buffer "*Completions*") (delete-windows-on "*Completions*"))
    (abort-recursive-edit)))

  (general-define-key
   :keymaps '(normal visual global)
   [escape] 'keyboard-quit
   )

(general-define-key
 :keymaps '(minibuffer-local-map
            minibuffer-local-ns-map
            minibuffer-local-completion-map
            minibuffer-local-must-match-map
            minibuffer-local-isearch-map)
 [escape] 'minibuffer-keyboard-quit)

(use-package undo-fu
  :config
  (define-key evil-normal-state-map "u" 'undo-fu-only-undo)
  (define-key evil-normal-state-map "\C-r" 'undo-fu-only-redo))

(use-package evil-collection
  :after evil
  :config
  (evil-collection-init))

(use-package evil-org
  :after org
  :hook (org-mode . (lambda () (evil-org-mode +1)))
  :config
  (require 'evil-org-agenda)
  (evil-org-agenda-set-keys)
  ;; (evil-org-set-key-theme '(navigation insert textobjects additional calendar))
  (evil-org-set-key-theme '(textobjects))
  
  (general-define-key
   :keymaps '(org-mode-map)
   :states '(normal visual)
   "<return>" 'org-open-at-point)
  
  (evil-define-key 'normal 'evil-org-mode
    (kbd "go") 'evil-org-open-below
    (kbd "gO") 'evil-org-open-above
    (kbd "o") 'evil-open-below
    (kbd "O") 'evil-open-above
    (kbd "<") 'org-promote-subtree
    (kbd ">") 'org-demote-subtree
  ))

(add-hook 'org-log-buffer-setup-hook 'evil-insert-state)

(use-package expand-region
  :general
  (:keymaps 'visual
            "v" 'er/expand-region)
  :config
  (setq expand-region-contract-fast-key "z"))

(use-package evil-surround
  :config
  (global-evil-surround-mode 1)

  (defun insert-around-region (begin end left right)
    "Insert LEFT and RIGHT around the current region."
    (save-excursion
      (goto-char end)
      (insert right)
      (goto-char begin)
      (insert left)))

  (defun surround-with-correct-punctuation (char)
    "Surround region with CHAR. Use Chinese punctuation if the region contains Chinese characters."
    (interactive "cEnter surround character: ")
    (let ((begin (region-beginning))
          (end (region-end))
          (region (buffer-substring-no-properties (region-beginning) (region-end)))
          (chinese-punctuation (pcase char
                                 (?\" "“”")
                                 (?' "‘’")
                                 (?\( "（）")
                                 (?\) "（）")
                                 (?\[ "【】")
                                 (?\] "【】")
                                 (?\{ "｛｝")
                                 (?\} "｛｝")
                                 (?\> "《》")
                                 (?\< "《》")
                                 (_ nil))))
      (if (and chinese-punctuation (string-match-p "\\cc" region))
          (let ((left (substring chinese-punctuation 0 1))
                (right (substring chinese-punctuation 1 2)))
            (insert-around-region begin end left right))
        (evil-surround-region (region-beginning) (region-end) 'char char))))

  (defun my-evil-surround-dwim ()
    "Detect the surrounding character and use the correct punctuation based on the region content."
    (interactive)
    (call-interactively 'surround-with-correct-punctuation))

  (general-define-key
   :keymaps 'general-override-mode-map
   :states '(visual)
   "S" 'my-evil-surround-dwim
   ))

(use-package evil-commentary
  ;; :diminish evil-commentary
  :config
  (evil-commentary-mode)
)

(use-package evil-multiedit
  :load-path "site-lisp/evil-multiedit"
  ;; git@github.com:metaescape/evil-multiedit.git
  :general
   (:keymaps '(evil-visual-state-map)
   ;; Highlights all matches of the selection in the buffer.
   "R" 'evil-multiedit-match-all
   ;; incrementally add the next unmatched match.
   "n" 'evil-multiedit-match-and-next
   "N" 'evil-multiedit-match-and-prev ;; p for evil past
   )
   (:keymaps '(evil-multiedit-state-map) 
   "SPC" 'evil-multiedit-toggle-or-restrict-region
   "ESC" 'evil-multiedit-abort
   "C-j" 'evil-multiedit-next
   "C-k" 'evil-multiedit-prev
   "n" 'evil-multiedit-match-and-next
   "N" 'evil-multiedit-match-and-prev
   )
   (:keymaps '(evil-multiedit-insert-state-map) 
   "C-j" 'evil-multiedit-next
   "C-k" 'evil-multiedit-prev
   )
  :config
  (define-key evil-motion-state-map (kbd "RET") 'evil-multiedit-toggle-or-restrict-region)
  ;; Ex command that allows you to invoke evil-multiedit with a regular expression, e.g.
  (evil-ex-define-cmd "ie[dit]" 'evil-multiedit-ex-match))

(setq-default evil-kill-on-visual-paste nil)

(use-package evil-snipe
  :defer
  :config
  (evil-snipe-mode -1) ;; disabled 2 char jump
  (evil-snipe-override-mode +1) ;; enable 1 char jump
  (setq evil-snipe-scope 'line) ;; jump in line
)

(use-package evil-find-char-pinyin
  :config
  (evil-find-char-pinyin-toggle-snipe-integration t)
  (setq evil-find-char-pinyin-only-simplified t) ;; nil for traditional chinese
  (setq evil-find-char-pinyin-enable-punctuation-translation t) ;;punctuation
  )

(use-package avy
  :bind
  (:map evil-normal-state-map
        ("C-\\" . ace-pinyin-goto-char-timer))
  :config
  (setq avy-all-windows t) ;; jump to any buffer in window
  (setq avy-timeout-seconds 0.5)

  (use-package ace-pinyin
    :config
    (ace-pinyin-global-mode +1))

  (defun ace-pinyin--build-string-regexp (string)
    (pinyinlib-build-regexp-string
     string
     (not ace-pinyin-enable-punctuation-translation)
     (not ace-pinyin-simplified-chinese-only-p)))

  (defun ace-pinyin-goto-char-timer (&optional arg)
    "Read one or many consecutive chars and jump to the first one.
The window scope is determined by `avy-all-windows' (ARG negates it)."
    (interactive "P")
    (let ((avy-all-windows (if arg
                               (not avy-all-windows)
                             avy-all-windows)))
      (avy-with avy-goto-char-timer
        (setq avy--old-cands
              (avy--read-candidates #'ace-pinyin--build-string-regexp))
        (avy-process avy--old-cands))))

  (general-define-key
   :keymaps 'org-agenda-mode-map
   :states 'motion ;; agenda 下用 motion 代替 normal state
   "C-\\" 'ace-pinyin-goto-char-timer
   ))

;; Use visual line motions even outside of visual-line-mode buffers
;; deal with wrap
(evil-global-set-key 'motion "j" 'evil-next-visual-line)
(evil-global-set-key 'motion "k" 'evil-previous-visual-line)

(evil-define-motion move-9-lines-down () (evil-next-visual-line 9))
(evil-define-motion move-9-lines-up () (evil-previous-visual-line 9))

(general-define-key
 :keymaps 'general-override-mode-map
 :states '(normal visual motion)
 "J" 'move-9-lines-down
 "K" 'move-9-lines-up
 )

;; :q should kill the current buffer rather than quitting emacs entirely
(evil-ex-define-cmd "q" 'kill-this-buffer)
(evil-ex-define-cmd "wq" 'kill-this-buffer)
 ;; Need to type out :quit to close emacs
(evil-ex-define-cmd "quit" 'evil-quit)

(use-package company
 :config
 (setq company-idle-delay 0) ;;default 0.2
 (setq company-echo-delay 0) ;;default 0.01
 (setq company-show-numbers t) 
 (setq company-minimum-prefix-length 2) ;;default 3
 (setq company-dabbrev-minimum-length 2) ;;default 4
 (setq company-selection-wrap-around t) ;;default nil, next of end is begin
 (setq company-dabbrev-downcase nil)
 (setq company-backends '(company-capf
                        company-keywords
                        company-semantic
                        company-files
                        company-dabbrev
                        company-etags
                        company-clang
                        company-cmake
                        company-yasnippet))
 (setq company-require-match nil)
 (global-company-mode)

 (use-package company-posframe
  :after company
  :hook (company-mode . company-posframe-mode)
  :config
  (use-package posframe) 
  )
 )

(use-package counsel
  :bind (("M-x" . counsel-M-x)
         ("C-x f" . counsel-find-file) ;;origin is set-fill-column
         :map org-mode-map
         ("C-c o" . counsel-org-goto)  ;; outline, similar to pdf/epub outline
         :map minibuffer-local-map
         ("C-r" . 'counsel-minibuffer-history))
  :config
  (setq ivy-initial-inputs-alist nil)
  (use-package smex)
  ;;将 c-c c-q(默认 org-set-tags-command) 定向为 counsel-org-tag
  ;;进入 tag 选择菜单后，通过 alt+enter 可以进行多选（选中当前而不退出）
  (global-set-key [remap org-set-tags-command] #'counsel-org-tag)
  )

(use-package helpful
  :custom
  (counsel-describe-function-function #'helpful-callable)
  (counsel-describe-variable-function #'helpful-variable)
  :bind
  ([remap describe-function] . counsel-describe-function)
  ([remap describe-command] . helpful-command)
  ([remap describe-variable] . counsel-describe-variable)
  ([remap describe-key] . helpful-key))

(use-package vertico
  :init
  (vertico-mode)
  :bind 
  (:map minibuffer-local-map
        ("C-j" . next-line)
        ("C-k" . previous-line)))

(use-package orderless
  :init
  (setq completion-styles '(orderless basic)
        completion-category-defaults nil
        completion-category-overrides '((file (styles partial-completion))))
  :config
  ;;from https://github.com/tumashu/pyim
  (defun my-orderless-regexp (orig-func component)
    (let ((result (funcall orig-func component)))
      (pyim-cregexp-build result)))

  (advice-add 'orderless-regexp :around #'my-orderless-regexp))

(use-package marginalia
  :bind
  (:map minibuffer-local-map
        ("C-l" . marginalia-cycle))
  :init
  ;; Marginalia must be activated in the :init section 
  (marginalia-mode))

(use-package nerd-icons-completion
  :after marginalia
  :config
  (nerd-icons-completion-mode)
  (add-hook 'marginalia-mode-hook #'nerd-icons-completion-marginalia-setup))

(use-package consult
  :config
  (general-define-key
   :keymaps '(general-override-mode-map org-agenda-mode-map)
   :states '(motion normal visual) ;; agenda 下用motion 代替 normal state
   "SPC" 'consult-buffer
   "/" 'consult-line
   )

  (advice-add 'consult--buffer-action :after #'my/buffer-switch-advice)
  (advice-add 'find-file-at-point :after #'my/buffer-switch-advice)

  ;; https://emacs-china.org/t/xxx-thing-at-point/18047/18
  (defun consult-delete-default-contents()
    (remove-hook 'pre-command-hook 'consult-delete-default-contents)
    (cond ((member this-command '(self-insert-command))
           (delete-minibuffer-contents))
          (t (put-text-property (minibuffer-prompt-end) (point-max) 'face 'default))))
  (consult-customize
   consult-line
   :initial (when-let ((string (thing-at-point 'word)))
              (add-hook 'pre-command-hook 'consult-delete-default-contents)
              (propertize string 'face 'shadow)))
  )

(use-package wgrep)

(use-package helpful
:bind
   ([remap describe-key]      . helpful-key)
   ([remap describe-command]  . helpful-command)
   ([remap describe-variable] . helpful-variable)
   ([remap describe-function] . helpful-callable))

<<dashboard>>
(use-package tab-bar
  :ensure nil
  :config
  <<tab-utils>>
  <<switch-tab-by-name-num>>
  <<quick-switch-back>>
  <<confirm-scratch-delete>>
  <<windmove-ibuffer>>
  (use-package popwin
    :config
    (popwin-mode 1))

  (use-package winner 
    :ensure nil
    :hook (after-init . winner-mode))
  )
<<tab-line>>

<<tab-bar>>

(tab-bar-mode 1)
(setq tab-bar-new-button-show nil)
(setq tab-bar-close-button-show nil)
(setq tab-bar-show 1)
(setq tab-bar-tab-hints t) ;; show number
(setq tab-bar-auto-width nil) ;; 取消自动 padding 大小(29.2 引入)
(setq tab-bar-format '(tab-bar-format-tabs tab-bar-separator tab-bar-format-align-right tab-bar-format-global))
(defun my/update-tab-bar-after-theme-change (&rest _args)
  "Update tab bar face attributes after a theme change."
  (set-face-attribute 'tab-bar-tab nil
                      :inherit 'doom-modeline-panel
                      :foreground 'unspecified
                      :background 'unspecified)

  (set-face-attribute 'tab-bar nil
                      :foreground (face-attribute 'default :foreground)))

(advice-add 'load-theme :after #'my/update-tab-bar-after-theme-change)
(my/update-tab-bar-after-theme-change)

(use-package tab-line
  :config 
  (setq tab-line-new-button-show nil)  ;; do not show add-new button
  ;;(setq tab-line-close-button-show nil)  ;; do not show close button
  (set-face-attribute 'tab-line-tab-current nil ;; active tab in current window
                    :background "#135c63" :foreground "white" :box nil)
  (set-face-attribute 'tab-line-tab nil ;; active tab in another window
                      :inherit 'tab-line
                      :background "gray10" :foreground "white"  :box nil))

(defun switch-to-tab-by-number (num)
  (let ((current-prefix-arg num)  ;; emulate C-u num
        (current-tab-index (tab-bar--current-tab-index)))
    ;; (update-ivy-tabs)
    (if (equal (1+ current-tab-index) num) ;; num start from 1
        (tab-bar-switch-to-recent-tab)
      (call-interactively 'tab-select))))

(general-define-key
 :keymaps 'general-override-mode-map
 "M-1" '(lambda () (interactive) (switch-to-tab-by-number 1))
 "M-2" '(lambda () (interactive) (switch-to-tab-by-number 2))
 "M-3" '(lambda () (interactive) (switch-to-tab-by-number 3))
 "M-4" '(lambda () (interactive) (switch-to-tab-by-number 4))
 "M-5" '(lambda () (interactive) (switch-to-tab-by-number 5))
 "M-6" '(lambda () (interactive) (switch-to-tab-by-number 6))
 "M-7" '(lambda () (interactive) (switch-to-tab-by-number 7))
 "M-8" '(lambda () (interactive) (switch-to-tab-by-number 8))
 "M-9" '(lambda () (interactive) (switch-to-tab-by-number 9))
 )

(defvar last-switch-action nil)
(defun my/tab-switch-advice (&rest _) (setq last-switch-action "tab-switch"))
(defun my/buffer-switch-advice (&rest _) (setq last-switch-action "buffer-switch"))
(defun my/avy-goto-advice (&rest _) (setq last-switch-action "avy-goto"))

(advice-add 'switch-to-tab-by-number :after #'my/tab-switch-advice)
(advice-add 'ivy--switch-buffer-action :after #'my/buffer-switch-advice)
(add-hook 'find-file-hook 'my/buffer-switch-advice)
(advice-add 'ace-pinyin-goto-char-timer :after #'my/avy-goto-advice)

(defun my/switch-back ()
  "Switch to the recent buffer, or destoried window configuration."  
  (interactive)
  (cond 
   ((member major-mode '(special-mode
                         messages-buffer-mode
                         helpful-mode
                         magit-status-mode
                         help-mode
                         Custom-mode
                         ibuffer-mode
                         debugger-mode
                         org-roam-mode
                         compilation-mode))
    (quit-window))
   ((member major-mode '(package-menu-mode))
    (switch-to-buffer (other-buffer (current-buffer) nil)))
   ((equal last-switch-action "window-switch")
    (evil-window-mru))
   ((equal last-switch-action "avy-goto")
    (avy-pop-mark))
   ((equal last-switch-action "tab-switch")
    (tab-bar-switch-to-recent-tab))
   ((equal last-switch-action "buffer-switch")
    (switch-to-buffer (other-buffer (current-buffer) nil)))))

(general-define-key
 :keymaps '(general-override-mode-map org-agenda-mode-map eaf-mode-map*)
 :states '(motion normal visual) ;; agenda 下用motion 代替 normal state
 "gq" 'my/switch-back)

(defun my/confirm-kill-scratch-buffer (orig-fun &rest args)
  "Confirm before killing the *scratch* buffer."
  (let ((buffer-to-kill (car args)))
    (if (and (get-buffer "*scratch*") 
             (equal buffer-to-kill (get-buffer "*scratch*"))
             (not (yes-or-no-p "*scratch* Don't want to be Killed, Confirm? ")))
        (message "Aborted")
      (apply orig-fun args))))

(advice-add 'kill-buffer :around #'my/confirm-kill-scratch-buffer)

(use-package dashboard
  :config
  (dashboard-setup-startup-hook)
  (setq dashboard-center-content t)
  (setq dashboard-items '((recents  . 5)
                          (bookmarks . 5)
                          (projects . 5)
                          ))
  (setq initial-buffer-choice (lambda () (get-buffer-create "*dashboard*")))
  (setq dashboard-startup-banner "/data/resource/pictures/dashboard/moutain.png")
  (setq dashboard-image-banner-max-width 300)
  (setq dashboard-banner-logo-title "don't panic") ;;nil to delete

  (setq dashboard-startupify-list '(dashboard-insert-banner
                                    dashboard-insert-newline
                                    dashboard-insert-banner-title
                                    dashboard-insert-newline
                                    dashboard-insert-navigator
                                    dashboard-insert-newline
                                    dashboard-insert-init-info
                                    dashboard-insert-items
                                    dashboard-insert-newline
                                    dashboard-insert-footer))

  ;; Format: "(icon title help action face prefix suffix)"
  (setq dashboard-navigator-buttons
        `(;; line1
          ((,(nerd-icons-mdicon
              "nf-md-dock_window"
              :height 1.1 :v-adjust 0.0)
            "desktop-read (R)"
            ""
            (lambda (&rest _) (desktop-read))))))

  (setq dashboard-set-file-icons t)
  (setq dashboard-footer-messages '("-------------------"))
  (setq dashboard-display-icons-p t) ;; display icons on both GUI and terminal
  (setq dashboard-icon-type 'nerd-icons) ;; use `nerd-icons' package

  (general-define-key
   :keymaps '(dashboard-mode-map)
   :states 'normal
   ;; "gd" 'evil-goto-definition
   "R" 'desktop-read)
  )

(general-define-key
 :keymaps 'general-override-mode-map
 :states '(normal insert visual motion)
 "M-h" 'windmove-left
 "M-l" 'windmove-right
 "M-j" 'windmove-down
 "M-k" 'windmove-up)

(use-package ibuffer
  :defer
  :config
  (general-define-key
   :keymaps 'ibuffer-mode-map
   :states 'normal
   "," nil 
   "s," 'ibuffer-toggle-sorting-mode
   "SPC" 'switch-to-buffer))

(use-package org
  :ensure nil
  :init 
  ;; fix bug for expand a heading with tab : Subtree (no children)
  (setq org-fold-core-style 'overlays) 
  (setq org-ellipsis " ▾")
  (global-set-key (kbd "C-c l") 'org-store-link)
  (bind-key "C-c n" 'narrow-or-widen-dwim)
  :general
  (:keymaps 'org-mode-map
            "s-l"  'org-toggle-link-display)
  :hook (org-mode . org-mode-ui-setup)
  :config
  (require 'ol-man) ;; support follow link in woman buffer
  (setq org-id-method 'ts)
  (setq org-image-actual-width nil)
  <<org-basic-ui>>
  <<narrow-or-widen-dwim>>
  <<org-file-apps>>
  <<read-org-block-by-name>>
  )

<<org>>

(defun org-mode-ui-setup ()
  (org-indent-mode)
  (setq word-wrap nil) 
  (visual-line-mode 1)
  (font-lock-add-keywords
   'org-mode
   '(("^ *\\([-]\\) "
      (0 (prog1 () (compose-region (match-beginning 1) (match-end 1) "•"))))))
  (setq org-emphasis-alist
        '(("*" (bold :slant italic :weight black )) ;; this make bold both italic and bold, but not color change
          ("/" (italic :foreground "dark salmon" )) ;; italic text, the text will be "dark salmon"
          ("_" underline :foreground "cyan" ) ;; underlined text, color is "cyan"
          ("=" (org-verbatim :background "black" :foreground "deep slate blue" )) ;; background of text is "snow1" and text is "deep slate blue"
          ("~" (org-code :background "dim gray" :foreground "PaleGreen1" ))
          ("+" (:strike-through t :foreground "dark orange" ))))

  (use-package org-appear
    :after org
    :hook (org-mode . org-appear-mode)
    :config
    (setq org-hide-emphasis-markers t)
    (setq org-appear-autolinks t)
    )

  (defun org-mode-visual-fill ()
    (setq visual-fill-column-width 100
          visual-fill-column-center-text t)
    (visual-fill-column-mode 1))

  (use-package visual-fill-column
    :hook (org-mode . org-mode-visual-fill)))

(defun narrow-or-widen-dwim ()
  "If the buffer is narrowed, it widens. Otherwise, it narrows to region, or Org subtree."
  (interactive)
  (cond ((buffer-narrowed-p) (widen))
        ((region-active-p) (narrow-to-region (region-beginning) (region-end)))
        ((equal major-mode 'org-mode) (org-narrow-to-subtree))
        (t (error "Please select a region to narrow to"))))

(setq org-file-apps
      '((auto-mode . emacs)
        (directory . emacs)
        ("\\.mp4\\'" . "vlc \"%s\"")
        ("\\.mp3\\'" . "vlc \"%s\"")
        ("\\.drawio\\'" . "drawio \"%s\"")
        ("\\.mm\\'" . default)
        ("\\.x?html?\\'" . default)
        ("\\.pdf\\'" . default)))

(defun my/read-org-block-by-name (file block-name)
  "Read the content of a named org-mode block from
a file."
  (with-temp-buffer
    (insert-file-contents file)
    (goto-char (point-min))
    (if (re-search-forward (concat "^#\\+name: " (regexp-quote block-name)) nil t)
        (when (re-search-forward "^#\\+begin_src" nil t)
          (forward-line)
          (beginning-of-line)
          (let ((start (point)))
            (if (re-search-forward "^#\\+end_src" nil t)
                (string-trim (buffer-substring-no-properties
                              start
                              (match-beginning 0)))
              (error "End of source block not found"))))
      (error "Named block not found"))))

(defun my/exec-org-shell-block-in-file (block-name file)
  (start-process-shell-command
   "" nil (my/read-org-block-by-name file block-name)))

(defun my/jump-to-org-block-by-name (file block-name)
  "Jump inside the src block with name: block-name in the specified file."
  (find-file file)  ; 打开文件
  (goto-char (point-min))  ; 移动到 buffer 的开始位置
  (if (re-search-forward (concat "^#\\+name: " (regexp-quote block-name)) nil t)
      (when (re-search-forward "^#\\+begin_src" nil t)
        (forward-line 1)  ; 移动到 #+begin_src 的下一行
        (beginning-of-line))
    (error "Named block not found")))

(my/jump-to-org-block-by-name "~/org/historical/projects.gtd" "timeout")

(use-package pdf-tools
  :mode ("\\.pdf\\'" . pdf-tools-install)
  :custom
  (pdf-annot-activate-created-annotations t "automatically annotate highlights")
  :config
  (setq mouse-wheel-follow-mouse t)
  (setq pdf-view-resize-factor 1.10)
  (setq-default pdf-view-display-size 'fit-width)
  (setq image-cache-eviction-delay 30) ; clear image cache after 30 sec, origin 300
  ;; (pdf-tools-install)

  (general-define-key
   :keymaps 'pdf-view-mode-map
   :states '(normal)
   "C-c C-g"  'pdf-sync-forward-search
   "o" 'pdf-history-backward
   "C-o" 'pdf-history-backward
   "C-t" 'pdf-history-backward
   "i" 'pdf-history-forward
   "C-i" 'pdf-history-forward
   "H" '(lambda () (interactive) (image-backward-hscroll 10))
   "L" '(lambda () (interactive) (image-forward-hscroll 10))
   "O" 'pdf-outline
   "C-c o" 'pdf-outline ;; same as outline in org/epub
   "d" 'pdf-view-scroll-up-or-next-page
   "b" 'pdf-view-scroll-down-or-previous-page
   "u" 'pdf-view-scroll-down-or-previous-page
   "gp" 'pdf-view-goto-page
   "C-f" 'pdf-view-next-page
   "C-b" 'pdf-view-previous-page
   "/" 'pdf-occur
   "C-s" 'isearch-forward
   )

  (general-define-key
   :keymaps 'pdf-occur-buffer-mode-map
   "M-RET" 'pdf-occur-view-occurrence
   )
  )

(use-package org-pdftools
  :hook (org-mode . org-pdftools-setup-link))

(use-package nov
  :mode ("\\.epub\\'" . nov-mode)
  :config
  (defun my-nov-font-setup ()
    (face-remap-add-relative 'variable-pitch :height 1.25))
  (add-hook 'nov-mode-hook 'my-nov-font-setup)
  (setq nov-text-width 80)
  (add-hook 'nov-mode-hook 'visual-line-mode)
  (add-hook 'nov-mode-hook 'visual-fill-column-mode)

  (defun nov-scroll-up-half (arg)
    (interactive "P")
    (cond
     ((= (point) (point-max)) (nov-next-document))
     ((>= (window-end) (point-max)) (goto-char (point-max)))
     (t (scroll-up-line 15))))

  (defun nov-scroll-down-half (arg)
    (interactive "P")
    (cond
     ((= (point) (point-min)) 
      (nov-previous-document)
      (goto-char (point-max)))
     ((and (<= (window-start) (point-min))
           (> nov-documents-index 0))
      (goto-char (point-min)))
     (t (scroll-down-line 15))))

  (general-define-key
   :keymaps 'nov-mode-map
   :states '(normal)
   "C-c o" 'nov-goto-toc ;; same as outline in org/pdf
   "O" 'nov-goto-toc
   "o" 'nov-history-back
   "i" 'nov-history-forward
   "d" 'nov-scroll-up-half
   "u" 'nov-scroll-down-half)
  )

(use-package org
  :ensure nil
  :custom
  (org-preview-latex-image-directory "/tmp/ltximg/")
  :config
  (setq org-latex-pdf-process '(
      "xelatex -interaction nonstopmode %f"
      "xelatex -interaction nonstopmode %f"))

  (setq org-format-latex-options (plist-put org-format-latex-options :scale 1.5))
  (setq org-startup-with-latex-preview nil)
  (define-key org-mode-map (kbd "s-i") 'org-latex-preview) ;default C-c C-x l
  )

(use-package org-fragtog
  :after org
  :hook (org-mode . org-fragtog-mode))

(use-package org-roam
  :init
  (setq org-roam-directory "~/org/"
        org-id-link-to-org-use-id t
        org-roam-v2-ack t)
  (setq org-roam-capture-templates
        '(("d" "default" plain
           "* ${title}\n :PROPERTIES:\n :ID: %(org-id-new)\n :#+CREATED: %U\n :END:\n%?\n"
           :target (file+olp "~/org/historical/entry.org" (""))
           :unnarrowed t)))
  :general
  (:keymaps 'normal 
            "s-r s-r" 'org-roam-buffer-toggle
            "s-r f"  'org-roam-find-file
            "s-r g"  'org-roam-node-find ;; graph node find
            )
  (:keymaps 'org-mode-map
            :states 'insert
            "s-r f" 'org-roam-insert-file
            "s-r g"  'org-roam-node-insert
            )
  :config
  (org-roam-db-autosync-mode)
  (setq org-roam-node-display-template
        (concat "${title:*} " (propertize "${tags:16}" 'face 'org-tag)))

  (defun org-roam-find-file ()
    (interactive)
    (org-roam-node-find nil nil (lambda (node)
                                  (= 0 (org-roam-node-level node)))))
  
  (defun org-roam-insert-file ()
    (interactive)
    (org-roam-node-insert (lambda (node)
                            (= 0 (org-roam-node-level node))))))
  

(use-package org-roam-ui
  :after org-roam
  :commands org-roam-ui-mode
  :config
  (setq org-roam-ui-sync-theme t
        org-roam-ui-follow t
        org-roam-ui-update-on-save nil
        org-roam-ui-open-on-start t)
  (add-to-list 'desktop-minor-mode-table
               '(org-roam-ui-mode nil))
  (add-to-list 'desktop-minor-mode-table
               '(org-roam-ui-follow-mode nil))
  )