Mercurial Mercurial > dot-emacs / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | zip | gz | bz2 | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Add key bindings for natural movement by arrow keys and opening url in
authorOleksandr Gavenko <gavenkoa@gmail.com>
Sat, 22 Sep 2012 17:48:31 +0300
changeset 940 90485e256108
parent 939 efac9eeab57c
child 941 ea395da0c817
Add key bindings for natural movement by arrow keys and opening url in external browser by RET key.
.emacs-my file | annotate | diff | comparison | revisions 
--- a/.emacs-my	Sat Sep 22 13:47:03 2012 +0300
+++ b/.emacs-my	Sat Sep 22 17:48:31 2012 +0300
@@ -1435,6 +1435,15 @@
 (setq mm-discouraged-alternatives '("text/html" "text/richtext"))
 (setq mm-text-html-renderer 'w3m)
 
+(eval-after-load 'w3m
+  '(progn
+     (define-key w3m-minor-mode-map (kbd "RET") #'w3m-view-url-with-external-browser)
+     (define-key w3m-minor-mode-map (kbd "S-RET") #'w3m-safe-view-this-url)
+     (define-key w3m-minor-mode-map (kbd "<left>") #'backward-char-nomark)
+     (define-key w3m-minor-mode-map (kbd "<right>") #'forward-char-nomark)
+     (define-key w3m-minor-mode-map (kbd "<up>") #'previous-line-nomark)
+     (define-key w3m-minor-mode-map (kbd "<down>") #'next-line-nomark)))
+
 (add-hook 'gnus-group-mode-hook 'gnus-topic-mode)
 
 (eval-after-load 'gnus '(progn (gnus-demon-add-handler 'gnus-demon-scan-news 10 t)))
dot-emacs