midizap-mode: Add keysyms to auto-complete keywords table.

master
Albert Graef 2018-11-16 20:37:16 +01:00
parent e53e3b3140
commit 8c622bd085
3 changed files with 18 additions and 4 deletions

View File

@ -18,7 +18,7 @@ INSTALL_TARGETS = midizap $(wildcard midizap.1)
.PHONY: all world install uninstall man pdf clean realclean
all: midizap
all: midizap midizap-mode.el
# This also creates the manual page (see below).
world: all man
@ -56,7 +56,7 @@ midizap.pdf: midizap.1
man -Tpdf ./midizap.1 > $@
clean:
rm -f midizap keys.h $(OBJ)
rm -f midizap keys.h keys.el midizap-mode.el $(OBJ)
realclean:
rm -f midizap midizap.1 midizap.pdf keys.h $(OBJ)
@ -64,6 +64,12 @@ realclean:
keys.h: keys.sed /usr/include/X11/keysymdef.h
sed -f keys.sed < /usr/include/X11/keysymdef.h > keys.h
keys.el: keywords.sed /usr/include/X11/keysymdef.h
sed -f keywords.sed < /usr/include/X11/keysymdef.h | tr '\n' ' ' > keys.el
midizap-mode.el: midizap-mode.el.in keys.el
sed '/;; keysyms/r keys.el' < midizap-mode.el.in > midizap-mode.el
readconfig.o: midizap.h keys.h
midizap.o: midizap.h jackdriver.h
jackdriver.o: jackdriver.h

3
keywords.sed Normal file
View File

@ -0,0 +1,3 @@
/^\#define/!d
s/^\#define //
s/^\([^[:space:]]*\).*$/"\1"/

View File

@ -27,7 +27,8 @@
(require 'comint)
(defconst midizap-keywords
(list
(append
(list
"DEBUG_REGEX" "DEBUG_STROKES" "DEBUG_KEYS" "DEBUG_MIDI"
"MIDI_OCTAVE" "JACK_NAME" "JACK_PORTS"
"JACK_IN" "JACK_IN1" "JACK_IN2"
@ -35,7 +36,11 @@
"PASSTHROUGH" "SYSTEM_PASSTHROUGH"
"RELEASE" "SHIFT" "SHIFT1" "SHIFT2" "SHIFT3" "SHIFT4"
"CLASS" "TITLE"
))
)
(list
;; keysyms
)))
;;;###autoload
(define-generic-mode 'midizap-mode