emacs - Emacs hydra 插入/附加文本

Question

我希望能够在捕获我的待办事项或文件时插入带有 hydra 的标签。我尝试使用 insert-buffer 命令执行此操作，但似乎无法正常工作。但这似乎也不切实际......是否有一个命令可以附加 config.el 中定义的文本或一个文件中的不同字符串？

 (defhydra hydra-tags (:color pink
                             :hint nil)
  "
^Tag^
^^^^^^^^-
_h_: home
_w_: work
_a_: assignments 
_f_: family
"
  ("h" insert-buffer "~/org/tags/home.txt")
  ("w" insert-buffer "~/org/tags/work.txt")
  ("a" insert-buffer "~/org/tags/assignments.txt")
  ("f" insert-buffer "~/org/tags/family.txt")
  ("q" quit-window "quit" :color blue))

(define-key org-capture-mode-map "." 'hydra-tags/body)

Answer 1

我对emacs很陌生，对lisp一无所知，但我发现这可以通过一个简单的lisp函数轻松完成。

我将分享我最终得到的代码。随时分享任何建议！

elisp 文本编辑功能

(defhydra hydra-tags (:hint none)
 "
^Tag
^----------------
_h_: home
_j_: work
_k_: assignments
_l_: family
"
 ("h" (insert ":home:"))
 ("j" (insert ":work:"))
 ("k" (insert ":assignments:"))
 ("l" (insert ":family:"))
 ("q" quit-window "quit" :color blue))

(global-set-key (kbd "C-c k") 'hydra-tags/body)