CSLMode.el revision f54cbc3b567482a53e417faff9cd2583bfdc47df
;; Creating a new menu pane in the menu bar to the right of "Tools" menu
;; A keymap is suitable for menu use if it has an overall prompt string, which describes the purpose of the menu.
;; essentially: define-key map fake-key '(item command), where fake-key is of the form [menu-bar mymenu nl] and defines key nl in mymenu which must exist
'tools)
;; extract all spec definitions
(defun extractspecs ()
(let
(skip-chars-forward " ")
)
)
)
)
;; extract all imports
(defun extractgets ()
(let
(p1
)
;; comma separated lisp
(skip-chars-forward " ")
(skip-chars-forward " ")
)
)
)
)
)
(defun refresh-specmenu ()
(let
)
;; delete the match menu
;; generate match menu
(define-key-after global-map [menu-bar enclmenu match] (cons "Match" (make-sparse-keymap)) 'kill-buffer)
;; generate subentries
(define-key global-map (vector 'menu-bar 'enclmenu 'match currentsym) (cons item (make-sparse-keymap)))
;; submenus
(define-key global-map (vector 'menu-bar 'enclmenu 'match currentsym (gensym)) (cons item2 `(lambda () (interactive) (run-csl ,item ,item2))))
)
))
)
; (message (concatenate 'string "asd" (buffer-file-name (current-buffer))))
; (switch-to-buffer (get-buffer "*Match-Result*"))
)