[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: Creating a sub-menu to "C++"-menu
From: |
Nordlöw |
Subject: |
Re: Creating a sub-menu to "C++"-menu |
Date: |
Tue, 16 Sep 2008 07:26:25 -0700 (PDT) |
User-agent: |
G2/1.0 |
On 16 Sep, 13:51, Nordlöw <per.nord...@gmail.com> wrote:
> I am trying to create sub-menu to the menu-bar item "C++" (c-c++-
> menu). Here is my try:
>
> (defvar c++-iostream-objects-menu-list
> '("IOstream Objects (prefixed by std::)"
> ["cin" '(lambda () (insert "std::cin")) [:active t :help "Standard
> input stream."]]
> ))
> (add-hook 'c++-mode-hook '(lambda ()
> (easy-menu-define c++-iostream-objects-
> menu c-c++-menu
> "C++ IOstream Objects" c++-iostream-
> objects-menu-list)))
>
> However, nothing happens when I enter c++-mode. What have I done
> wrong?
>
> Thank in advance,
> Nordlöw
Forgot to describe the reason for my codings:
I want automate the process (define-key) of creating sub-menu items
(keys) by only having to define the variable c++-iostream-objects.
Question: How do I generate the expression [cin] from "cin". This is
needed as second argument to define-key()
New try:
(defvar c++-iostream-objects
'(
("cin" "Standard input stream." 'object)
("cout" "Standard output stream." 'object)
("cerr" "Standard output stream for errors." 'object)
("clog" "Standard output stream for logging." 'object)
)
"List of C++ IOstream Objects.")
(defvar c++-iostream-objects-menu
(let ((m (make-sparse-keymap "IOstream Objects")))
(dolist (elm (reverse c++-iostream-objects))
(let ((std-elm (concat "std::" (elt elm 0))))
(define-key m [cin] '(menu-item std-elm
'(lambda () (insert std-elm))
:help (elt elm 1)))))
(fset 'c++-iostream-objects-menu m)))
(add-hook 'c++-mode-hook
'(lambda () (define-key-after c-c++-menu [iostream-objects]
'(menu-item "IOstream Objects" c++-iostream-
objects-menu) t)) t)
/Nordlöw