お手軽キーワード挿入マクロ生成

insert-keyword.el

;; キーワード挿入
(setq my-keywords
  '(
    ;; ここにキーワードとショートカットキーを列挙する
    ("TODO"   "C-x c 1")
    ("FIXME"  "C-x c 2")
    ("TIPS"   "C-x c 3")
    ("SOURCE" "C-x c 4")
    ("NOTICE" "C-x c 5")
		))

(require 'cl)
(loop for x in my-keywords
      do (define-key global-map (kbd (nth 1 x)) (concat (car x) ":")))