How can I make this function callable only whilst in c-mode
?
(defun nuket-c (actm)
"Code templates for the C language"
(interactive
(list
(let ( (cseq '("struct" "if" "ifelse" "ifladr" "ifword" "while"
"swcnumic" "swcletr" "func")) )
(completing-read "Nuke: " cseq nil t "struct"))))
(pcase actm
("struct" (insert nuket-c-struct))
;;-----------------------------
("if" (insert nuket-c-if))
("ifelse" (insert nuket-c-ifelse))
("ifladr" (insert nuket-c-ifladr))
("ifword" (insert nuket-c-ifword))
;;-----------------------------
("while" (insert nuket-c-while))
("swcnumic" (insert nuket-c-swcnumic))
("swcletr" (insert nuket-c-swcletr))
;;-----------------------------
("func" (insert nuket-c-func))) )