* Package Management Tools
** Use-package
-
Using [[https://github.com/jwiegley/use-package][use-package]] to manage emacs packages
-
#+BEGIN_SRC emacs-lisp :tangle yes :results silent
-
(unless (package-installed-p 'use-package)
(package-refresh-contents)
(package-install 'use-package))
(require 'use-package)
-
#+END_SRC
** El-get
-
[[https://github.com/dimitri/el-get][El-get]] is package management tool, whicl allows to install external elisp package from any git repository not in mepla.
Check out [[http://tapoueh.org/emacs/el-get.html][el-get]].
-
#+BEGIN_SRC emacs-lisp :tangle yes :results silent
-
(use-package el-get
:ensure t
:init
(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
: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
:init
;; don't ask me to confirm the unsaved change
(setq magit-save-repository-buffers nil)
+ ;; default is 50
+ (setq git-commit-summary-max-length 80)
:commands magit-status magit-blame
:config
(dolist (map (list magit-status-mode-map
#+END_SRC
* Eshell
-*** Eshell alias
+** Eshell alias
#+BEGIN_SRC emacs-lisp :tangle yes :results silent
(defalias 'e 'find-file)
(defalias 'ff 'find-file)
(defalias 'ee 'find-files)
#+END_SRC
-*** eshell temp directory
+** eshell temp directory
set default eshell history folder
#+BEGIN_SRC emacs-lisp :tangle yes :results silent
(setq eshell-directory-name (concat sd-temp-directory "eshell"))
#+END_SRC
-*** Eshell erase buffer
+** Eshell erase buffer
#+BEGIN_SRC emacs-lisp :tangle yes :results silent
(defun sd/eshell-clear-buffer ()
"Clear eshell buffer"
(local-set-key (kbd "C-l") 'sd/eshell-clear-buffer)))
#+END_SRC
-*** Toggle Eshell
+** Toggle Eshell
Toggle an eshell in split window below, refer [[http://www.howardism.org/Technical/Emacs/eshell-fun.html][eshell-here]]
#+BEGIN_SRC emacs-lisp :tangle yes :results silent
(defun sd/window-has-eshell ()
(global-set-key (kbd "s-e") 'sd/toggle-eshell-here)
#+END_SRC
-*** TODO smart display
+** TODO smart display
* Misc Settings
** [[https://github.com/abo-abo/hydra][Hydra]]
#+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
'((nil . ((buffer-read-only . t)
(show-trailing-whitespace . nil)
(tab-width . 8)
- (eval . (whitespace-mode -1))))))
+ (eval . (whitespace-mode -1))
+ (eval . (when buffer-file-name
+ (setq-local view-no-disable-on-exit t)
+ (view-mode-enter)))))))
;; (dir-locals-set-directory-class (expand-file-name "/usr/local/share/emacs") 'emacs)
(dir-locals-set-directory-class "/usr/local/Cellar/emacs" 'emacs)
#+BEGIN_SRC emacs-lisp :tangle yes :results silent
(el-get-bundle info+
:url "https://raw.githubusercontent.com/emacsmirror/emacswiki.org/master/info+.el"
+ ;; (require 'info+)
+ )
+
+ (with-eval-after-load 'info
(require 'info+))
#+END_SRC
** 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, c-create, +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
-Dired+
+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+
:ensure t
(define-key dired-mode-map (kbd "g") 'dired-goto-file))
#+END_SRC
-* ibuffer
+** dired-hacks
+#+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
#+BEGIN_SRC emacs-lisp :tangle yes :results silent
(global-set-key (kbd "s-b") 'ibuffer)
(setq projectile-enable-caching t)
(setq projectile-cache-file (concat sd-temp-directory "projectile.cache"))
:config
+ (add-to-list 'projectile-globally-ignored-files "GTAGS")
(projectile-global-mode t))
(use-package persp-projectile
;; ibuffer, dired, eshell, bookmarks
;; ("d" ace-delete-window "ace-one" :exit t)
- ("C-o" ido-switch-buffer "buf" :exit t)
- ("d" dired-jump "dired" :exit t)
- ("b" ibuffer "ibuffer" :exit t)
- ("e" eshell "eshell" :exit t)
- ("m" bookmark-jump-other-window "open bmk" :exit t)
- ("M" bookmark-set "set bmk" :exit t)
+ ("C-o" ido-switch-buffer nil :exit t)
+ ("d" dired-jump nil :exit t)
+ ("b" ibuffer nil n:exit t)
+ ("e" eshell nil :exit t)
+ ("m" bookmark-jump-other-window nil :exit t)
+ ("M" bookmark-set nil :exit t)
+ ("g" magit-status nil :exit t)
+ ("p" paradox-list-packages nil :exit t)
;; quit
("q" nil "cancel")
;; ("C-k" nil :exit t)
("C-l" nil nil :exit t)
("C-;" nil nil :exit t)
- ("p" nil nil :exit t)
("n" nil nil :exit t)
("[" nil nil :exit t)
("]" nil nil :exit t)
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
(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")
("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
("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
projects / dotfiles.git / blobdiff