Simple but fun hamburger menus on the mode-line (beware if you hate
hamburger menus)
reddit / emacs

----------------------------------------------------------------------
fromadarkcontinent · 2022-08-30 01:30

Just concat this to your mode-line-format string

 `(:eval (propertize "[☰]" 'local-map (make-mode-line-mouse-map
'mouse-1 'menu-bar-open)))`

https://i.redd.it/kqkmdxci7rk91.gif

----------------------------------------------------------------------
Frumpagumpus · 2022-08-30 02:05

i like it

----------------------------------------------------------------------
[deleted] · 2022-08-30 03:43

[removed]

----------------------------------------------------------------------
link0ff · 2022-08-30 07:35

Nice, but better to bind it to `down-mouse-1`, then you can select a
menu item with a singe click.

----------------------------------------------------------------------
michaelhoffman · 2022-08-30 13:09

Suggested patch for true hamburger menus:

    -(:eval (propertize "[☰]" 'local-map (make-mode-line-mouse-map
'mouse-1 'menu-bar-open)))
    +(:eval (propertize "[🍔]" 'local-map (make-mode-line-mouse-map
'mouse-1 'menu-bar-open)))

----------------------------------------------------------------------
Anktionaer · 2022-09-11 19:22

Nice, i stole this to make my own hamburger menu
```'(:propertize "[🍔]"
                                              local-map (keymap
                                                         (mode-line
keymap
(down-mouse-1 menu-item "Options" (keymap
                                 (menu-bar-open menu-item "Buffer
Menu" menu-bar-open :help "Menu Bar")
                                 (magit-status menu-item "Magit"
magit-status :Help "Open Magit VCS")
                                 "Options"
                                 ))))
                                              face (:foreground
"blue")
                                              mouse-face mode-line-
highlight
                                              help-echo "Open Options
Menu"
                                              )```

----------------------------------------------------------------------
fromadarkcontinent · 2022-09-12 06:43

Nice I might steal that from you in revenge.