:group 'powerline)
;; Don't show buffer modified for scratch and eshell mode
- (defun sd/buffer-show-modified ()
+ (defun sd/buffer-is-eshel-or-scratch ()
"Dot not show modified indicator for buffers"
(interactive)
(unless (or (string-match "*scratch*" (buffer-name))
(mode-line-buffer-id (if active 'sd/mode-line-buffer-id 'mode-line-buffer-id-inactive))
(mode-line (if active 'mode-line 'mode-line-inactive))
(my-face1 (if active 'sd/powerline-active1 'powerline-inactive1))
- (my-face-buffer-modified (if (and (sd/buffer-show-modified) (buffer-modified-p))
+ (my-face-buffer-modified (if (and (sd/buffer-is-eshel-or-scratch) (buffer-modified-p) (not buffer-read-only))
'sd/buffer-modified-active1
(if buffer-read-only 'sd/buffer-view-active1
my-face1)))
#+END_SRC
** Export PDF
-
-Install MacTex-basic and some tex packages
-
-#+BEGIN_SRC bash
-
+Install MacTex-basic [[http://www.tug.org/mactex/morepackages.html][MacTex-basic]] and some tex packages
+#+BEGIN_SRC sh
sudo tlmgr update --self
sudo tlmgr install titlesec framed threeparttable wrapfig multirow enumitem bbding titling tabu mdframed tcolorbox textpos import varwidth needspace tocloft ntheorem environ trimspaces collection-fontsrecommended capt-of
-
#+END_SRC
#+BEGIN_SRC emacs-lisp :tangle yes :results silent
#+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
+** pdf-tools
+#+BEGIN_SRC sh
+ brew install poppler
+#+END_SRC
+
+#+BEGIN_SRC emacs-lisp :tangle yes :results silent
+ (use-package pdf-tools
+ :ensure t
+ :init
+ ;; run to complete the installation
+ (pdf-tools-install)
+ :config
+ (add-to-list 'auto-mode-alist '("\.pdf$" . pdf-view-mode))
+ (add-hook 'pdf-outline-buffer-mode-hook #'sd/pdf-outline-map))
+
+ (defun sd/pdf-outline-map ()
+ "My keybindings in pdf-outline-map"
+ (interactive)
+ (define-key pdf-outline-buffer-mode-map (kbd "C-o") nil)
+ (define-key pdf-outline-buffer-mode-map (kbd "i") 'outline-toggle-children)
+ (define-key pdf-outline-buffer-mode-map (kbd "j") 'next-line)
+ (define-key pdf-outline-buffer-mode-map (kbd "k") 'previous-line))
+#+END_SRC
+
+* 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
+ (defun sd/dired-new-file ()
+ "Create a new file in dired mode"
+ (interactive)
+ (call-interactively 'find-file))
+
+ (defun sd/dired-key-map ()
+ "My keybindings for dired"
+ (interactive)
+ (define-key dired-mode-map (kbd "SPC") 'scroll-up-command)
+ (define-key dired-mode-map (kbd "S-SPC") 'scroll-down-command)
+ (define-key dired-mode-map (kbd "C-o") nil)
+ (define-key dired-mode-map (kbd "M-s") nil)
+ (define-key dired-mode-map (kbd "l") 'dired-isearch-filenames)
+ (define-key dired-mode-map (kbd "H") 'dired-omit-mode)
+ (define-key dired-mode-map (kbd "DEL") (lambda () (interactive) (find-alternate-file "..")))
+ (define-key dired-mode-map (kbd "c") 'sd/dired-new-file))
+
(use-package dired
:config
(require 'dired-x)
(setq dired-omit-mode t)
(setq dired-omit-files (concat dired-omit-files "\\|^\\..+$"))
(add-hook 'dired-mode-hook (lambda ()
- (define-key dired-mode-map (kbd "C-o") nil)
- (define-key dired-mode-map (kbd "H") 'dired-omit-mode)
- (define-key dired-mode-map (kbd "DEL") (lambda () (interactive) (find-alternate-file "..")))
+ (sd/dired-key-map)
(dired-omit-mode))))
+
+ (setq dired-guess-shell-alist-user
+ '(("\\.pdf\\'" "evince" "okular")
+ ("\\.\\(?:djvu\\|eps\\)\\'" "evince")
+ ("\\.\\(?:jpg\\|jpeg\\|png\\|gif\\|xpm\\)\\'" "eog")
+ ("\\.\\(?:xcf\\)\\'" "gimp")
+ ("\\.csv\\'" "libreoffice")
+ ("\\.tex\\'" "pdflatex" "latex")
+ ("\\.\\(?:mp4\\|mkv\\|avi\\|flv\\|ogv\\)\\(?:\\.part\\)?\\'"
+ "vlc")
+ ("\\.\\(?:mp3\\|flac\\)\\'" "rhythmbox")
+ ("\\.html?\\'" "firefox")
+ ("\\.cue?\\'" "audacious")))
+
+#+END_SRC
+
+I would like change the default dired summary
+#+BEGIN_SRC emacs-lisp :tangle yes :results silent
+ (defadvice dired-summary (around sd/dired-summary activate)
+ "Revisied dired summary."
+ (interactive)
+ (dired-why)
+ (message
+ "Δ: d-delete, u-ndelete, x-punge, f-ind, o-ther window, R-ename, C-opy, +new dir, ?-summary"))
+#+END_SRC
+
+When create a new directory, I want to disalbe =ido= completion. see [[http://stackoverflow.com/questions/7479565/emacs-ido-mode-and-creating-new-files-in-directories-it-keeps-changing-the-dire][here]]. Thhis code snippets copied
+from [[https://emacs.stackexchange.com/questions/13713/how-to-disable-ido-in-dired-create-directory/13795#13795?newreg%3Ddb17c20f7af3490fb11cf15f1d888e9e][How to disable IDO in ‘dired-create-directory’]]
+#+BEGIN_SRC emacs-lisp :tangle yes :results silent
+ (defun mk-anti-ido-advice (func &rest args)
+ "Temporarily disable IDO and call function FUNC with arguments ARGS."
+ (interactive)
+ (let ((read-file-name-function #'read-file-name-default))
+ (if (called-interactively-p 'any)
+ (call-interactively func)
+ (apply func args))))
+
+ (defun mk-disable-ido (command)
+ "Disable IDO when command COMMAND is called."
+ (advice-add command :around #'mk-anti-ido-advice))
+#+END_SRC
+
+Disalble =ido= when new a directory or file in =dired= mode
+#+BEGIN_SRC emacs-lisp :tangle yes :results silent
+ ;; call the function which you want to disable ido
+ (mk-disable-ido 'dired-create-directory)
+ (mk-disable-ido 'sd/dired-new-file)
#+END_SRC
** Dired+
#+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)
since there is no map such as =helm-mark-ring=map=, so I cannot binding a key to the quit action.
#+BEGIN_SRC emacs-lisp :tangle yes :results silent
(setq mark-ring-max 50)
- (global-set-key (kbd "M-`") #'helm-mark-ring)
+
+ (use-package helm
+ :ensure t
+ :init
+ (global-set-key (kbd "M-`") #'helm-mark-ring))
(define-key minibuffer-local-map (kbd "M-`") 'keyboard-escape-quit)
#+END_SRC
*** =Imenu= goto tag
#+BEGIN_SRC emacs-lisp :tangle yes :results silent
- ;; (global-set-key (kbd "M-i") #'counsel-imenu)
- (global-set-key (kbd "M-i") #'imenu)
-
- ;; (global-set-key (kbd "M-l") 'goto-line)
+ (global-set-key (kbd "M-i") #'counsel-imenu)
+ ;; (global-set-key (kbd "M-i") #'imenu)
#+END_SRC
*** Go-to line
=helm-show-kill-ring=
#+BEGIN_SRC emacs-lisp :tangle yes :results silent
(setq kill-ring-max 100) ; default is 60p
- (global-set-key (kbd "M-y") #'helm-show-kill-ring)
+
+ (use-package helm
+ :ensure t
+ :init
+ (global-set-key (kbd "M-y") #'helm-show-kill-ring))
#+END_SRC
*** undo-tree
(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