X-Git-Url: http://47.100.26.94:8080/?a=blobdiff_plain;f=emacs.d%2Fconfig.org;h=8ee6f534af3deaba4fcdcab3641ba65f472273aa;hb=f9946de12bd517a6fb0cc79cb45e30002fca4368;hp=2626e492361f3ed7aefff0cc32b13408b8f11675;hpb=ace4716f4d59ff52a56a8188f047f5f3be97ff21;p=dotfiles.git

diff --git a/emacs.d/config.org b/emacs.d/config.org
index 2626e49..8ee6f53 100644
--- a/emacs.d/config.org
+++ b/emacs.d/config.org
@@ -109,11 +109,6 @@ Make a temp directory for all cache/history files
 #+END_SRC
 
 * Package Management Tools
-** paradox
-#+BEGIN_SRC emacs-lisp :tangle yes :results silent
-  (use-package paradox
-    :ensure t)
-#+END_SRC
 
 ** Use-package
 Using [[https://github.com/jwiegley/use-package][use-package]] to manage emacs packages
@@ -135,6 +130,12 @@ Check out [[http://tapoueh.org/emacs/el-get.html][el-get]].
     (add-to-list 'load-path "~/.emacs.d/el-get"))
 #+END_SRC
 
+** paradox
+#+BEGIN_SRC emacs-lisp :tangle yes :results silent
+  (use-package paradox
+    :ensure t)
+#+END_SRC
+
 * Color and Fonts Settings
 
 ** highlight current line
@@ -1259,16 +1260,6 @@ Type =o= to go to the link
 
 #+END_SRC
 
-** Emux
-
-[[https://github.com/re5et/emux][emux]] is 
-
-#+BEGIN_SRC emacs-lisp :tangle yes :results silent
-
-  (el-get-bundle re5et/emux)
-
-#+END_SRC
-
 ** Smart Parens
 
 #+BEGIN_SRC emacs-lisp :tangle yes :results silent
@@ -1381,8 +1372,6 @@ When see function by =C-h f=, and visit the source code, I would like the buffer
 ** TODO Man mode
 Color for Man-mode
 
-** TODO swiper to occur
-
 ** TODO UTF8
 #+BEGIN_SRC emacs-lisp :tangle yes :results silent
   ;; (set-language-environment "UTF-8")
@@ -1411,7 +1400,7 @@ Color for Man-mode
     (define-key org-tree-slide-mode-map [escape] 'org-tree-slide-move-previous-tree))
 #+END_SRC
 
-* dired
+* Dired
 ** Dired config
 =C-o= is defined as a global key for window operation, here unset it in dired mode
 #+BEGIN_SRC emacs-lisp :tangle yes :results silent
@@ -1443,9 +1432,18 @@ Color for Man-mode
 #+BEGIN_SRC emacs-lisp :tangle yes :results silent
   (use-package dired-hacks-utils
     :ensure t)
+
+
+  (defconst my-dired-media-files-extensions '("mp3" "mp4" "MP3" "MP4" "avi" "mpg" "flv" "ogg" "wmv" "mkv" "mov" "wma")
+  "Media file extensions that should launch in VLC.")
+
+    (add-to-list 'dired-guess-shell-alist-user
+                 (list (concat "\\."
+                               (regexp-opt my-dired-media-files-extensions)
+                               "\\'") "mplayer"))
 #+END_SRC
 
-* ibuffer
+* Ibuffer
 #+BEGIN_SRC emacs-lisp :tangle yes :results silent
   (global-set-key (kbd "s-b") 'ibuffer)
 
@@ -2523,17 +2521,18 @@ stolen from [[https://github.com/mariolong/emacs.d/blob/f6a061594ef1b5d1f4750e9d
     (back-to-indentation)
     (set-mark (line-end-position)))
 
-  (defhydra sd/expand-selected (:color pink :columns nil
-                                       :post (deactivate-mark))
+  (defhydra sd/expand-selected (:color red :columns nil
+                                       :post (deactivate-mark)
+                                       )
     "Selected"
     ;; select
     ;; ("e"  er/expand-region "+")
-    ("SPC"  er/expand-region "+")
+    ("SPC" er/expand-region "+")
     ;; ("c"  er/contract-region "-")
-    ("S-SPC"  er/contract-region "-")
-    ("r"  (lambda ()
-            (interactive)
-            (er/contract-region 0))
+    ("S-SPC" er/contract-region "-")
+    ("r" (lambda ()
+           (interactive)
+           (er/contract-region 0))
      "reset")
 
     ("i'" er/mark-inside-quotes "in")
@@ -2546,21 +2545,15 @@ stolen from [[https://github.com/mariolong/emacs.d/blob/f6a061594ef1b5d1f4750e9d
     ("o{" er/mark-inside-pairs nil)
     ("o(" er/mark-inside-pairs nil)
 
-    ("p"  er/mark-paragraph "paragraph")
+    ("p" er/mark-paragraph "paragraph")
 
-    ("l"  sd/mark-line "line")
-    ("u"  er/mark-url "url")
-    ("f"  er/mark-defun "fun")
-    ("n"  er/mark-next-accessor "next")
+    ("l" sd/mark-line "line")
+    ("u" er/mark-url "url")
+    ("f" er/mark-defun "fun")
+    ("n" er/mark-next-accessor "next")
 
     ("x" exchange-point-and-mark "exchange")
-
-    ;; Move
-    ;; ("h" backward-char nil)
-    ;; ("j" next-line nil)
-    ;; ("k" previous-line nil)
-    ;; ("l" foreward-char nil)
-
+  
     ;; Search
     ;; higlight
 
@@ -2569,12 +2562,13 @@ stolen from [[https://github.com/mariolong/emacs.d/blob/f6a061594ef1b5d1f4750e9d
 
     ("y" kill-ring-save "yank" :exit t)
     ("M-SPC" nil "quit" :exit t)
-    ("C-SPC" nil "quit" :exit t)
-    ("q" nil "quit" :exit t))
+    ;; ("C-SPC" "quit" :exit t)
+    ("q" deactivate-mark "quit" :exit t))
 
-  (global-set-key (kbd "C-SPC") (lambda ()
+  (global-set-key (kbd "M-SPC") (lambda ()
                                   (interactive)
                                   (set-mark-command nil)
+                                  ;; (er/expand-region 1)
                                   (er/mark-word)
                                   (sd/expand-selected/body)))
 #+END_SRC