emacs: add some project-specific key macros

emacs/data.el

@@ -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

emacs/init.el

@@ -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)