Creating a sub-menu to "C++"-menu

Creating a sub-menu to "C++"-menu

[Nordlöw]

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

Re: Creating a sub-menu to "C++"-menu

[Nordlöw]

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