branch: externals/ergoemacs-mode
commit 377d498270cd5c92ed92c42c952705146f5baa80
Author: Walter Landry <wlan...@caltech.edu>
Commit: Walter Landry <wlan...@caltech.edu>
Set variables properly. Lots of duplication.
---
ergoemacs-themes.el | 128 +++++++++++++++++++++++++++++++++++++++++++++++++++-
1 file changed, 127 insertions(+), 1 deletion(-)
diff --git a/ergoemacs-themes.el b/ergoemacs-themes.el
index 80c8aba..24a6e65 100644
--- a/ergoemacs-themes.el
+++ b/ergoemacs-themes.el
@@ -150,6 +150,131 @@
(recentf-mode (if noninteractive -1 1))
)
+
+(defun ergoemacs-set-standard-vars ()
+ "Enabled/changed variables/modes"
+ (setq org-CUA-compatible t
+ org-support-shift-select t
+ set-mark-command-repeat-pop t
+ org-special-ctrl-a/e t
+ ido-vertical-define-keys 'C-n-C-p-up-down-left-right
+ scroll-error-top-bottom t
+ initial-scratch-message (substitute-command-keys ";; This buffer is
for notes you don't want to save, and for Lisp evaluation.\n;; If you want to
create a file, visit that file with \\[find-file],\n;; then enter the text in
that file's own buffer.")
+ ;; Remove tutorial and guided tour, since the keys don't apply...
+ fancy-startup-text
+ `((:face (variable-pitch font-lock-comment-face)
+ "Welcome to "
+ :link ("GNU Emacs"
+ ,(lambda (_button) (browse-url
"http://www.gnu.org/software/emacs/";))
+ "Browse http://www.gnu.org/software/emacs/";)
+ ", one component of the "
+ :link
+ ,(lambda ()
+ (if (eq system-type 'gnu/linux)
+ `("GNU/Linux"
+ ,(lambda (_button) (browse-url
"http://www.gnu.org/gnu/linux-and-gnu.html";))
+ "Browse http://www.gnu.org/gnu/linux-and-gnu.html";)
+ `("GNU" ,(lambda (_button) (describe-gnu-project))
+ "Display info on the GNU project")))
+ " operating system.\n\n"
+ "\n"
+ :link ("View Emacs Manual" ,(lambda (_button)
(info-emacs-manual)))
+ "\tView the Emacs manual using Info\n"
+ :link ("Absence of Warranty" ,(lambda (_button)
(describe-no-warranty)))
+ "\tGNU Emacs comes with "
+ :face (variable-pitch (:slant oblique))
+ "ABSOLUTELY NO WARRANTY\n"
+ :face variable-pitch
+ :link ("Copying Conditions" ,(lambda (_button)
(describe-copying)))
+ "\tConditions for redistributing and changing Emacs\n"
+ :link ("Ordering Manuals" ,(lambda (_button)
(view-order-manuals)))
+ "\tPurchasing printed copies of manuals\n"
+ "\n"))
+ ;;
+ fancy-about-text
+ `((:face (variable-pitch font-lock-comment-face)
+ "This is "
+ :link ("GNU Emacs"
+ ,(lambda (_button) (browse-url
"http://www.gnu.org/software/emacs/";))
+ "Browse http://www.gnu.org/software/emacs/";)
+ ", one component of the "
+ :link
+ ,(lambda ()
+ (if (eq system-type 'gnu/linux)
+ `("GNU/Linux"
+ ,(lambda (_button)
+ (browse-url
"http://www.gnu.org/gnu/linux-and-gnu.html";))
+ "Browse http://www.gnu.org/gnu/linux-and-gnu.html";)
+ `("GNU" ,(lambda (_button) (describe-gnu-project))
+ "Display info on the GNU project.")))
+ " operating system.\n"
+ :face (variable-pitch font-lock-builtin-face)
+ "\n"
+ ,(lambda () (emacs-version))
+ "\n"
+ :face (variable-pitch (:height 0.8))
+ ,(lambda () emacs-copyright)
+ "\n\n"
+ :face variable-pitch
+ :link ("Authors"
+ ,(lambda (_button)
+ (view-file (expand-file-name "AUTHORS"
data-directory))
+ (goto-char (point-min))))
+ "\tMany people have contributed code included in GNU Emacs\n"
+ :link ("Contributing"
+ ,(lambda (_button)
+ (view-file (expand-file-name "CONTRIBUTE"
data-directory))
+ (goto-char (point-min))))
+ "\tHow to contribute improvements to Emacs\n"
+ "\n"
+ :link ("GNU and Freedom" ,(lambda (_button)
(describe-gnu-project)))
+ "\tWhy we developed GNU Emacs, and the GNU operating system\n"
+ :link ("Absence of Warranty" ,(lambda (_button)
(describe-no-warranty)))
+ "\tGNU Emacs comes with "
+ :face (variable-pitch (:slant oblique))
+ "ABSOLUTELY NO WARRANTY\n"
+ :face variable-pitch
+ :link ("Copying Conditions" ,(lambda (_button)
(describe-copying)))
+ "\tConditions for redistributing and changing Emacs\n"
+ :link ("Getting New Versions" ,(lambda (_button)
(describe-distribution)))
+ "\tHow to obtain the latest version of Emacs\n"
+ :link ("Ordering Manuals" ,(lambda (_button)
(view-order-manuals)))
+ "\tBuying printed manuals from the FSF\n"
+ "\n"
+ )))
+ (add-hook 'dirtrack-directory-change-hook
'ergoemacs-shell-here-directory-change-hook)
+ (add-hook 'kill-buffer-hook 'ergoemacs-save-buffer-to-recently-closed)
+ (add-hook 'shell-mode-hook 'ergoemacs-shell-here-hook)
+ (add-hook 'eshell-post-command-hook
'ergoemacs-shell-here-directory-change-hook)
+ (delete-selection-mode 1)
+ (setq recentf-menu-before "Close"
+ recentf-menu-items-for-commands
+ (list
+ ["Open Last Closed"
+ ergoemacs-open-last-closed
+ :help "Remove duplicates, and obsoletes files from the recent list"
+ :active t]
+ ["Cleanup list"
+ recentf-cleanup
+ :help "Remove duplicates, and obsoletes files from the recent list"
+ :active t]
+ ["Edit list..."
+ recentf-edit-list
+ :help "Manually remove files from the recent list"
+ :active t]
+ ["Save list now"
+ recentf-save-list
+ :help "Save the list of recently opened files now"
+ :active t]
+ ["Options..."
+ (customize-group "recentf")
+ :help "Customize recently opened files menu and options"
+ :active t]))
+ (recentf-mode (if noninteractive -1 1))
+ )
+
+(add-hook 'ergoemacs-mode-startup-hook #'ergoemacs-set-standard-vars)
+
;;; Fixed components
(ergoemacs-component standard-fixed ()
"Standard Fixed Shortcuts"
@@ -811,7 +936,8 @@
(or
(not (and (boundp 'undo-tree-mode)
undo-tree-mode))
(and (and (boundp 'undo-tree-mode)
undo-tree-mode)
- (null (undo-tree-node-next
(undo-tree-current buffer-undo-tree)))))))
+ (null (undo-tree-node-next
(undo-tree-current buffer-undo-tree))))))
+ :help "Redo last operation")
(redo-sep menu-item "--")
(cut menu-item "Cut" ergoemacs-cut-line-or-region
:help "Delete text in Line/region and copy it
to the clipboard"
