[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] 111/287: No compiler warnings for ergoemacs-menus.el
From: |
Matthew Fidler |
Subject: |
[elpa] 111/287: No compiler warnings for ergoemacs-menus.el |
Date: |
Wed, 02 Jul 2014 14:45:07 +0000 |
mlf176f2 pushed a commit to branch externals/ergoemacs-mode
in repository elpa.
commit 4e526caca90c58225b1ff243349b220fdbb484a4
Author: Matthew L. Fidler <address@hidden>
Date: Tue Jun 17 09:54:18 2014 -0500
No compiler warnings for ergoemacs-menus.el
---
ergoemacs-menus.el | 1207 ++++++++++++++++++++++++++--------------------------
1 files changed, 607 insertions(+), 600 deletions(-)
diff --git a/ergoemacs-menus.el b/ergoemacs-menus.el
index 08e3ded..e70bb0b 100644
--- a/ergoemacs-menus.el
+++ b/ergoemacs-menus.el
@@ -35,6 +35,7 @@
(defvar ergoemacs-mode-web-page-url
"http://ergoemacs.github.io/ergoemacs-mode/")
+(declare-function ergoemacs-pretty-key "ergoemacs-translate.el")
(defun ergoemacs-kbd-to-key (key)
"Convert key Emacs key code to ergoemacs-key-code."
(let ((ergoemacs-use-unicode-char nil))
@@ -50,7 +51,11 @@
(symbolp (cadddr item))
(not (keymapp (cadddr item))))
;; Look if this item already has a :keys property
- (if (position :keys item)
+ (if (catch 'found-keys
+ (dolist (i item)
+ (when (eq i ':keys)
+ (setq ret t)
+ (throw 'found-keys t))) nil)
nil
(ergoemacs-shortcut-for-command (cadddr item)))
nil))
@@ -85,7 +90,6 @@
(defun ergoemacs-shortcut-for-command (cmd)
(let ((key (key-description (where-is-internal cmd nil t nil t))))
- (ergoemacs-debug "Menu KEY Shortcut \"%s\"" key)
(ergoemacs-kbd-to-key key)))
@@ -177,8 +181,8 @@ All other modes are assumed to be minor modes or
unimportant.
magic-mode-alist
magic-fallback-mode-alist
auto-mode-alist))
- (setq mode (sort ret (lambda(x1 x2) (string< (downcase (nth 2 x2))
- (downcase (nth 2 x1))))))
+ (setq modes (sort ret (lambda(x1 x2) (string< (downcase (nth 2 x2))
+ (downcase (nth 2 x1))))))
(setq ret '())
(mapc
(lambda(elt)
@@ -203,7 +207,7 @@ All other modes are assumed to be minor modes or
unimportant.
(t
;; duplicated and last letter
(push elt cur-lst)))))
- mode)
+ modes)
(when cur-lst
(push `(,(intern current-letter) menu-item ,current-letter
(keymap ,@cur-lst)) ret))
@@ -246,359 +250,362 @@ All other modes are assumed to be minor modes or
unimportant.
;;; `Edit' Menu
(defvar ergoemacs-menu-bar-old-edit-menu (lookup-key global-map [menu-bar
edit]))
-(setq ergoemacs-menu-bar-edit-menu
- '(keymap
- (undo menu-item "Undo" undo
- :enable (and
- (not buffer-read-only)
- (not
- (eq t buffer-undo-list))
- (if
- (eq last-command 'undo)
- (listp pending-undo-list)
- (consp buffer-undo-list)))
- :help "Undo last operation"
- :keys "Ctrl+Z")
- (redo menu-item "Redo" redo
- :keys "Ctrl+Y")
- (redo-sep menu-item "--")
- (cut menu-item "Cut" clipboard-kill-region
- :help "Delete text in region and copy it to the clipboard"
- :keys "Ctrl+X")
- (copy menu-item "Copy" clipboard-kill-ring-save
- :help "Copy text in region to the clipboard"
- :keys "Ctrl+C")
- (paste menu-item "Paste" clipboard-yank
- :help "Paste text from clipboard"
- :keys "Ctrl+V")
- (paste-from-menu menu-item "Paste from Kill Menu" yank-menu
- :enable (and
- (cdr yank-menu)
- (not buffer-read-only))
- :help "Choose a string from the kill ring and paste
it")
- (clear menu-item "Clear" delete-region
- :enable (and mark-active (not buffer-read-only))
- :help "Delete the text in region between mark and current
position"
- :keys "Del")
- (mark-whole-buffer menu-item "Select All" mark-whole-buffer
- :help "Mark the whole buffer for a subsequent
cut/copy"
- :keys "Ctrl+A")
- (separator-search menu-item "--")
- (blank-operations menu-item "Blank/Whitespace Operations"
- (keymap
- (trim-trailing-space menu-item
- "Trim Trailing Space"
- delete-trailing-whitespace
- :help "Trim Trailing spaces on
each line")
- (separator-tabify menu-item "--")
- (tabify-region menu-item
- "Change multiple spaces to tabs
(Tabify)"
- (lambda() (interactive)
- (if mark-active
- (tabify (region-beginning)
- (region-end))
- (tabify (point-min)
(point-max))))
- :help "Convert multiple spaces in
the nonempty region to tabs when possible"
- :enable (not buffer-read-only))
- (untabify menu-item
- "Change Tabs To Spaces (Untabify)"
- (lambda() (interactive)
- (if mark-active
- (untabify (region-beginning)
- (region-end))
- (untabify (point-min) (point-max))))
- :help "Convert all tabs in the nonempty
region or buffer to multiple spaces"
- :enable (not buffer-read-only))))
- (copy-to-clipboard menu-item "Copy File/Path to Clipboard"
- (keymap
- (copy-full-path menu-item
- "Current Full File Path to
Clipboard"
- ergoemacs-copy-full-path
- :enable (buffer-file-name))
- (copy-file-name menu-item
- "Current File Name to Clipboard"
- ergoemacs-copy-file-name
- :enable (buffer-file-name))
- (copy-dir-path menu-item
- "Current Dir. Path to Clipboard"
- ergoemacs-copy-dir-path
- :enable (buffer-file-name))))
- (convert-case-to menu-item "Convert Case To"
- (keymap
- (capitalize-region menu-item
- "Capitalize" capitalize-region
- :help "Capitalize (initial caps)
words in the nonempty region"
- :enable (and (not
buffer-read-only) mark-active (> (region-end) (region-beginning))))
- (downcase-region menu-item
- "Downcase" downcase-region
- :help "Make words in the nonempty
region lower-case"
- :enable (and (not buffer-read-only)
mark-active (> (region-end) (region-beginning))))
- (upcase-region menu-item "Upcase" upcase-region
- :help "Make words in the nonempty
region upper-case"
+(defvar ergoemacs-menu-bar-edit-menu
+ '(keymap
+ (undo menu-item "Undo" undo
+ :enable (and
+ (not buffer-read-only)
+ (not
+ (eq t buffer-undo-list))
+ (if
+ (eq last-command 'undo)
+ (listp pending-undo-list)
+ (consp buffer-undo-list)))
+ :help "Undo last operation"
+ :keys "Ctrl+Z")
+ (redo menu-item "Redo" redo
+ :keys "Ctrl+Y")
+ (redo-sep menu-item "--")
+ (cut menu-item "Cut" clipboard-kill-region
+ :help "Delete text in region and copy it to the clipboard"
+ :keys "Ctrl+X")
+ (copy menu-item "Copy" clipboard-kill-ring-save
+ :help "Copy text in region to the clipboard"
+ :keys "Ctrl+C")
+ (paste menu-item "Paste" clipboard-yank
+ :help "Paste text from clipboard"
+ :keys "Ctrl+V")
+ (paste-from-menu menu-item "Paste from Kill Menu" yank-menu
+ :enable (and
+ (cdr yank-menu)
+ (not buffer-read-only))
+ :help "Choose a string from the kill ring and paste it")
+ (clear menu-item "Clear" delete-region
+ :enable (and mark-active (not buffer-read-only))
+ :help "Delete the text in region between mark and current position"
+ :keys "Del")
+ (mark-whole-buffer menu-item "Select All" mark-whole-buffer
+ :help "Mark the whole buffer for a subsequent cut/copy"
+ :keys "Ctrl+A")
+ (separator-search menu-item "--")
+ (blank-operations menu-item "Blank/Whitespace Operations"
+ (keymap
+ (trim-trailing-space menu-item
+ "Trim Trailing Space"
+ delete-trailing-whitespace
+ :help "Trim Trailing spaces on
each line")
+ (separator-tabify menu-item "--")
+ (tabify-region menu-item
+ "Change multiple spaces to tabs (Tabify)"
+ (lambda() (interactive)
+ (if mark-active
+ (tabify (region-beginning)
+ (region-end))
+ (tabify (point-min) (point-max))))
+ :help "Convert multiple spaces in the
nonempty region to tabs when possible"
+ :enable (not buffer-read-only))
+ (untabify menu-item
+ "Change Tabs To Spaces (Untabify)"
+ (lambda() (interactive)
+ (if mark-active
+ (untabify (region-beginning)
+ (region-end))
+ (untabify (point-min) (point-max))))
+ :help "Convert all tabs in the nonempty
region or buffer to multiple spaces"
+ :enable (not buffer-read-only))))
+ (copy-to-clipboard menu-item "Copy File/Path to Clipboard"
+ (keymap
+ (copy-full-path menu-item
+ "Current Full File Path to Clipboard"
+ ergoemacs-copy-full-path
+ :enable (buffer-file-name))
+ (copy-file-name menu-item
+ "Current File Name to Clipboard"
+ ergoemacs-copy-file-name
+ :enable (buffer-file-name))
+ (copy-dir-path menu-item
+ "Current Dir. Path to Clipboard"
+ ergoemacs-copy-dir-path
+ :enable (buffer-file-name))))
+ (convert-case-to menu-item "Convert Case To"
+ (keymap
+ (capitalize-region menu-item
+ "Capitalize" capitalize-region
+ :help "Capitalize (initial caps)
words in the nonempty region"
:enable (and (not buffer-read-only)
mark-active (> (region-end) (region-beginning))))
- (toggle-case-region menu-item "Toggle
Capitalization/Case"
- ergoemacs-toggle-letter-case
- :enable (not buffer-read-only))
- (toggle-camel menu-item "Toggle CamelCase to
camel_case"
- ergoemacs-toggle-camel-case
- :enable (not buffer-read-only))))
-
- (eol-conversion menu-item "EOL Conversion"
- (keymap
- (windows menu-item
- "Windows/DOS"
- (lambda() (interactive)
- (ergoemacs-eol-conversion 'dos))
- :enable (not (ergoemacs-eol-p 'dos)))
- (unix menu-item
- "Unix/OSX"
- (lambda() (interactive)
- (ergoemacs-eol-conversion 'unix))
- :enable (not (ergoemacs-eol-p 'unix)))
- (mac menu-item
- "Old Mac"
+ (downcase-region menu-item
+ "Downcase" downcase-region
+ :help "Make words in the nonempty
region lower-case"
+ :enable (and (not buffer-read-only)
mark-active (> (region-end) (region-beginning))))
+ (upcase-region menu-item "Upcase" upcase-region
+ :help "Make words in the nonempty region
upper-case"
+ :enable (and (not buffer-read-only)
mark-active (> (region-end) (region-beginning))))
+ (toggle-case-region menu-item "Toggle
Capitalization/Case"
+ ergoemacs-toggle-letter-case
+ :enable (not buffer-read-only))
+ (toggle-camel menu-item "Toggle CamelCase to camel_case"
+ ergoemacs-toggle-camel-case
+ :enable (not buffer-read-only))))
+
+ (eol-conversion menu-item "EOL Conversion"
+ (keymap
+ (windows menu-item
+ "Windows/DOS"
(lambda() (interactive)
- (ergoemacs-eol-conversion 'mac))
- :enable (not (ergoemacs-eol-p 'mac)))))
- ;; Taken/Adapted from menu+ by Drew Adams.
- ;; (region menu-item "Region"
- ;; (keymap
- ;; (unaccent-region
- ;; menu-item "Unaccent" unaccent-region ; Defined in
`unaccent'.
- ;; :help "Replace accented chars in the nonempty
region by unaccented chars"
- ;; :enable (and (not buffer-read-only)
mark-active (> (region-end) (region-beginning))))
- ;; (separator-chars menu-item "--")
-
-
- ;; (comment-region menu-item
- ;; "(Un)Comment" comment-region
- ;; :help "Comment or uncomment each line in
the nonempty region"
- ;; :enable (and comment-start (not
buffer-read-only) mark-active
- ;; (> (region-end)
(region-beginning))))
- ;; (center-region menu-item
- ;; "Center" center-region
- ;; :help "Center each nonblank line that starts
in the nonempty region"
- ;; :enable (and (not buffer-read-only)
mark-active (> (region-end) (region-beginning))))
- ;; ;; (indent-rigidly-region menu-item "Rigid Indent"
- ;; ;; indent-rigidly
- ;; ;; :help "Indent each line that starts in the
nonempty region"
- ;; ;; :enable (and (not buffer-read-only)
mark-active (> (region-end) (region-beginning))))
- ;; (indent-region menu-item "Column/Mode Indent" indent-region
- ;; :help "Indent each nonblank line in the
nonempty region"
- ;; :enable (and (not buffer-read-only)
mark-active (> (region-end) (region-beginning))))
-
- ;; (separator-indent menu-item "--")
- ;; (abbrevs-region "Expand Abbrevs..."
- ;; expand-region-abbrevs
- ;; :help "Expand each abbrev in the nonempty
region (with confirmation)"
- ;; :enable (and (not buffer-read-only)
mark-active (> (region-end) (region-beginning))))
-
- ;; (macro-region menu-item
- ;; "Exec Keyboard Macro"
apply-macro-to-region-lines
- ;; :help "Run keyboard macro at start of each
line in the nonempty region"
- ;; :enable (and last-kbd-macro mark-active (not
buffer-read-only)
- ;; (> (region-end)
(region-beginning))))))
- ;; Taken/Adapted from menu+ by Drew Adams.
- (sort menu-item "Sort"
- (keymap
- (regexp-fields menu-item
- "Regexp Fields" sort-regexp-fields
- :help "Sort the nonempty region
lexicographically"
- :enable (and last-kbd-macro
- (not buffer-read-only)
- mark-active
- (> (region-end)
(region-beginning))))
- (pages menu-item
- "Pages" sort-pages
- :help "Sort pages in the nonempty region alphabetically"
- :enable (and last-kbd-macro
- (not buffer-read-only)
- mark-active
- (> (region-end) (region-beginning))))
- (sort-paragraphs menu-item
- "Paragraphs" sort-paragraphs
- :help "Sort paragraphs in the nonempty region
alphabetically"
- :enable (and (not buffer-read-only)
mark-active (> (region-end) (region-beginning))))
- (sort-numeric-fields menu-item
- "Numeric Field" sort-numeric-fields
- :help "Sort lines in the nonempty region
numerically by the Nth field"
- :enable (and (not buffer-read-only)
mark-active (> (region-end) (region-beginning))))
- (sort-fields menu-item
- "Field" sort-fields
- :help "Sort lines in the nonempty region
lexicographically by the Nth field"
+ (ergoemacs-eol-conversion 'dos))
+ :enable (not (ergoemacs-eol-p 'dos)))
+ (unix menu-item
+ "Unix/OSX"
+ (lambda() (interactive)
+ (ergoemacs-eol-conversion 'unix))
+ :enable (not (ergoemacs-eol-p 'unix)))
+ (mac menu-item
+ "Old Mac"
+ (lambda() (interactive)
+ (ergoemacs-eol-conversion 'mac))
+ :enable (not (ergoemacs-eol-p 'mac)))))
+ ;; Taken/Adapted from menu+ by Drew Adams.
+ ;; (region menu-item "Region"
+ ;; (keymap
+ ;; (unaccent-region
+ ;; menu-item "Unaccent" unaccent-region ; Defined in `unaccent'.
+ ;; :help "Replace accented chars in the nonempty
region by unaccented chars"
+ ;; :enable (and (not buffer-read-only) mark-active
(> (region-end) (region-beginning))))
+ ;; (separator-chars menu-item "--")
+
+
+ ;; (comment-region menu-item
+ ;; "(Un)Comment" comment-region
+ ;; :help "Comment or uncomment each line in the
nonempty region"
+ ;; :enable (and comment-start (not
buffer-read-only) mark-active
+ ;; (> (region-end) (region-beginning))))
+ ;; (center-region menu-item
+ ;; "Center" center-region
+ ;; :help "Center each nonblank line that starts in
the nonempty region"
+ ;; :enable (and (not buffer-read-only) mark-active
(> (region-end) (region-beginning))))
+ ;; ;; (indent-rigidly-region menu-item "Rigid Indent"
+ ;; ;; indent-rigidly
+ ;; ;; :help "Indent each line that starts in the
nonempty region"
+ ;; ;; :enable (and (not buffer-read-only)
mark-active (> (region-end) (region-beginning))))
+ ;; (indent-region menu-item "Column/Mode Indent" indent-region
+ ;; :help "Indent each nonblank line in the nonempty
region"
+ ;; :enable (and (not buffer-read-only) mark-active
(> (region-end) (region-beginning))))
+
+ ;; (separator-indent menu-item "--")
+ ;; (abbrevs-region "Expand Abbrevs..."
+ ;; expand-region-abbrevs
+ ;; :help "Expand each abbrev in the nonempty
region (with confirmation)"
+ ;; :enable (and (not buffer-read-only)
mark-active (> (region-end) (region-beginning))))
+
+ ;; (macro-region menu-item
+ ;; "Exec Keyboard Macro" apply-macro-to-region-lines
+ ;; :help "Run keyboard macro at start of each line
in the nonempty region"
+ ;; :enable (and last-kbd-macro mark-active (not
buffer-read-only)
+ ;; (> (region-end)
(region-beginning))))))
+ ;; Taken/Adapted from menu+ by Drew Adams.
+ (sort menu-item "Sort"
+ (keymap
+ (regexp-fields menu-item
+ "Regexp Fields" sort-regexp-fields
+ :help "Sort the nonempty region lexicographically"
+ :enable (and last-kbd-macro
+ (not buffer-read-only)
+ mark-active
+ (> (region-end) (region-beginning))))
+ (pages menu-item
+ "Pages" sort-pages
+ :help "Sort pages in the nonempty region alphabetically"
+ :enable (and last-kbd-macro
+ (not buffer-read-only)
+ mark-active
+ (> (region-end) (region-beginning))))
+ (sort-paragraphs menu-item
+ "Paragraphs" sort-paragraphs
+ :help "Sort paragraphs in the nonempty region
alphabetically"
:enable (and (not buffer-read-only) mark-active
(> (region-end) (region-beginning))))
- (sort-columns menu-item
- "Columns" sort-columns
- :help "Sort lines in the nonempty region
alphabetically, by a certain range of columns"
- :enable (and (not buffer-read-only) mark-active
(> (region-end) (region-beginning))))
- (sort-lines menu-item
- "Lines" sort-lines
- :help "Sort lines in the nonempty region
alphabetically"
- :enable (and (not buffer-read-only) mark-active
(> (region-end) (region-beginning))))
- (reverse-region menu-item "Reverse" reverse-region
- :help "Reverse the order of the selected lines"
- :enable (and (not buffer-read-only) mark-active
(> (region-end) (region-beginning))))))
-
-
- ;; (search menu-item "Search"
- ;; (keymap
- ;; (search-forward menu-item "Text..." search-forward)
- ;; (separator-repeat-search menu-item "--")
- ;; (tags-srch menu-item "Search Tagged Files..." tags-search
- ;; :help "Search for a regexp in all tagged files")
- ;; (tags-continue menu-item "Continue Tags Search"
tags-loop-continue
- ;; :help "Continue last tags search operation")
- ;; "Search"))
-
- ;; (i-search menu-item "Incremental Search"
- ;; (keymap
- ;; (isearch-forward menu-item "Forward String..."
isearch-forward
- ;; :help "Search forward for a string as
you type it")
- ;; (isearch-backward menu-item "Backward String..."
isearch-backward
- ;; :help "Search backwards for a string
as you type it")
- ;; (isearch-forward-regexp menu-item "Forward Regexp..."
isearch-forward-regexp
- ;; :help "Search forward for a
regular expression as you type it")
- ;; (isearch-backward-regexp menu-item "Backward Regexp..."
isearch-backward-regexp
- ;; :help "Search backwards for a
regular expression as you type it")
- ;; "Incremental Search"))
-
- ;; (replace menu-item "Replace"
- ;; (keymap
- ;; (query-replace menu-item "Replace String..." query-replace
- ;; :enable (not buffer-read-only)
- ;; :help "Replace string interactively, ask
about each occurrence")
- ;; (query-replace-regexp menu-item "Replace Regexp..."
query-replace-regexp
- ;; :enable (not buffer-read-only)
- ;; :help "Replace regular expression
interactively, ask about each occurrence")
- ;; (separator-replace-tags menu-item "--")
- ;; (tags-repl menu-item "Replace in Tagged Files..."
tags-query-replace
- ;; :help "Interactively replace a regexp in all
tagged files")
- ;; (tags-repl-continue menu-item "Continue Replace"
tags-loop-continue
- ;; :help "Continue last tags replace
operation")
- ;; "Replace"))
-
- ;; (goto menu-item "Go To"
- ;; (keymap
- ;; (go-to-line menu-item "Goto Line..." goto-line
- ;; :help "Read a line number and go to that line")
- ;; (separator-tags menu-item "--")
- ;; (find-tag menu-item "Find Tag..." find-tag
- ;; :help "Find definition of function or variable")
- ;; (find-tag-otherw menu-item "Find Tag in Other Window..."
find-tag-other-window
- ;; :help "Find function/variable definition in
another window")
- ;; (next-tag menu-item "Find Next Tag" menu-bar-next-tag
- ;; :enable (and
- ;; (boundp 'tags-location-ring)
- ;; (not
- ;; (ring-empty-p tags-location-ring)))
- ;; :help "Find next function/variable matching last
tag name")
- ;; (next-tag-otherw menu-item "Next Tag in Other Window"
menu-bar-next-tag-other-window
- ;; :enable (and
- ;; (boundp 'tags-location-ring)
- ;; (not
- ;; (ring-empty-p
tags-location-ring)))
- ;; :help "Find next function/variable matching
last tag name in another window")
- ;; (apropos-tags menu-item "Tags Apropos..." tags-apropos
- ;; :help "Find function/variables whose names
match regexp")
- ;; (separator-tag-file menu-item "--")
- ;; (set-tags-name menu-item "Set Tags File Name..."
visit-tags-table
- ;; :help "Tell Tags commands which tag table
file to use")
- ;; "Go To"))
-
- ;; (bookmark menu-item "Bookmarks" menu-bar-bookmark-map)
- (separator-bookmark menu-item "--")
- (fill menu-item "Fill" fill-region
- :enable (and mark-active
- (not buffer-read-only))
- :help "Fill text in region to fit between left and right margin")
- (props menu-item "Text Properties" facemenu-menu)
- "Edit"))
+ (sort-numeric-fields menu-item
+ "Numeric Field" sort-numeric-fields
+ :help "Sort lines in the nonempty region
numerically by the Nth field"
+ :enable (and (not buffer-read-only)
mark-active (> (region-end) (region-beginning))))
+ (sort-fields menu-item
+ "Field" sort-fields
+ :help "Sort lines in the nonempty region
lexicographically by the Nth field"
+ :enable (and (not buffer-read-only) mark-active (>
(region-end) (region-beginning))))
+ (sort-columns menu-item
+ "Columns" sort-columns
+ :help "Sort lines in the nonempty region
alphabetically, by a certain range of columns"
+ :enable (and (not buffer-read-only) mark-active (>
(region-end) (region-beginning))))
+ (sort-lines menu-item
+ "Lines" sort-lines
+ :help "Sort lines in the nonempty region alphabetically"
+ :enable (and (not buffer-read-only) mark-active (>
(region-end) (region-beginning))))
+ (reverse-region menu-item "Reverse" reverse-region
+ :help "Reverse the order of the selected lines"
+ :enable (and (not buffer-read-only) mark-active
(> (region-end) (region-beginning))))))
+
+
+ ;; (search menu-item "Search"
+ ;; (keymap
+ ;; (search-forward menu-item "Text..." search-forward)
+ ;; (separator-repeat-search menu-item "--")
+ ;; (tags-srch menu-item "Search Tagged Files..." tags-search
+ ;; :help "Search for a regexp in all tagged files")
+ ;; (tags-continue menu-item "Continue Tags Search"
tags-loop-continue
+ ;; :help "Continue last tags search operation")
+ ;; "Search"))
+
+ ;; (i-search menu-item "Incremental Search"
+ ;; (keymap
+ ;; (isearch-forward menu-item "Forward String..."
isearch-forward
+ ;; :help "Search forward for a string as you
type it")
+ ;; (isearch-backward menu-item "Backward String..."
isearch-backward
+ ;; :help "Search backwards for a string as
you type it")
+ ;; (isearch-forward-regexp menu-item "Forward Regexp..."
isearch-forward-regexp
+ ;; :help "Search forward for a regular
expression as you type it")
+ ;; (isearch-backward-regexp menu-item "Backward Regexp..."
isearch-backward-regexp
+ ;; :help "Search backwards for a
regular expression as you type it")
+ ;; "Incremental Search"))
+
+ ;; (replace menu-item "Replace"
+ ;; (keymap
+ ;; (query-replace menu-item "Replace String..." query-replace
+ ;; :enable (not buffer-read-only)
+ ;; :help "Replace string interactively, ask about
each occurrence")
+ ;; (query-replace-regexp menu-item "Replace Regexp..."
query-replace-regexp
+ ;; :enable (not buffer-read-only)
+ ;; :help "Replace regular expression
interactively, ask about each occurrence")
+ ;; (separator-replace-tags menu-item "--")
+ ;; (tags-repl menu-item "Replace in Tagged Files..."
tags-query-replace
+ ;; :help "Interactively replace a regexp in all
tagged files")
+ ;; (tags-repl-continue menu-item "Continue Replace"
tags-loop-continue
+ ;; :help "Continue last tags replace
operation")
+ ;; "Replace"))
+
+ ;; (goto menu-item "Go To"
+ ;; (keymap
+ ;; (go-to-line menu-item "Goto Line..." goto-line
+ ;; :help "Read a line number and go to that line")
+ ;; (separator-tags menu-item "--")
+ ;; (find-tag menu-item "Find Tag..." find-tag
+ ;; :help "Find definition of function or variable")
+ ;; (find-tag-otherw menu-item "Find Tag in Other Window..."
find-tag-other-window
+ ;; :help "Find function/variable definition in
another window")
+ ;; (next-tag menu-item "Find Next Tag" menu-bar-next-tag
+ ;; :enable (and
+ ;; (boundp 'tags-location-ring)
+ ;; (not
+ ;; (ring-empty-p tags-location-ring)))
+ ;; :help "Find next function/variable matching last tag
name")
+ ;; (next-tag-otherw menu-item "Next Tag in Other Window"
menu-bar-next-tag-other-window
+ ;; :enable (and
+ ;; (boundp 'tags-location-ring)
+ ;; (not
+ ;; (ring-empty-p tags-location-ring)))
+ ;; :help "Find next function/variable matching
last tag name in another window")
+ ;; (apropos-tags menu-item "Tags Apropos..." tags-apropos
+ ;; :help "Find function/variables whose names match
regexp")
+ ;; (separator-tag-file menu-item "--")
+ ;; (set-tags-name menu-item "Set Tags File Name..." visit-tags-table
+ ;; :help "Tell Tags commands which tag table file to
use")
+ ;; "Go To"))
+
+ ;; (bookmark menu-item "Bookmarks" menu-bar-bookmark-map)
+ (separator-bookmark menu-item "--")
+ (fill menu-item "Fill" fill-region
+ :enable (and mark-active
+ (not buffer-read-only))
+ :help "Fill text in region to fit between left and right margin")
+ (props menu-item "Text Properties" facemenu-menu)
+ "Edit"))
;;; `Search' menu
-(setq ergoemacs-menu-bar-search-menu
- '(keymap
- (search-forward menu-item "String Forward..." search-forward)
- (search-backward menu-item " Backward..." search-backward)
- (re-search-forward menu-item "Regexp Forward..." re-search-forward)
- (re-search-backward menu-item " Backward..." re-search-backward)
- (separator-repeat-search menu-item "--" )
- (repeat-forward menu-item "Repeat Forward"
nonincremental-repeat-search-forward
- :enable (or (and (memq menu-bar-last-search-type
'(string word)) search-ring)
- (and (eq menu-bar-last-search-type
'regexp) regexp-search-ring))
- :help "Repeat last search forward")
- (repeat-backward menu-item " Repeat Backward"
nonincremental-repeat-search-backward
- :enable (or (and (memq menu-bar-last-search-type
'(string word)) search-ring)
- (and (eq menu-bar-last-search-type
'regexp) regexp-search-ring))
- :help "Repeat last search forward")
- (separator-isearch menu-item "--")
- (i-search menu-item "Incremental Search"
- (keymap
- (isearch-forward menu-item "Forward String..."
isearch-forward
- :help "Search forward for a string as you
type it")
- (isearch-backward menu-item " Backward..."
isearch-backward
- :help "Search backwards for a string as
you type it")
- (isearch-forward-regexp menu-item "Forward Regexp..."
isearch-forward-regexp
- :help "Search forward for a regular
expression as you type it")
- (isearch-backward-regexp menu-item " Backward..."
isearch-backward-regexp
- :help "Search backwards for a
regular expression as you type it")
- "Incremental Search"))
-
- (replace menu-item "Replace"
- (keymap
- (query-replace menu-item "Replace String..." query-replace
- :enable (not buffer-read-only)
- :help "Replace string interactively, ask
about each occurrence")
- (query-replace-regexp menu-item "Replace Regexp..."
query-replace-regexp
- :enable (not buffer-read-only)
- :help "Replace regular expression
interactively, ask about each occurrence")
- (separator-replace-tags menu-item "--")
- (tags-repl menu-item "Replace in Tagged Files..."
tags-query-replace
- :help "Interactively replace a regexp in all
tagged files")
- (tags-repl-continue menu-item "Continue Replace"
tags-loop-continue
- :help "Continue last tags replace
operation")
- "Replace"))
- (grep menu-item "Grep..." grep
- :enable (executable-find "grep"))
- (occur menu-item "Occurrences in buffer..." occur
- :help "Show Lines in a buffer that match a regular expression")
- (moccur menu-item "Occurrences in all buffers..." multi-occur
- :help "Show Lines in all buffers that match a regular
expression")
- (separator-go-to menu-item "--" )
-
- (goto menu-item "Go To"
+(defvar ergoemacs-menu-bar-search-menu
+ '(keymap
+ (search-forward menu-item "String Forward..." search-forward)
+ (search-backward menu-item " Backward..." search-backward)
+ (re-search-forward menu-item "Regexp Forward..." re-search-forward)
+ (re-search-backward menu-item " Backward..." re-search-backward)
+ (separator-repeat-search menu-item "--" )
+ (repeat-forward menu-item "Repeat Forward"
nonincremental-repeat-search-forward
+ :enable (or (and (memq menu-bar-last-search-type '(string
word)) search-ring)
+ (and (eq menu-bar-last-search-type 'regexp)
regexp-search-ring))
+ :help "Repeat last search forward")
+ (repeat-backward menu-item " Repeat Backward"
nonincremental-repeat-search-backward
+ :enable (or (and (memq menu-bar-last-search-type '(string
word)) search-ring)
+ (and (eq menu-bar-last-search-type 'regexp)
regexp-search-ring))
+ :help "Repeat last search forward")
+ (separator-isearch menu-item "--")
+ (i-search menu-item "Incremental Search"
(keymap
- (go-to-line menu-item "Goto Line..." goto-line
- :help "Read a line number and go to that line")
- (separator-tags menu-item "--")
- (find-tag menu-item "Find Tag..." find-tag
- :help "Find definition of function or variable")
- (find-tag-otherw menu-item "Find Tag in Other Window..."
find-tag-other-window
- :help "Find function/variable definition in
another window")
- (next-tag menu-item "Find Next Tag" menu-bar-next-tag
- :enable (and
- (boundp 'tags-location-ring)
- (not
- (ring-empty-p tags-location-ring)))
- :help "Find next function/variable matching last tag
name")
- (next-tag-otherw menu-item "Next Tag in Other Window"
menu-bar-next-tag-other-window
- :enable (and
- (boundp 'tags-location-ring)
- (not
- (ring-empty-p tags-location-ring)))
- :help "Find next function/variable matching
last tag name in another window")
- (apropos-tags menu-item "Tags Apropos..." tags-apropos
- :help "Find function/variables whose names match
regexp")
- (separator-tag-file menu-item "--")
- (set-tags-name menu-item "Set Tags File Name..."
visit-tags-table
- :help "Tell Tags commands which tag table file
to use")
- "Go To")
- (separator-packages))
-
- (bookmark menu-item "Bookmarks" menu-bar-bookmark-map)
- "Search"))
+ (isearch-forward menu-item "Forward String..." isearch-forward
+ :help "Search forward for a string as you type
it")
+ (isearch-backward menu-item " Backward..." isearch-backward
+ :help "Search backwards for a string as you
type it")
+ (isearch-forward-regexp menu-item "Forward Regexp..."
isearch-forward-regexp
+ :help "Search forward for a regular
expression as you type it")
+ (isearch-backward-regexp menu-item " Backward..."
isearch-backward-regexp
+ :help "Search backwards for a regular
expression as you type it")
+ "Incremental Search"))
+
+ (replace menu-item "Replace"
+ (keymap
+ (query-replace menu-item "Replace String..." query-replace
+ :enable (not buffer-read-only)
+ :help "Replace string interactively, ask about
each occurrence")
+ (query-replace-regexp menu-item "Replace Regexp..."
query-replace-regexp
+ :enable (not buffer-read-only)
+ :help "Replace regular expression
interactively, ask about each occurrence")
+ (separator-replace-tags menu-item "--")
+ (tags-repl menu-item "Replace in Tagged Files..."
tags-query-replace
+ :help "Interactively replace a regexp in all tagged
files")
+ (tags-repl-continue menu-item "Continue Replace"
tags-loop-continue
+ :help "Continue last tags replace operation")
+ "Replace"))
+ (grep menu-item "Grep..." grep
+ :enable (executable-find "grep"))
+ (occur menu-item "Occurrences in buffer..." occur
+ :help "Show Lines in a buffer that match a regular expression")
+ (moccur menu-item "Occurrences in all buffers..." multi-occur
+ :help "Show Lines in all buffers that match a regular expression")
+ (separator-go-to menu-item "--" )
+
+ (goto menu-item "Go To"
+ (keymap
+ (go-to-line menu-item "Goto Line..." goto-line
+ :help "Read a line number and go to that line")
+ (separator-tags menu-item "--")
+ (find-tag menu-item "Find Tag..." find-tag
+ :help "Find definition of function or variable")
+ (find-tag-otherw menu-item "Find Tag in Other Window..."
find-tag-other-window
+ :help "Find function/variable definition in
another window")
+ (next-tag menu-item "Find Next Tag" menu-bar-next-tag
+ :enable (and
+ (boundp 'tags-location-ring)
+ (not
+ (ring-empty-p tags-location-ring)))
+ :help "Find next function/variable matching last tag
name")
+ (next-tag-otherw menu-item "Next Tag in Other Window"
menu-bar-next-tag-other-window
+ :enable (and
+ (boundp 'tags-location-ring)
+ (not
+ (ring-empty-p tags-location-ring)))
+ :help "Find next function/variable matching last
tag name in another window")
+ (apropos-tags menu-item "Tags Apropos..." tags-apropos
+ :help "Find function/variables whose names match
regexp")
+ (separator-tag-file menu-item "--")
+ (set-tags-name menu-item "Set Tags File Name..." visit-tags-table
+ :help "Tell Tags commands which tag table file to
use")
+ "Go To")
+ (separator-packages))
+
+ (bookmark menu-item "Bookmarks" menu-bar-bookmark-map)
+ "Search"))
;;; `View' menu
-
+(defvar package-archives)
+(defvar tabbar-mode)
+(declare-function tabbar-install-faces "tabbar-ruler.el")
+(declare-function tabbar-mode "tabbar-mode.el")
(defun ergoemacs-menu-tabbar-toggle ()
"Enables/Disables (and installs if not present) a tab-bar for emacs."
(interactive)
@@ -621,263 +628,263 @@ All other modes are assumed to be minor modes or
unimportant.
(tabbar-mode -1)
(tabbar-mode 1)))))
-(setq ergoemacs-menu-bar-view-menu
- `(keymap
- (menu-font-size menu-item "Zoom"
- (keymap
- (zoom-in menu-item "Zoom In" text-scale-increase)
- (zoom-out menu-item "Zoom Out" text-scale-decrease)
- (zoom-reset menu-item "Zoom Reset"
text-scale-normal-size)))
-
- (menu-set-font menu-item "Set Default Font..." menu-set-font :visible
- (display-multi-font-p)
- :help "Select a default font" :keys "")
-
- ,(when (fboundp 'customize-themes)
- '(color-theme menu-item "Customize Color Themes" customize-themes
- :help "Customize Emacs Themes."))
-
- (separator-font-size menu-item "--")
-
- (highlight-current-line menu-item "Highlight Current Line"
global-hl-line-mode
- :help "Have the cursor line always Highlighted"
- :button (:toggle . (and (boundp
'global-hl-line-mode)
- global-hl-line-mode)))
-
- (paren-mode menu-item "Highlight Matching Parentheses" show-paren-mode
- :button (:toggle . show-paren-mode))
-
- (ruler-mode menu-item "Ruler Mode" ruler-mode
- :button (:toggle . ruler-mode))
-
- (blink-cursor menu-item "Cursor Blink" blink-cursor-mode
- :button (:toggle . blink-cursor-mode))
-
- (tabbar-mode menu-item "Tabbar" ergoemacs-menu-tabbar-toggle
- :button (:toggle . (and (boundp 'tabbar-mode)
- tabbar-mode)))
-
-
- ;; (showhide-tool-bar menu-item "Tool-bar" tool-bar-mode :help "Turn
tool-bar on/off"
- ;; :button (:toggle . tool-bar-mode))
-
- ;; (menu-bar-mode menu-item "Menu-bar" toggle-menu-bar-mode-from-frame
:help "Turn menu-bar on/off" :button
- ;; (:toggle menu-bar-positive-p
- ;; (frame-parameter
- ;; (menu-bar-frame-for-menubar)
- ;; 'menu-bar-lines))
- ;; :keys "")
-
- ;; (showhide-tooltip-mode menu-item "Tooltips" tooltip-mode :help
"Turn tooltips on/off" :visible
- ;; (and
- ;; (display-graphic-p)
- ;; (fboundp 'x-show-tip))
- ;; :button
- ;; (:toggle . tooltip-mode)
- ;; :keys "")
- (separator-speedbar menu-item "--")
- ;; (showhide-scroll-bar)
- ;; (showhide-fringe)
-
- (showhide-speedbar menu-item "Speedbar" speedbar-frame-mode :help
"Display a Speedbar quick-navigation frame" :button
- (:toggle and
- (boundp 'speedbar-frame)
- (frame-live-p
- speedbar-frame)
- (frame-visible-p
- speedbar-frame))
- :keys "")
- ;; (datetime-separator)
- ;; (showhide-date-time)
- (linecolumn-separator "--")
- (line-number-mode menu-item "Line Numbers" line-number-mode :help
"Show the current line number in the mode line" :button
- (:toggle and
- (default-boundp 'line-number-mode)
- (default-value 'line-number-mode))
- :keys "")
- (global-whitespace-mode menu-item "Show/Hide whitespaces"
global-whitespace-mode :button
- (:toggle . global-whitespace-mode)
- :keys "")
- (global-linum-mode menu-item "Show/Hide line numbers in margin"
global-linum-mode :button
- (:toggle . global-linum-mode)
- :keys "")))
+(defvar ergoemacs-menu-bar-view-menu
+ `(keymap
+ (menu-font-size menu-item "Zoom"
+ (keymap
+ (zoom-in menu-item "Zoom In" text-scale-increase)
+ (zoom-out menu-item "Zoom Out" text-scale-decrease)
+ (zoom-reset menu-item "Zoom Reset"
text-scale-normal-size)))
+
+ (menu-set-font menu-item "Set Default Font..." menu-set-font :visible
+ (display-multi-font-p)
+ :help "Select a default font" :keys "")
+
+ ,(when (fboundp 'customize-themes)
+ '(color-theme menu-item "Customize Color Themes" customize-themes
+ :help "Customize Emacs Themes."))
+
+ (separator-font-size menu-item "--")
+
+ (highlight-current-line menu-item "Highlight Current Line"
global-hl-line-mode
+ :help "Have the cursor line always Highlighted"
+ :button (:toggle . (and (boundp
'global-hl-line-mode)
+ global-hl-line-mode)))
+
+ (paren-mode menu-item "Highlight Matching Parentheses" show-paren-mode
+ :button (:toggle . show-paren-mode))
+
+ (ruler-mode menu-item "Ruler Mode" ruler-mode
+ :button (:toggle . ruler-mode))
+
+ (blink-cursor menu-item "Cursor Blink" blink-cursor-mode
+ :button (:toggle . blink-cursor-mode))
+
+ (tabbar-mode menu-item "Tabbar" ergoemacs-menu-tabbar-toggle
+ :button (:toggle . (and (boundp 'tabbar-mode)
+ tabbar-mode)))
+
+
+ ;; (showhide-tool-bar menu-item "Tool-bar" tool-bar-mode :help "Turn
tool-bar on/off"
+ ;; :button (:toggle . tool-bar-mode))
+
+ ;; (menu-bar-mode menu-item "Menu-bar" toggle-menu-bar-mode-from-frame
:help "Turn menu-bar on/off" :button
+ ;; (:toggle menu-bar-positive-p
+ ;; (frame-parameter
+ ;; (menu-bar-frame-for-menubar)
+ ;; 'menu-bar-lines))
+ ;; :keys "")
+
+ ;; (showhide-tooltip-mode menu-item "Tooltips" tooltip-mode :help "Turn
tooltips on/off" :visible
+ ;; (and
+ ;; (display-graphic-p)
+ ;; (fboundp 'x-show-tip))
+ ;; :button
+ ;; (:toggle . tooltip-mode)
+ ;; :keys "")
+ (separator-speedbar menu-item "--")
+ ;; (showhide-scroll-bar)
+ ;; (showhide-fringe)
+
+ (showhide-speedbar menu-item "Speedbar" speedbar-frame-mode :help "Display
a Speedbar quick-navigation frame" :button
+ (:toggle and
+ (boundp 'speedbar-frame)
+ (frame-live-p
+ speedbar-frame)
+ (frame-visible-p
+ speedbar-frame))
+ :keys "")
+ ;; (datetime-separator)
+ ;; (showhide-date-time)
+ (linecolumn-separator "--")
+ (line-number-mode menu-item "Line Numbers" line-number-mode :help "Show
the current line number in the mode line" :button
+ (:toggle and
+ (default-boundp 'line-number-mode)
+ (default-value 'line-number-mode))
+ :keys "")
+ (global-whitespace-mode menu-item "Show/Hide whitespaces"
global-whitespace-mode :button
+ (:toggle . global-whitespace-mode)
+ :keys "")
+ (global-linum-mode menu-item "Show/Hide line numbers in margin"
global-linum-mode :button
+ (:toggle . global-linum-mode)
+ :keys "")))
;;; `Help' menus
(defvar ergoemacs-menu-bar-old-help-menu (lookup-key global-map [menu-bar
help-menu]))
-(setq ergoemacs-menu-bar-help-menu
- `(keymap
- ;; Adapted from Menu-bar+
- (whoops menu-item "Whoops!?"
+(defvar ergoemacs-menu-bar-help-menu
+ `(keymap
+ ;; Adapted from Menu-bar+
+ (whoops menu-item "Whoops!?"
+ (keymap
+ (what-did-i-do
+ menu-item "What did I do !?"
+ view-lossage
+ :help "Display last 100 input keystrokes")
+ (exit-recurive-edit
+ menu-item "Exit Recursive Editing"
+ top-level
+ :help "Exit all Recursive editing Levels")
+ (keyboard-quit
+ menu-item "Cancel Current Action"
+ keyboard-quit
+ :help "Quit any operation in progress")))
+
+ (help-for-help menu-item "Help for Help..."
+ help-for-help
+ :help "Emacs main help command")
+ (separator-1 menu-item "--")
+ (apropos menu-item "Apropos (Find matching)"
+ (keymap
+ (commands menu-item "Commands..."
+ apropos-commands
+ :help "Find commands matching a regular expression")
+ (user-options menu-item "User Options..."
+ apropos-user-options
+ :help "Find user options matching a regular
expression")
+ (all-vars menu-item "All Variables..."
+ apropos-variable
+ :help "Find a variable that matches a regular
expression")
+ (var-values menu-item "Variable Values..."
+ apropos-value
+ :help "Find variable values that matches a regular
expression.")
+ (symbols menu-item "Symbols..."
+ apropos
+ :help "Find functions/variables that match a regular
expression.")
+ (symbol-desc menu-item "Symbol Descriptions (Doc)..."
+ apropos-documentation
+ :help "Find functions/variables whose documentation
match a regular expression")
+ (tags menu-item "Tags..."
+ tags-apropos
+ :help "Find Tags Matching Regular Expression")))
+ (describe menu-item "Describe"
+ (keymap
+ (function menu-item "Function..."
+ describe-function
+ :help "Describe command or other function")
+ (variable menu-item "Variable..."
+ describe-variable
+ :help "Describe an emacs user option or other
variable.")
+ (face menu-item "Face..."
+ describe-face
+ :help "Describe a face")
+ (key menu-item "Key..."
+ describe-key
+ :help "Describe a command bound to a key")
+ (input menu-item "Input Method..."
+ describe-input-method)
+ (coding menu-item "Coding System..."
+ describe-coding-system)
+ (separator-curr-modes menu-item "--")
+ (curr-modes menu-item "Current Modes"
+ describe-modes
+ :help "Describe this buffers major and minor
modes.")
+ (curr-keys menu-item "Current Key Bindings"
+ describe-bindings
+ :help "List all key-bindings with brief
descriptions.")
+ (curr-syntax menu-item "Current Syntax Table"
+ describe-syntax
+ :help "Describe the syntax specifications in the
current syntax table")))
+ (learn-more menu-item "Learn More"
(keymap
- (what-did-i-do
- menu-item "What did I do !?"
- view-lossage
- :help "Display last 100 input keystrokes")
- (exit-recurive-edit
- menu-item "Exit Recursive Editing"
- top-level
- :help "Exit all Recursive editing Levels")
- (keyboard-quit
- menu-item "Cancel Current Action"
- keyboard-quit
- :help "Quit any operation in progress")))
-
- (help-for-help menu-item "Help for Help..."
- help-for-help
- :help "Emacs main help command")
- (separator-1 menu-item "--")
- (apropos menu-item "Apropos (Find matching)"
- (keymap
- (commands menu-item "Commands..."
- apropos-commands
- :help "Find commands matching a regular
expression")
- (user-options menu-item "User Options..."
- apropos-user-options
- :help "Find user options matching a regular
expression")
- (all-vars menu-item "All Variables..."
- apropos-variable
- :help "Find a variable that matches a regular
expression")
- (var-values menu-item "Variable Values..."
- apropos-value
- :help "Find variable values that matches a
regular expression.")
- (symbols menu-item "Symbols..."
- apropos
- :help "Find functions/variables that match a
regular expression.")
- (symbol-desc menu-item "Symbol Descriptions (Doc)..."
- apropos-documentation
- :help "Find functions/variables whose
documentation match a regular expression")
- (tags menu-item "Tags..."
- tags-apropos
- :help "Find Tags Matching Regular Expression")))
- (describe menu-item "Describe"
- (keymap
- (function menu-item "Function..."
- describe-function
- :help "Describe command or other function")
- (variable menu-item "Variable..."
- describe-variable
- :help "Describe an emacs user option or other
variable.")
- (face menu-item "Face..."
- describe-face
- :help "Describe a face")
- (key menu-item "Key..."
- describe-key
- :help "Describe a command bound to a key")
- (input menu-item "Input Method..."
- describe-input-method)
- (coding menu-item "Coding System..."
- describe-coding-system)
- (separator-curr-modes menu-item "--")
- (curr-modes menu-item "Current Modes"
- describe-modes
- :help "Describe this buffers major and minor
modes.")
- (curr-keys menu-item "Current Key Bindings"
- describe-bindings
- :help "List all key-bindings with brief
descriptions.")
- (curr-syntax menu-item "Current Syntax Table"
- describe-syntax
- :help "Describe the syntax specifications in
the current syntax table")))
- (learn-more menu-item "Learn More"
- (keymap
- (emacs menu-item"Emacs"
- (keymap
- (manual menu-item
- "Manual"
- info-emacs-manual)
- (command-desc menu-item
- " Command Description..."
- Info-goto-emacs-command-node
- :help "Show emacs manual section
about a command")
- ;; Useless for ergoemacs...
- ;; (key-desc menu-item
- ;; " Key Description..."
- ;; Info-goto-emacs-key-command-node
- ;; :help "Show Emacs manual
- ;; section that describes a key
- ;; sequence.")
- (index menu-item
- " Index..."
- emacs-index-search
- :help "Lookup topic in Emacs manual")
- (glossary menu-item
- " Glossary"
- search-emacs-glossary)
- (separator-emacs menu-item "--")
- (faq menu-item
- "FAQ"
- view-emacs-FAQ
- :help "Read frequently asked questions about
Emacs (with answers)")
- (whats-new menu-item
- "What's new"
- view-emacs-news
- :help "New features of emacs")
- (known-problems menu-item
- "Known problems"
- view-emacs-problems
- :help "Known problems of this
Emacs version.")))
- (emacs-lisp menu-item "Emacs Lisp"
- (keymap
- (xah-lisp menu-item
- "Xah Emacs Lisp Tutorial"
- (lambda() (interactive)
- (browse-url
ergoemacs-xah-emacs-lisp-tutorial-url))
- :help "Read Emacs Lisp Tutorial")
-
- (intro menu-item
- "Intro to Elisp"
- (lambda() (interactive)
- (info "eintr"))
- :help "Read introduction to Emacs
Lisp")
- (manual menu-item
- "Manual"
- (lambda() (interactive) (info
"elisp"))
- :help "Read Emacs Lisp reference
Manual")
- (index menu-item
- " Index..."
- elisp-index-search
- :help "Lookup topic in emacs lisp
manual")
- (elisp-separator menu-item "--")
- (locate-library menu-item "Locate Library"
- locate-library
- :help "Locate lisp
library")))
- (last-accessed-info menu-item "Last Accessed Manual
(Info)"
- info
- :help "Open Info, at the last doc
place visited.")
- (info-dir menu-item "All Manuals (`Info')"
- Info-directory
- :help "Open a list of all the info docs.")
- (man-dir menu-item "Unix Man Pages..."
- woman
- :help "Unix Manual entries (with WoMan)")))
- (separator-2 menu-item "--")
-
- (eroemacs-current-keybindings menu-item
- "Current Ergoemacs Keybindings"
- ergoemacs-display-current-svg)
-
- (ergoemacs-mode-web-page menu-item
- "Ergoemacs-mode web-page"
- (lambda() (interactive)
- (browse-url ergoemacs-mode-web-page-url))
- :help "Online help about ergoemacs.")
-
- (separator-3 menu-item "--")
- (send-bug-report menu-item "Send Emacs Bug Report"
- report-emacs-bug
- :help "Report an emacs bug.")
-
- (emacs-web-page menu-item "Emacs Web Page"
- (lambda() (interactive)
- (browse-url "http://www.gnu.org/software/emacs/"))
- :help "Emacs Web Page")
-
- (separator-licence menu-item "--")
- (license menu-item "License"
- describe-copying)
- ,(if (eq system-type 'darwin) "Help" "?")))
+ (emacs menu-item"Emacs"
+ (keymap
+ (manual menu-item
+ "Manual"
+ info-emacs-manual)
+ (command-desc menu-item
+ " Command Description..."
+ Info-goto-emacs-command-node
+ :help "Show emacs manual section about
a command")
+ ;; Useless for ergoemacs...
+ ;; (key-desc menu-item
+ ;; " Key Description..."
+ ;; Info-goto-emacs-key-command-node
+ ;; :help "Show Emacs manual
+ ;; section that describes a key
+ ;; sequence.")
+ (index menu-item
+ " Index..."
+ emacs-index-search
+ :help "Lookup topic in Emacs manual")
+ (glossary menu-item
+ " Glossary"
+ search-emacs-glossary)
+ (separator-emacs menu-item "--")
+ (faq menu-item
+ "FAQ"
+ view-emacs-FAQ
+ :help "Read frequently asked questions about
Emacs (with answers)")
+ (whats-new menu-item
+ "What's new"
+ view-emacs-news
+ :help "New features of emacs")
+ (known-problems menu-item
+ "Known problems"
+ view-emacs-problems
+ :help "Known problems of this Emacs
version.")))
+ (emacs-lisp menu-item "Emacs Lisp"
+ (keymap
+ (xah-lisp menu-item
+ "Xah Emacs Lisp Tutorial"
+ (lambda() (interactive)
+ (browse-url
ergoemacs-xah-emacs-lisp-tutorial-url))
+ :help "Read Emacs Lisp Tutorial")
+
+ (intro menu-item
+ "Intro to Elisp"
+ (lambda() (interactive)
+ (info "eintr"))
+ :help "Read introduction to Emacs Lisp")
+ (manual menu-item
+ "Manual"
+ (lambda() (interactive) (info "elisp"))
+ :help "Read Emacs Lisp reference Manual")
+ (index menu-item
+ " Index..."
+ elisp-index-search
+ :help "Lookup topic in emacs lisp manual")
+ (elisp-separator menu-item "--")
+ (locate-library menu-item "Locate Library"
+ locate-library
+ :help "Locate lisp library")))
+ (last-accessed-info menu-item "Last Accessed Manual (Info)"
+ info
+ :help "Open Info, at the last doc place
visited.")
+ (info-dir menu-item "All Manuals (`Info')"
+ Info-directory
+ :help "Open a list of all the info docs.")
+ (man-dir menu-item "Unix Man Pages..."
+ woman
+ :help "Unix Manual entries (with WoMan)")))
+ (separator-2 menu-item "--")
+
+ (eroemacs-current-keybindings menu-item
+ "Current Ergoemacs Keybindings"
+ ergoemacs-display-current-svg)
+
+ (ergoemacs-mode-web-page menu-item
+ "Ergoemacs-mode web-page"
+ (lambda() (interactive)
+ (browse-url ergoemacs-mode-web-page-url))
+ :help "Online help about ergoemacs.")
+
+ (separator-3 menu-item "--")
+ (send-bug-report menu-item "Send Emacs Bug Report"
+ report-emacs-bug
+ :help "Report an emacs bug.")
+
+ (emacs-web-page menu-item "Emacs Web Page"
+ (lambda() (interactive)
+ (browse-url "http://www.gnu.org/software/emacs/"))
+ :help "Emacs Web Page")
+
+ (separator-licence menu-item "--")
+ (license menu-item "License"
+ describe-copying)
+ ,(if (eq system-type 'darwin) "Help" "?")))
;; Preprocess menu keybindings...
- [elpa] 131/287: Be more careful in error checking for ergoemacs-rm-key, (continued)
- [elpa] 131/287: Be more careful in error checking for ergoemacs-rm-key, Matthew Fidler, 2014/07/02
- [elpa] 126/287: Documentation update., Matthew Fidler, 2014/07/02
- [elpa] 108/287: Removed stray saved variables, Matthew Fidler, 2014/07/02
- [elpa] 136/287: Fix Makefile to have test-dir, Matthew Fidler, 2014/07/02
- [elpa] 102/287: Require the libraries that may be needed..., Matthew Fidler, 2014/07/02
- [elpa] 128/287: Fix byte compile issues and remove gaia., Matthew Fidler, 2014/07/02
- [elpa] 139/287: Make TEST_DIR first, Matthew Fidler, 2014/07/02
- [elpa] 204/287: Allow ergoemacs-key to work outside of themes again, Matthew Fidler, 2014/07/02
- [elpa] 141/287: Add back ergoemacs-fixed-key and ergoemacs-key compatability., Matthew Fidler, 2014/07/02
- [elpa] 200/287: Declare undo-tree, Matthew Fidler, 2014/07/02
- [elpa] 111/287: No compiler warnings for ergoemacs-menus.el,
Matthew Fidler <=
- [elpa] 112/287: Fix last compiler issue for ergoemacs-menus.el, Matthew Fidler, 2014/07/02
- [elpa] 91/287: All tests pass; ido-vertical doesn't have right keys, Matthew Fidler, 2014/07/02
- [elpa] 118/287: Move macros from ergoemacs-theme-engine, Matthew Fidler, 2014/07/02
- [elpa] 124/287: Refactor ergoemacs-open-in-external-app, Matthew Fidler, 2014/07/02
- [elpa] 138/287: Make the test directory., Matthew Fidler, 2014/07/02
- [elpa] 109/287: Add ergoemacs-macros for all macros., Matthew Fidler, 2014/07/02
- [elpa] 121/287: Remove cl dependence for ergoemacs-theme-engine.el, Matthew Fidler, 2014/07/02
- [elpa] 107/287: Remove save-variable-state, Matthew Fidler, 2014/07/02
- [elpa] 197/287: Merge branch 'master' of github.com:ergoemacs/ergoemacs-mode, Matthew Fidler, 2014/07/02
- [elpa] 106/287: Fix many byte-compile warnings in ergoemacs-extras.el, Matthew Fidler, 2014/07/02