emacs: add some project-specific key macros
parent
679afca151
commit
1f5f8bb2fb
|
@ -116,6 +116,23 @@
|
|||
"Major mode for Lithium sound definitions."
|
||||
(setq font-lock-defaults '(agw-lithtxt-highlights)))
|
||||
|
||||
(fset 'agw-create-mthd-link
|
||||
(kmacro-lambda-form [?i ?\[ escape ?l ?v ?f ?\( ?h ?y ?f ?\( ?i
|
||||
?\] ?\{ ?: ?# ?m ?t ?h ?d ?- escape ?p ?l
|
||||
?i ?\} escape ?v ?F ?- ?g ?u]
|
||||
0
|
||||
"%d"))
|
||||
|
||||
(fset 'agw-create-memb-link
|
||||
(kmacro-lambda-form [?v ?$ ?h ?y ?i ?\[ escape ?A ?\] ?\{ ?\}
|
||||
escape ?i ?: ?# ?m ?e ?m ?b ?- escape ?p ?v
|
||||
?F ?- ?g ?u]
|
||||
0
|
||||
"%d"))
|
||||
|
||||
(fset 'agw-create-back-link
|
||||
(kmacro-lambda-form [?v ?f ?\] ?h ?y ?$ ?p ?v ?F ?- ?g ?u] 0 "%d"))
|
||||
|
||||
(provide 'agw-lithtxt-mode)
|
||||
|
||||
;; EOF
|
||||
|
|
|
@ -83,6 +83,10 @@
|
|||
(agw-set-key "k" #'windmove-up)
|
||||
(agw-set-key "l" #'windmove-right)
|
||||
|
||||
(agw-set-key "m j" #'agw-create-back-link)
|
||||
(agw-set-key "m k" #'agw-create-memb-link)
|
||||
(agw-set-key "m l" #'agw-create-mthd-link)
|
||||
|
||||
(agw-set-key "a" #'org-archive-to-archive-sibling)
|
||||
(agw-set-key "A" #'org-force-cycle-archived)
|
||||
|
||||
|
|
Loading…
Reference in New Issue