#+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
(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
#+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
** 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")
(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
#+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)
(set-mark (line-end-position)))
(defhydra sd/expand-selected (:color red :columns nil
- ;; :post (deactivate-mark)
+ :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")
("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
("d" kill-region "delete" :exit t)
("y" kill-ring-save "yank" :exit t)
- ;; ("M-SPC" nil "quit" :exit t)
- ("C-SPC" nil "quit" :exit t)
- ("q" nil "quit" :exit t))
+ ("M-SPC" 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