Emacs hydra插入/追加文本

Question

我希望能够在捕获待办事项或文件时使用九头蛇插入标签。我尝试使用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 text editing functions

(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)