aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorArtur Malabarba <bruce.connor.am@gmail.com>2014-12-23 23:40:01 -0200
committerArtur Malabarba <bruce.connor.am@gmail.com>2014-12-23 23:40:01 -0200
commit542ddf73506c2c297106e4b3f4ec0a1d80a35ad8 (patch)
treeea131b5184ab77c330cef1ae6b657567b408ab13
parent635c863b0c0d19db45d44ce0f25f41f0be650c92 (diff)
Define new keymap for inter-modes motion
-rw-r--r--sx-goto.el56
1 files changed, 56 insertions, 0 deletions
diff --git a/sx-goto.el b/sx-goto.el
new file mode 100644
index 0000000..f1a55bc
--- /dev/null
+++ b/sx-goto.el
@@ -0,0 +1,56 @@
+;;; sx-goto.el --- Keymap for navigating between pages. -*- lexical-binding: t; -*-
+
+;; Copyright (C) 2014 Artur Malabarba
+
+;; Author: Artur Malabarba <bruce.connor.am@gmail.com>
+
+;; This program is free software; you can redistribute it and/or modify
+;; it under the terms of the GNU General Public License as published by
+;; the Free Software Foundation, either version 3 of the License, or
+;; (at your option) any later version.
+
+;; This program is distributed in the hope that it will be useful,
+;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+;; GNU General Public License for more details.
+
+;; You should have received a copy of the GNU General Public License
+;; along with this program. If not, see <http://www.gnu.org/licenses/>.
+
+;;; Commentary:
+
+;;; Code:
+
+(require 'sx)
+(require 'sx-filter)
+(require 'sx-method)
+(require 'sx-question-list)
+
+
+;;; Keybinds
+;;;###autoload
+(define-prefix-command 'sx-goto-map)
+
+(mapc (lambda (x) (define-key sx-goto-map (car x) (cadr x)))
+ '(
+ ;; These immitate the site's G hotkey.
+ ("m" sx-tab-meta-or-main)
+ ("a" sx-ask)
+ ("h" sx-tab-frontpage)
+ ;; This is `n' on the site.
+ ("u" sx-tab-unanswered)
+ ;; These are extra things we can do, because we're awesome.
+ ("i" sx-inbox)
+ ("f" sx-tab-featured)
+ ("U" sx-tab-unanswered-my-tags)
+ ("n" sx-tab-newest)
+ ("w" sx-tab-week)
+ ("v" sx-tab-topvoted)
+ ))
+
+(provide 'sx-goto)
+;;; sx-goto.el ends here
+
+;; Local Variables:
+;; indent-tabs-mode: nil
+;; End: