emacs笔记


Evil

粘贴替换的时候会复制替换的文本

(defun evil-paste-after-from-0 ()
  (interactive)
  (let ((evil-this-register ?0))
    (call-interactively 'evil-paste-after)))

(define-key evil-visual-state-map "p" 'evil-paste-after-from-0)

自动搜索已选中的字符

经常使用 evil 中的 =/= 进行搜索, 但有时候想要搜索已有的字符, 在 evil-visual-state 下选中某个字符,按 =/= 时自动把选中的字符填入待搜索项中

(use-package isearch
  :ensure nil
  :init
  (defun maple/evil-search-paste()
    (when (region-active-p)
      (isearch-yank-string
       (save-excursion
         (buffer-substring-no-properties
          (region-beginning) (1+ (region-end)))))
      (deactivate-mark)))
  :hook (isearch-mode . maple/evil-search-paste)
  :bind (:map isearch-mode-map
              ([remap isearch-delete-char] . isearch-del-char)))

evil-mc不忽略大小写

evil-mc 默认会通过evil-ex-search进行搜索,可以通过设置(setq evil-ex-search-case 'sensitive)来不忽略大小写, 但我只想在使用evil-mc时不忽略,其他时间忽略

;; ignore case in evil-mc
(add-hook 'evil-mc-before-cursors-created (lambda() (setq evil-ex-search-case 'sensitive)))
(add-hook 'evil-mc-after-cursors-deleted (lambda() (setq evil-ex-search-case 'smart)))

Font

设置中英文字体

;; 中英文表格对齐
(defvar emacs-english-font "DejaVu Sans Mono"
  "The font name of English.")
(defvar emacs-cjk-font "WenQuanYi Micro Hei Mono"
  "The font name for CJK.")
(defvar emacs-font-size-pair '(15 . 18)
  "Default font size pair for (english . chinese)")

(defvar emacs-font-size-pair-list
  '(( 5 .  6) (10 . 12)
    (13 . 16) (15 . 18) (17 . 20)
    (19 . 22) (20 . 24) (21 . 26)
    (24 . 28) (26 . 32) (28 . 34)
    (30 . 36) (34 . 40) (36 . 44))
  "This list is used to store matching (englis . chinese) font-size.")
(defun font-exist-p (fontname)
  "Test if this font is exist or not."
  (if (or (not fontname) (string= fontname ""))
      nil
    (if (not (x-list-fonts fontname)) nil t)))

(defun maple/set-font (english chinese size-pair)
  "Setup emacs English and Chinese font on x window-system."
  (if (font-exist-p english)
      (set-frame-font (format "%s:pixelsize=%d" english (car size-pair)) t))

  (if (font-exist-p chinese)
      (dolist (charset '(kana han symbol cjk-misc bopomofo))
        (set-fontset-font (frame-parameter nil 'font) charset
                          (font-spec :family chinese :size (cdr size-pair))))))
;; (add-hook 'ctbl:table-mode-hook
;;           (maple/set-font emacs-english-font emacs-cjk-font emacs-font-size-pair))

Ivy

指定目录或文件进行搜索

(defun maple/counsel-ag-file()
  (interactive)
  (counsel-ag nil (read-file-name "Search in file(s): ")))

查找当前目录以及子目录的某个文件

(defun maple/counsel-find-file()
  (interactive)
  (ivy-read "Find file: "
            (mapcar 'file-relative-name
                    (directory-files-recursively default-directory ""))
            :matcher #'counsel--find-file-matcher
            :action #'counsel-find-file-action
            :preselect (counsel--preselect-file)
            :require-match 'confirm-after-completion
            :history 'file-name-history
            :keymap counsel-find-file-map
            :caller 'counsel-find-file))

当选中单词时,swiper使用已选单词进行搜索

(defun maple/ivy-search-at-point (func)
  (let* ((region (region-active-p))
         (string (if (not region) ""
                   (buffer-substring-no-properties
                    (region-beginning) (region-end))))
         (ivy-initial-inputs-alist
          (list (cons func string))))
    (when region (deactivate-mark))
    (funcall func)))
(defun maple/swiper()
  (interactive)
  (maple/ivy-search-at-point 'swiper))

File

获取文件或目录的basename

(defun maple/basename (fname)
  (if (or (file-directory-p fname)
          (string-match "/$" fname))
      (let ((dirname (directory-file-name fname)))
        (file-name-nondirectory dirname))
    (file-name-nondirectory fname)))

Elisp

golang自动增加注释

因为flycheck使用了golint, flycheck总是显示代码没有注释的警告

exported method Raw should have comment or be unexported (go-golint)

也没找到什么方法来禁止它, 作为强迫症受不了,总不能一个一个去注释, 所以写了一个函数来自动注释整个文件的所有未注释函数:

(defun maple/go-auto-comment()
  (interactive)
  (unless (featurep 'imenu)
    (require 'imenu nil t))
  (let* ((imenu-auto-rescan t)
         (imenu-auto-rescan-maxout (if current-prefix-arg
                                       (buffer-size)
                                     imenu-auto-rescan-maxout))
         (items (imenu--make-index-alist t))
         (items (delete (assoc "*Rescan*" items) items)))
    (cl-mapcan
     (lambda(item)
       (cl-mapcan
        (if (string= (car item) "func")
            'maple/go-func-comment
          'maple/go-type-comment)
        (cdr item)))
     items)))

(defun maple/go-add-comment(func point)
  (save-excursion
    (goto-char point)
    (forward-line -1)
    (when (not (looking-at (concat "// " func)))
      (end-of-line) (newline-and-indent)
      (insert (concat "// " func " ..")))))

(defun maple/go-func-comment(f)
  (let ((func (car f)))
    (if (and (string-prefix-p "(" func)
             (string-match "[)] \\(.*\\)[(]\\(.*\\)[)]\\(.*\\)$" func))
        (maple/go-add-comment (match-string 1 func) (cdr f))
      (if (string-match "\\(.*\\)[(]\\(.*\\)[)]\\(.*\\)$" func)
          (maple/go-add-comment (match-string 1 func) (cdr f))
        (maple/go-add-comment (car f) (cdr f))))))

(defun maple/go-type-comment(f)
  (maple/go-add-comment (car f) (cdr f)))

相关配置将持续更新: init-go.el

增加到hook但仅调用一次

(defmacro maple/add-hook-once (hook f &optional append local)
  "Like `add-hook`, remove after call with HOOK F &OPTIONAL APPEND LOCAL."
  (let ((func (intern (format "maple/run-once-%s"
                              (symbol-name f)))))
    `(progn
       (defun ,func ()
         (remove-hook ',hook ',func ,local)
         (funcall ',f))
       (add-hook ',hook ',func ,append ,local))))

迭代并获取列表索引

(defmacro maple/dolist (spec &rest body)
 "Like dolist but get INDEX, SPEC &REST BODY."
 (declare (indent 1) (debug ((symbolp form &optional form) body)))
 `(let ((num 0))
     (dolist ,(cdr spec)
     (let ((,(car spec) num))
         ,@body
         (setq num (+ num 1))))))

这样就可以使用

(maple/dolist (index item '("aaa" "bbb"))
  (print index))

深拷贝function

https://www.gnu.org/software/emacs/manual/html_node/elisp/Function-Cells.html

(fset 'maple/put-text-property (symbol-function 'put-text-property))