Permalink
Browse files

Adding switch-to-next-frame and switch-to-previous-frame. Moving zane…

…-keys.el to zane-keybindings.el.
  • Loading branch information...
1 parent bc98449 commit 62a6b03c0c4be309d33ad1e81f9c8cd979ffeb83 @zane committed Aug 29, 2011
Showing with 16 additions and 0 deletions.
  1. +1 −0 init.el
  2. +10 −0 zane-funcs.el
  3. +5 −0 zane-keys.el → zane-keybindings.el
View
@@ -2,6 +2,7 @@
;; TODO: Look into this https://raw.github.com/gist/304391/0f5dd9acb959bcb3a244c2ad903bec75096cab17/.emacs.el
;; TODO: http://tapoueh.org/blog/2011/07/29-emacs-ansi-colors.html
;; TODO: http://xahlee.blogspot.com/2009/08/how-to-use-and-setup-emacss-whitespace.html
+;; TODO: Finish filling out http://www.dr-qubit.org/undo-tree/undo-tree.el
(require 'cl)
(setq-default truncate-lines t)
View
@@ -19,4 +19,14 @@
(interactive "nTransparency Value 0 - 100 opaque:")
(set-frame-parameter (selected-frame) 'alpha value))
+(defun switch-to-next-frame ()
+ "Select the next frame on current display, and raise it."
+ (interactive)
+ (other-frame 1))
+
+(defun switch-to-previous-frame ()
+ "Select the previous frame on current display, and raise it."
+ (interactive)
+ (other-frame -1))
+
(provide 'zane-funcs)
@@ -73,6 +73,11 @@
;; Execute Extended Command
(global-set-key (kbd "M-a") 'execute-extended-command)
+;; Other
+
+(global-set-key (kbd "M-~") 'switch-to-previous-frame)
+(global-set-key (kbd "M-`") 'switch-to-next-frame)
+
;; TODO: Redo
(setq mac-command-modifier 'meta)

0 comments on commit 62a6b03

Please sign in to comment.