diff --git a/tools/emacs.d/lisp/init-ai.el b/tools/emacs.d/lisp/init-ai.el new file mode 100644 index 0000000..bdaaf3d --- /dev/null +++ b/tools/emacs.d/lisp/init-ai.el @@ -0,0 +1,13 @@ +(use-package copilot + :vc (:url "https://github.com/copilot-emacs/copilot.el" + :rev :newest + :branch "main") + :hook (prog-mode . copilot-mode) + :config + (define-key copilot-completion-map (kbd "") 'copilot-accept-completion) + (define-key copilot-completion-map (kbd "TAB") 'copilot-accept-completion)) + + +(provide 'init-ai) + +;;; init-ai.el ends here diff --git a/tools/emacs.d/lisp/init-appearance.el b/tools/emacs.d/lisp/init-appearance.el index 9564d74..88adcc4 100644 --- a/tools/emacs.d/lisp/init-appearance.el +++ b/tools/emacs.d/lisp/init-appearance.el @@ -1,12 +1,23 @@ ;;; init-appearance.el -(when (display-graphic-p) - (add-to-list 'default-frame-alist '(font . "Maple Mono NF CN"))) +;; Always set frame font +;; If don't set this, `emacs --daemon' will not set the font +;; for new graphical frames. +(add-to-list 'default-frame-alist '(font . "Maple Mono NF CN")) ;; Set CJK Display Font (dolist (charset '(kana han cjk-misc bopomofo)) (set-fontset-font t charset (font-spec :family "Maple Mono NF CN"))) + +;; Variable Pitch Font +;; Used in `variable-pitch-mode' +(set-face-attribute 'variable-pitch nil + :family "LXGW WenKai Screen" + :height 140 + :weight 'regular) + + ;; Icon Support ;; Once installed, Manually install the fonts required: ;; M-x all-the-icons-install-fonts @@ -87,6 +98,13 @@ (global-tab-line-mode) ; bufferline +(use-package highlight-indent-guides + :hook ((prog-mode yaml-mode org-mode) . highlight-indent-guides-mode) + :init + (setq highlight-indent-guides-method 'column) + (setq highlight-indent-guides-responsive 'top) + (setq highlight-indent-guides-auto-character-face-perc 5)) + (provide 'init-appearance) diff --git a/tools/emacs.d/lisp/init-beancount.el b/tools/emacs.d/lisp/init-beancount.el new file mode 100644 index 0000000..980f5f6 --- /dev/null +++ b/tools/emacs.d/lisp/init-beancount.el @@ -0,0 +1,12 @@ +;; (straight-use-package +;; '(beancount +;; :host github +;; :repo "beancount/beancount-mode" +;; :files ("*.el"))) + +(use-package beancount + :mode (("\\.beancount\\'" . beancount-mode) + ("\\.bean\\'" . beancount-mode))) + + +(provide 'init-beancount) diff --git a/tools/emacs.d/lisp/init-file.el b/tools/emacs.d/lisp/init-file.el index f810507..b9f1de1 100644 --- a/tools/emacs.d/lisp/init-file.el +++ b/tools/emacs.d/lisp/init-file.el @@ -40,6 +40,11 @@ :config (setq treemacs-persist-file (expand-file-name "treemacs-persist" user-emacs-data))) + +(use-package treemacs-nerd-icons + :config + (treemacs-load-theme "nerd-icons")) + (use-package treemacs-evil :after (treemacs evil) :ensure t diff --git a/tools/emacs.d/lisp/init-latex.el b/tools/emacs.d/lisp/init-latex.el index bb2bdae..2ec40fe 100644 --- a/tools/emacs.d/lisp/init-latex.el +++ b/tools/emacs.d/lisp/init-latex.el @@ -16,16 +16,34 @@ ;; set condition! :cond #'texmathp ; expand only while in math "nabl" "\\nabla" + "lg" "\\lg" + "hat" "\\hat" + ;; "iint" "\\iint" + ;; "int" "\\int" + "cdot" "\\cdot" + "dif" "\\mathrm{d}" + "pm" "\\pm" + "mp" "\\mp" + "sq" "\\sqrt" + ;; bind to functions! + "mk" (lambda () (interactive) + (yas-expand-snippet "\\( $1 \\)$0")) "ppart" (lambda () (interactive) (yas-expand-snippet "\\frac{\\partial $2}{\\partial $1} $0")) - ;; bind to functions! + "rm" (lambda () (interactive) + (yas-expand-snippet "\\mathrm{$1} $0")) + "sb" (lambda () (interactive) + (yas-expand-snippet "_{$1} $0")) "Sum" (lambda () (interactive) (yas-expand-snippet "\\sum_{$1}^{$2} $0")) "Span" (lambda () (interactive) (yas-expand-snippet "\\Span($1)$0")) ;; add accent snippets :cond #'laas-object-on-left-condition - "qq" (lambda () (interactive) (laas-wrap-previous-object "sqrt"))) + "qq" (lambda () (interactive) (laas-wrap-previous-object "sqrt")) + :cond #'(lambda () (and (not (texmathp)) + (looking-back "^" nil))) + "dm" '(yas "\\[\n$1\n\\]$0")) ) (provide 'init-latex) diff --git a/tools/emacs.d/lisp/init-org.el b/tools/emacs.d/lisp/init-org.el index aa9b85f..c748133 100644 --- a/tools/emacs.d/lisp/init-org.el +++ b/tools/emacs.d/lisp/init-org.el @@ -33,17 +33,26 @@ (org-src-preserve-indentation t) ; Prevent from auto-indent (org-startup-folded 'showall) :config + (require 'org-habit) (with-eval-after-load 'org (define-key org-mode-map (kbd "C-j") 'org-return-indent) (evil-define-key 'normal org-mode-map (kbd "TAB") 'org-cycle)) (evil-define-key 'normal org-mode-map (kbd "SPC a") 'org-agenda-list) ; TODO: Here Simulates the leader - (setq org-emphasis-alist - '(("*" (bold :foreground "cyan" )) - ("/" (italic :foreground "green")) - ("_" underline) - ("=" (org-verbatim verbatim :background "maroon" :foreground "white")) - ("~" (org-code verbatim :background "maroon" :foreground "white")) - ("+" (:strike-through t)))) + ;; (setq org-emphasis-alist + ;; '(("*" (bold :foreground "cyan" )) + ;; ("/" (italic :foreground "green")) + ;; ("_" underline) + ;; ("=" (org-verbatim verbatim :background "maroon" :foreground "white")) + ;; ("~" (org-code verbatim :background "maroon" :foreground "white")) + ;; ("+" (:strike-through t)))) + (custom-set-faces + '(org-bold ((t (:weight bold :foreground unspecified)))) + '(org-italic ((t (:slant italic :foreground unspecified)))) + '(org-underline ((t (:underline t :foreground unspecified)))) + '(org-code ((t (:inherit fixed-pitch :background unspecified :foreground unspecified)))) + '(org-verbatim ((t (:inherit fixed-pitch :background unspecified :foreground unspecified)))) + '(org-strike-through ((t (:strike-through t :foreground unspecified))))) + (dolist (face '((org-level-1 . 1.6) (org-level-2 . 1.4) @@ -56,7 +65,6 @@ (set-face-attribute (car face) nil :height (cdr face)))) - ;; Org Styling ;; Set Org Styles @@ -125,7 +133,22 @@ (global-set-key (kbd "C-c i") (lambda () (interactive) (js0ny/insert-emphasis-with-zws ?/))) ;; Pomodoro for org clock -(use-package org-pomodoro) +(use-package org-pomodoro + :straight t + :bind (:map org-mode-map + ("C-c p" . org-pomodoro))) + + +(defun js0ny/org-pomodoro-resume-last-task () + "Clock in to the last task and start Pomodoro on it." + (interactive) + (let ((marker (car org-clock-history))) + (if marker + (progn + (org-with-point-at marker + (org-clock-in)) + (org-pomodoro)) + (message "No previous clock task found.")))) (use-package org-modern :ensure t @@ -207,6 +230,8 @@ '( (python . t) ; No need to declare C/C++/emacs-lisp since is integrated (shell . t) + (dot . t) + (ditaa . t) )) ;; Don't ask me again when running source block ;; Use clang as default C/C++ Compiler on macOS and Windows @@ -224,50 +249,67 @@ ;; icalendar +(defun my/org-icalendar-filter-out-habits (entry backend info) + "Filter out Org entries that are marked as habits when exporting to iCalendar." + (when (and (eq backend 'icalendar) + (string-match ":STYLE:.*habit" (or entry ""))) + nil)) + +(add-hook 'org-export-filter-entry-functions #'my/org-icalendar-filter-out-habits) + + (setq org-icalendar-use-scheduled '(event-if-todo event-if-not-todo)) (setq org-icalendar-use-deadline '(event-if-todo event-if-not-todo)) (setq org-icalendar-combined-agenda-file "~/Dropbox/org.ics") -;; Integrate Emacs Timer with System Notifications -;; 定义通知函数 -(defun js0ny/org-clock-notification (title message &optional icon) - "发送一个系统通知" - (alert message - :title title - :icon icon - :category 'org-clock)) +;; ;; Integrate Emacs Timer with System Notifications +;; ;; 定义通知函数 +;; (defun js0ny/org-clock-notification (title message &optional icon) +;; "发送一个系统通知" +;; (alert message +;; :title title +;; :icon icon +;; :category 'org-clock)) -;; 添加定时器检查函数 -(defun js0ny/org-clock-check-timer () - "检查当前正在运行的 clock 是否到期" - (when (org-clocking-p) - (let* ((clocked-time (org-clock-get-clocked-time)) - (effort (org-duration-to-minutes - (or (org-entry-get (org-clock-is-active) "Effort") - "0"))) - (remaining (- effort clocked-time))) - (when (and (> effort 0) (<= remaining 0)) - (js0ny/org-clock-notification - "Org Clock 提醒" - (format "任务 '%s' 的预计时间已到！" - (org-clock-get-clock-string))))))) +;; ;; 添加定时器检查函数 +;; (defun js0ny/org-clock-check-timer () +;; "检查当前正在运行的 clock 是否到期" +;; (when (org-clocking-p) +;; (let* ((clocked-time (org-clock-get-clocked-time)) +;; (effort (org-duration-to-minutes +;; (or (org-entry-get (org-clock-is-active) "Effort") +;; "0"))) +;; (remaining (- effort clocked-time))) +;; (when (and (> effort 0) (<= remaining 0)) +;; (js0ny/org-clock-notification +;; "Org Clock 提醒" +;; (format "任务 '%s' 的预计时间已到！" +;; (org-clock-get-clock-string))))))) -;; 设置定时器，每分钟检查一次 -(run-with-timer 0 60 #'js0ny/org-clock-check-timer) +;; ;; 设置定时器，每分钟检查一次 +;; (run-with-timer 0 60 #'js0ny/org-clock-check-timer) ;; 在 org-clock-in-hook 中添加检查 -(add-hook 'org-clock-in-hook - (lambda () - (let ((effort (org-entry-get (point) "Effort"))) - (when effort - (js0ny/org-clock-notification - "开始计时" - (format "开始计时任务: %s\n预计用时: %s" - (org-get-heading t t t t) - effort)))))) +;; (add-hook 'org-clock-in-hook +;; (lambda () +;; (let ((effort (org-entry-get (point) "Effort"))) +;; (when effort +;; (js0ny/org-clock-notification +;; "开始计时" +;; (format "开始计时任务: %s\n预计用时: %s" +;; (org-get-heading t t t t) +;; effort)))))) (use-package org-node :after org :config (org-node-cache-mode)) + +;; ;; 执行最后一行，重新生成解析表达式 +;; (with-eval-after-load 'org +;; ;; 添加常见全角标点 +;; (setf (nth 1 org-emphasis-regexp-components) +;; " \t\r\n,.:!?：；。，！？、」』）〉》」』〕〗】｝）]") +;; (org-set-emph-re 'org-emphasis-regexp-components org-emphasis-regexp-components)) + (provide 'init-org) diff --git a/tools/emacs.d/lisp/init-scratch.el b/tools/emacs.d/lisp/init-scratch.el new file mode 100644 index 0000000..ec9bf2b --- /dev/null +++ b/tools/emacs.d/lisp/init-scratch.el @@ -0,0 +1,5 @@ + +(setq initial-major-mode 'org-mode) + + +(provide 'init-scratch) diff --git a/tools/emacs.d/lisp/init-writer.el b/tools/emacs.d/lisp/init-writer.el index e320c27..cbdb7b3 100644 --- a/tools/emacs.d/lisp/init-writer.el +++ b/tools/emacs.d/lisp/init-writer.el @@ -2,6 +2,7 @@ ;; TODO (use-package flyspell) -(use-package olivetti) +(use-package olivetti + :hook (olivetti-mode . org-mode)) (provide 'init-writer)