emacsのpolymodeでチャンクを挿入するコード

insert_chunk.el

;; チャンク挿入
(defun tws-insert-r-chunk (header)
  "Insert an r-chunk in markdown mode. Necessary due to interactions between polymode and yas snippet"
  (interactive "sHeader: ")
  (insert (concat "```{r " header "}\n\n```"))
  (forward-line -1))

(define-key poly-markdown+r-mode-map (kbd "M-n M-r") 'tws-insert-r-chunk)

(defun tws-insert-py-chunk (header)
  "Insert an r-chunk in markdown mode. Necessary due to interactions between polymode and yas snippet"
  (interactive "sHeader: ")
  (insert (concat "```{python " header "}\n\n```"))
  (forward-line -1))

(define-key poly-markdown+r-mode-map (kbd "M-n M-p") 'tws-insert-py-chunk)

(defun tws-insert-norm-chunk (header)
  "Insert an r-chunk in markdown mode. Necessary due to interactions between polymode and yas snippet"
  (interactive "sHeader: ")
  (insert (concat "```{" header "}\n\n```"))
  (forward-line -1))

(define-key poly-markdown+r-mode-map (kbd "M-n M-c") 'tws-insert-norm-chunk)