Yanıtlar:
İşte blogum için kullandığım şeyler .
(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)))))
Arayarak çağırın C-c k
.
C-h k
isteyecektir.<kbd>
etiketlerine eklenmiş olarak ekler .RET
, etiketleri ekler ve noktayı içeride bırakır (herhangi bir anahtar eklemek yerine), böylece daha karmaşık anahtarlar yazabilirsiniz.org-mode
!(define-key org-mode-map (kbd "C-c k") #'endless/insert-key)
ve (define-key org-mode-map (kbd "C-c k") 'endless/insert-key)
?
(help-key-description key nil)
için(mapconcat 'identity (split-string (help-key-description key nil)) "</kbd><kbd>")