Inilah yang saya gunakan untuk blog saya .
(define-key org-mode-map "\C-ck" #'endless/insert-key)
(defun endless/insert-key (key)
"Ask for a key then insert its description.
Will work on both org-mode and any mode that accepts plain html."
(interactive "kType key sequence: ")
(let* ((is-org-mode (derived-mode-p 'org-mode))
(tag (if is-org-mode
"@@html:<kbd>%s</kbd>@@"
"<kbd>%s</kbd>")))
(if (null (equal key "\r"))
(insert
(format tag (help-key-description key nil)))
(insert (format tag ""))
(forward-char (if is-org-mode -8 -6)))))
Panggil dengan menelepon C-c k
.
- Ini akan meminta Anda untuk kunci seperti yang
C-h k
akan dilakukan.
- Ini menyisipkan kunci yang dikelilingi dalam
<kbd>
tag lolos .
- Jika Anda baru saja menekan
RET
, itu akan menyisipkan tag dan meninggalkan titik di dalam (alih-alih memasukkan kunci apa pun), sehingga Anda dapat mengetikkan tombol yang lebih rumit.
- Ia bahkan memiliki beberapa kode untuk membuatnya dapat digunakan di luar
org-mode
!