From: Peng Li <seudut@gmail.com>
Date: Tue, 13 Sep 2016 14:13:02 +0000 (+0800)
Subject: emacs - keymapings, re-map M-[ as C-M-a, M-] as C-M-e
X-Git-Url: http://47.100.26.94:8080/?a=commitdiff_plain;h=dfc61390fb1055e4f5d0df2c762de4cd8885248d;p=dotfiles.git

emacs - keymapings, re-map M-[ as C-M-a, M-] as C-M-e
---

diff --git a/emacs.d/config.org b/emacs.d/config.org
index 8bb6d51..064a1b3 100644
--- a/emacs.d/config.org
+++ b/emacs.d/config.org
@@ -1472,7 +1472,8 @@ brew install the-silver-searcher
 #+END_SRC
 
 ** url-download
-Refer [[http://stackoverflow.com/questions/4448055/download-a-file-with-emacs-lisp][download-a-file-with-emacs-lisp]]
+To download file in =elisp=, best is =url-copy-file=, here refer [[http://stackoverflow.com/questions/4448055/download-a-file-with-emacs-lisp][download-a-file-with-emacs-lisp]] using =url-retrieve-synchronously= wrapping
+as a http download client tool
 #+BEGIN_SRC emacs-lisp :tangle yes :results silent
   (defun sd/download-file (&optional url download-dir download-name)
     (interactive)
@@ -2879,6 +2880,11 @@ Search, replace and hightlight will in later paragraph
 #+BEGIN_SRC emacs-lisp :tangle yes :results silent
   (global-set-key (kbd "M-i") #'counsel-imenu)
   ;; (global-set-key (kbd "M-i") #'imenu)
+
+  ;; define M-[ as C-M-a
+  ;; http://ergoemacs.org/emacs/emacs_key-translation-map.html
+  (define-key key-translation-map (kbd "M-[") (kbd "C-M-a"))
+  (define-key key-translation-map (kbd "M-]") (kbd "C-M-e"))
 #+END_SRC
 
 *** Go-to line