diff options
| author | Ricardo Wurmus <rekado@elephly.net> | 2019-02-13 21:51:43 +0100 |
|---|---|---|
| committer | Ricardo Wurmus <rekado@elephly.net> | 2019-02-13 21:51:43 +0100 |
| commit | 3a15dd104821f0e3ec15f13a198a730e90569b39 (patch) | |
| tree | 4ff5b811edf8fbabd92774618de734646b6cd3f4 | |
| parent | e2da64f014942a73996286c4abe3c3b1f8bd220c (diff) | |
Unclutter the Help menu.
| -rw-r--r-- | guile-studio-configure.scm | 35 |
1 files changed, 35 insertions, 0 deletions
diff --git a/guile-studio-configure.scm b/guile-studio-configure.scm index df3ba2b..ceee1ac 100644 --- a/guile-studio-configure.scm +++ b/guile-studio-configure.scm @@ -47,6 +47,41 @@ ;; Hide the fact that this is Emacs (modify-frame-parameters nil '((title . "Guile Studio"))) + ;; Unclutter help menu. + (require 'menu-bar) + (defun menu-bar-read-guileref () + "Display the Guile Reference manual in Info mode." + (interactive) + (info "guile")) + (setq menu-bar-help-menu + (let ((menu (make-sparse-keymap "Help"))) + (bindings--define-key menu (vector 'about-gnu-project) + '(menu-item "About GNU" describe-gnu-project + :help "About the GNU System, GNU Project, and GNU/Linux")) + (bindings--define-key menu (vector 'about-emacs) + '(menu-item "About Emacs" about-emacs + :help "Display version number, copyright info, and basic help")) + (bindings--define-key menu (vector 'sep2) + menu-bar-separator) + (bindings--define-key menu (vector 'other-manuals) + '(menu-item "All Other Manuals (Info)" Info-directory + :help "Read any of the installed manuals")) + (bindings--define-key menu (vector 'emacs-manual) + '(menu-item "Read the Emacs Manual" info-emacs-manual + :help "Full documentation of Emacs features")) + (bindings--define-key menu (vector 'guile-reference) + '(menu-item "Guile Reference" menu-bar-read-guileref + :help "Read the Guile Reference manual")) + (bindings--define-key menu (vector 'sep1) + menu-bar-separator) + (bindings--define-key menu (vector 'emacs-tutorial-language-specific) + '(menu-item "Emacs Tutorial (choose language)..." + help-with-tutorial-spec-language + :help "Learn how to use Emacs (choose a language)")) + menu)) + (bindings--define-key global-map (vector 'menu-bar 'help-menu) + (cons (purecopy "Help") menu-bar-help-menu)) + ;; Check syntax on the fly (require 'flycheck) (flycheck-define-checker guile |