1;;; package --- 初始化各种独立应用工具2;;; Commentary:3;;; Code:45;;; 剪切板6(use-package clipetty7 :hook (after-init . global-clipetty-mode))8910;; magit11(use-package magit12 :after git-email13 :hook (magit-mode . git-email-magit-setup)14 :demand t)1516(use-package git-email17 :vc (git-email :url "https://codeberg.org/suhail/git-email.git"18 :branch "default"19 :rev :newest20 :doc "./doc/git-email.texi")21 :init22 (with-eval-after-load 'magit23 (git-email-magit-setup))24 :config25 (setenv "INFOPATH"26 (concat (file-name-directory (find-library-name "git-email"))27 ":" (getenv "INFOPATH")))28 (setq git-email-compose-email-function #'mu4e-compose-new)29 :bind (:map dired-mode-map30 ("M-." . #'git-email-send-email)))3132(use-package jabber33 :init34 :load-path "/usr/share/emacs/site-lisp/jabber"35 :bind (:map jabber-chat-mode-map36 ("RET" . nil)37 ("C-c C-c" . #'jabber-chat-buffer-send))38 :commands (jabber-connect jabber-connect-all)39 :config4041 (defun jabber-mark-all-read ()42 (interactive)43 (setq jabber-activity-jids nil)44 (jabber-activity-mode-line-update))4546 (defun my-jabber-activity-show (jid)47 (and (not (member jid48 '("#alpine-commits%irc.oftc.net@biboumi.koi.moe")))49 (jabber-activity-show-p-default jid)))50 (setq jabber-activity-show-p 'my-jabber-activity-show)5152 (require 'tls)53 (setq jabber-history-enabled t54 jabber-history-dir "~/orgs/.jabber-history"55 jabber-history-muc-enabled t56 jabber-muc-nick "lindsay"57 jabber-groupchat-buffer-format "jabber[g] - %b"58 jabber-chat-buffer-format "jabber[c] - %n"59 jabber-browse-buffer-format "jabber[b] - %n"60 jabber-muc-private-buffer-format "jabber[p] - %n[%g] "61 jabber-auto-reconnect t62 ;; jabber-muc-autojoin '("fscc_main@conference.conversations.im")63 ;; jabber-default-connection-type 'ssl ;; need gnutls-utils(cmd:gnutls-cli)64 jabber-account-list '(("lindsay@xmpp.jp" (:port . 5223) (:connection-type . ssl))65 ("lindsay@conversations.im" (:port . 5222) (:connection-type . starttls))66 ("lin@koi.moe" (:port . 5222) (:connection-type . starttls)))67 jabber-muc-decorate-presence-patterns '(("\\( enters the room ([^)]+)\\| has left the chatroom\\)$"))))6869;; 彩色括号70(use-package rainbow-delimiters71 :hook (prog-mode . rainbow-delimiters-mode))7273;; 翻译74(use-package gt75 :config76 (setq gt-default-translator77 (gt-translator78 :taker (gt-taker79 :langs '(en zh)80 :text 'word81 :prompt t)82 :engines (list (gt-bing-engine)83 (gt-google-engine))84 :render (gt-buffer-render)))85 :bind86 (("C-c t" . gt-translate)))87;; dired 插件88(use-package dired-subtree)89(use-package dired90 :ensure nil91 :init92 (require 'dired-x)93 (defun dired-view-file-other-window()94 "In Dired, view file or diretory in other buffer."95 (interactive)96 (let ((file (dired-get-file-for-visit)))97 (if (file-directory-p file)98 (or (and (cdr dired-subdir-alist)99 (dired-goto-subdir file))100 (dired-other-window file))101 (view-file-other-window file))))102 :hook103 (dired-mode . (lambda () (dired-omit-mode)))104 :config105 (setq dired-omit-files ;; hide .dot files when in dired-omit-mode106 (concat dired-omit-files "\\|^\\..+$"))107 :bind (:map dired-mode-map108 ("C->" . dired-omit-mode)109 ("q" . quit-window)110 ("TAB" . dired-subtree-toggle)111 ("V" . dired-view-file-other-window)))112113;; 邮件114;; 收件配置115(use-package mu4e116 :ensure nil117 :pin manual118 :load-path "/usr/share/emacs/site-lisp/mu4e"119 :bind (("C-x m" . mu4e-compose-new))120 :hook (mu4e-compose-mode . (lambda () (auto-save-mode -1)))121 :commands mu4e122 :config123124 (add-to-list 'display-buffer-alist125 `(,(regexp-quote mu4e-main-buffer-name)126 display-buffer-same-window))127128 (keymap-unset mu4e-search-minor-mode-map "M-<right>")129 (keymap-unset mu4e-search-minor-mode-map "M-<left>")130 (setf (plist-get (alist-get 'trash mu4e-marks) :action)131 (lambda (docid msg target)132 (mu4e--server-move docid (mu4e--mark-check-target target) "-N")))133 (require 'mu4e-notification)134 (setq mu4e-maildir "~/.mail")135 (setq mu4e-get-mail-command "mbsync -a -c ~/.config/mbsync/config"136 mu4e-update-interval 300)137 (setq user-mail-address "i@lin.moe"138 user-full-name "Linsen Zhou"139 mu4e-sent-folder "/Sent"140 mu4e-drafts-folder "/Drafts"141 mu4e-trash-folder "/Trash"142 mu4e-refile-folder "/Archive")143144 (setq mu4e-headers-thread-root-prefix '("* " . "□ ")145 mu4e-headers-thread-child-prefix '(" >" . "│ ")146 mu4e-headers-thread-first-child-prefix '(" >" . "⚬ ")147 mu4e-headers-thread-last-child-prefix '(" >" . "└ "))148 (setq mu4e-change-filenames-when-moving t149 mu4e-search-include-related t)150151 (setq mu4e-maildir-shortcuts '(( :name "Inbox"152 :key ?i153 :maildir "/Inbox")154 ( :name "Archive"155 :key ?a156 :maildir "/Archive")157 ( :name "Drafts"158 :key ?d159 :maildir "/Drafts")))160161 (setq mu4e-bookmarks '(( :name "Today's messages"162 :query "date:today..now"163 :key ?t)164 ( :name "Flagged"165 :key ?f166 :query "flag:flagged")167168 ( :name "Mailing list"169 :query "flag:list AND NOT maildir:/Trash NOT maildir:/Archive AND NOT flag:trashed"170 :key ?l)171172 ( :name "Business(Linakesi)"173 :key ?k174 :favorite t175 :query "contact:zhoulinsen@linakesi.com AND NOT maildir:/Trash NOT maildir:/Archive AND NOT flag:trashed")176177 ( :name "Unread messages"178 :query "flag:unread AND NOT maildir:/Trash AND NOT maildir:/Junk AND NOT flag:trashed"179 :key ?u))))180(use-package mu4e-alert181 :hook (after-init . mu4e-alert-enable-notifications)182 :config183 (setq mu4e-alert-interesting-mail-query184 (concat185 "flag:unread"186 " AND NOT flag:trashed"187 " AND NOT maildir:/Trash"188 " AND NOT maildir:/Junk")))189190;; 发件配置191(use-package smtpmail192 :init193 (add-hook 'message-send-hook 'mml-secure-message-sign-pgpmime)194 (setq send-mail-function 'smtpmail-send-it195 user-full-name "Linsen Zhou"196 user-mail-address "i@lin.moe"197 smtpmail-smtp-server "smtp.lin.moe"198 smtpmail-smtp-user "i@lin.moe"199 smtpmail-stream-type 'ssl200 smtpmail-smtp-service 465201 epg-pinentry-mode 'loopback)202 :config203 (setq mml-secure-openpgp-sign-with-sender t204 mml-secure-openpgp-encrypt-to-self t205 mml-secure-openpgp-signers '("7EB223B9B0D814B9")206 message-kill-buffer-on-exit 1207 gnus-agent nil))208209(use-package erc210 :init211 (defun run-erc ()212 (interactive)213 (erc-tls :server "chat.lin.moe"214 :port 6697215 :nick "lindsay"216 :user "lindsay/irc.oftc.net")217 (erc-tls :server "chat.lin.moe"218 :port 6697219 :nick "lindsay"220 :user "lindsay/irc.libera.chat"))221222 :bind (:map erc-mode-map223 ("RET" . nil)224 ("C-c C-c" . #'erc-send-current-line))225 :config226 (defun erc-mark-all-read ()227 (interactive)228 (setq erc-modified-channels-alist nil)229 (erc-modified-channels-display))230 (setq erc-server "irc.oftc.net"231 erc-user-full-name "Linsen Zhou"232 erc-nick "linsey"233 erc-autojoin-channels-alist '(("OFTC" "#alpine-zh" "#alpine-commits")))234 (setq erc-hide-list '("JOIN" "PART" "QUIT")235 erc-track-exclude-types '("JOIN" "MODE" "NICK" "PART" "QUIT"236 "324" "329" "332" "333" "353" "477")237 erc-track-exclude '("#alpine-commits" "#alpine-commit@OFTC"))238 (add-to-list 'erc-modules 'notifications)239 (add-to-list 'erc-modules 'spelling))240241(use-package vterm242 :config243 (setq244 vterm-shell "zsh"245 vterm-buffer-name-string "<vterm> %s")246247 (advice-add 'vterm--enter-copy-mode :after (lambda () (god-local-mode)))248 (advice-add 'vterm--exit-copy-mode :after (lambda () (god-local-mode -1)))249250 :bind251 (:map vterm-mode-map252 ("C-u" . vterm--self-insert)))253254(use-package multi-vterm255 :init256 (defun multi-vterm-at (location)257 (interactive258 (let* ((default-dir (file-truename default-directory))259 (args (find-file-read-args "Location: " default-dir)))260 (list (car args))))261 (let ((default-directory location)) (multi-vterm)))262 :bind263 ("C-c C-<return>" . multi-vterm-at))264265266(use-package flyspell267 :hook (text-mode . flyspell-mode)268 :config269 (setq-default ispell-program-name "aspell"))270271(use-package casual272 :bind (:map dired-mode-map273 ("C-o" . #'casual-dired-tmenu)274 ("s" . #'casual-dired-sort-by-tmenu)275 ("/" . #'casual-dired-search-replace-tmenu)))276277(use-package dired-preview278 :bind (:map dired-mode-map279 ("M-," . dired-preview-mode)))280281(use-package shr-tag-pre-highlight282 :ensure t283 :after shr284 :config285 (add-to-list 'shr-external-rendering-functions286 '(pre . shr-tag-pre-highlight)))287288(use-package gnus289 :config290 (setq291 user-full-name '"Linsen Zhou"292 user-mail-address '"i@lin.moe"293 gnus-startup-file '"~/orgs/.newsrc"294 gnus-directory "~/.config/emacs/news/"295 message-directory "~/.config/emacs/mail/"296 nnfolder-directory "~/.config/emacs/mail/archive"297 gnus-always-read-dribble-file t298 gnus-select-method '(nntp "raye.mistivia.com"299 (nntp-open-connection-function nntp-open-tls-stream)300 (nntp-port-number 563)301 (nntp-address "raye.mistivia.com"))))302303(provide 'init-apps)304;;; init-apps.el ends here