X-Git-Url: http://47.100.26.94:8080/?a=blobdiff_plain;f=emacs.d%2Fconfig.org;h=6b3476ef727a963d71874bc357f1ea33619ab045;hb=9536eb7be7c32ee135578647a0276514a6aa54fc;hp=aea8025fa705ab94ec86970d3aa6d681e0e38322;hpb=0f6eeff977324f2f9056e77ef09878e9dd100a90;p=dotfiles.git diff --git a/emacs.d/config.org b/emacs.d/config.org index aea8025..6b3476e 100644 --- a/emacs.d/config.org +++ b/emacs.d/config.org @@ -32,6 +32,8 @@ Set system PATH and emacs exec path #+BEGIN_SRC emacs-lisp :tangle yes :results silent (defconst my-name "Peng Li") (defconst my-email "seudut@gmail.com") + (defconst MY-EMACS-DIR (concat (getenv "HOME") "/.emacs.d")) + (defconst MY-EMACS-TMP (concat MY-EMACS-DIR "/temp")) #+END_SRC ** General Setting @@ -112,6 +114,7 @@ Make a temp directory for all cache/history files ;; set temp file path for recentf and auto-save (setq recentf-save-file (concat sd-temp-directory "recentf")) + (setq recentf-max-saved-items 1000) (setq auto-save-list-file-prefix (concat sd-temp-directory "auto-save-list/.saves-")) #+END_SRC @@ -704,8 +707,8 @@ let helm windows split inside current window ivy-wrap t) (set-face-attribute 'ivy-current-match nil :background "Orange" :foreground "black") (global-set-key (kbd "M-x") 'counsel-M-x) - (global-set-key (kbd "C-h f") 'counsel-describe-function) - (global-set-key (kbd "C-h v") 'counsel-describe-variable) + ;; (global-set-key (kbd "C-h f") 'counsel-describe-function) + ;; (global-set-key (kbd "C-h v") 'counsel-describe-variable) (global-set-key (kbd "C-x C-f") 'counsel-find-file) (define-key read-expression-map (kbd "C-r") 'counsel-expression-history) (global-set-key (kbd "C-c C-r") 'ivy-resume)) @@ -1421,9 +1424,10 @@ Toggle an eshell in split window below, refer [[http://www.howardism.org/Technic *** hydra install #+BEGIN_SRC emacs-lisp :tangle yes :results silent (use-package hydra - :ensure t) - ;; disable new line in minibuffer when hint hydra - (setq hydra-lv nil) + :ensure t + ;; disable new line in minibuffer when hint hydra + :init + (setq hydra-lv nil)) #+END_SRC *** Windmove Splitter @@ -1486,7 +1490,38 @@ Refer [[https://github.com/abo-abo/hydra/blob/master/hydra-examples.el][hydra-ex ("q" nil "quit") ("f" nil "quit")) - (global-set-key (kbd "C-'") 'sd/hydra-misc/body) + ;; (global-set-key (kbd "C-'") 'sd/hydra-misc/body) + + (defun sd/exchange-win-layout () + "Change the windos layout." + (interactive) + (when (equal (length (window-list)) 2) + (let ((current-layout (if (or (window-in-direction 'right) (window-in-direction 'left)) + 'v + 'h)) + (other-buf (window-buffer (or (window-in-direction 'right) + (window-in-direction 'left) + (window-in-direction 'below) + (window-in-direction 'above))))) + (delete-other-windows) + (if (eq current-layout 'v) + (split-window-below) + (split-window-right)) + (other-window 1) + (switch-to-buffer other-buf)))) + + (defhydra sd/hydra-window-layout (:color red :colums nil) + "Window Layout" + ("m" sd/toggle-max-windows "Max-win" :exit t) + ("s" ace-swap-window "Swap" :exit t) + ("d" ace-delete-window "Delete" :exit t) + ("x" sd/exchange-win-layout "eXchange" :exit t) + ("u" winner-undo "window-Undo" :exit t) + ("r" winner-redo "window-Redo" :exit t)) + + ;; (with-eval-after-load "evil" + ;; (define-key evil-normal-state-map (kbd ";t") 'sd/hydra-window-layout/body)) + #+END_SRC *** hydra launcher @@ -1751,8 +1786,8 @@ Wiki [[http://stackoverflow.com/questions/3480173/show-keys-in-emacs-keymap-valu ** goto-last-change #+BEGIN_SRC emacs-lisp :tangle yes :results silent - (use-package goto-last-change - :ensure t) + ;; (use-package goto-last-change + ;; :ensure t) #+END_SRC ** Ag @@ -1995,7 +2030,7 @@ here on Mac, just use "open" commands to pen =.pdf=, =.html= and image files ("\\.csv\\'" "libreoffice") ("\\.tex\\'" "pdflatex" "latex") ("\\.\\(?:mp4\\|mkv\\|avi\\|rmvb\\|flv\\|ogv\\)\\(?:\\.part\\)?\\'" "mplayer") - ("\\.\\(?:mp3\\|flac\\)\\'" "rhythmbox") + ("\\.\\(?:mp3\\|flac\\|wav\\)\\'" "mplayer") ("\\.html?\\'" "open") ("\\.dmg\\'" "open") ("\\.cue?\\'" "audacious"))) @@ -2003,30 +2038,27 @@ here on Mac, just use "open" commands to pen =.pdf=, =.html= and image files (defun sd/dired-start-process (cmd &optional file-list) (interactive - (let ((files (dired-get-marked-files - t current-prefix-arg))) + (let ((files (dired-get-marked-files t current-prefix-arg))) (list - (unless (eq system-type 'windows-nt) - (dired-read-shell-command "& on %s: " - current-prefix-arg files)) + (dired-read-shell-command "& on %s: " current-prefix-arg files) files))) - (if (eq system-type 'windows-nt) - (dolist (file file-list) - (w32-shell-execute "open" (expand-file-name file))) - (let (list-switch) - (start-process - cmd nil shell-file-name - shell-command-switch - (format - "nohup 1>/dev/null 2>/dev/null %s \"%s\"" - cmd - ;; (if (and (> (length file-list) 1) - ;; (setq list-switch - ;; (cadr (assoc cmd ora-dired-filelist-cmd)))) - ;; (format "%s %s" cmd list-switch) - ;; cmd) - (mapconcat #'expand-file-name file-list "\" \"")))))) + ;; (let (list-switch)) + (start-process + cmd nil shell-file-name + shell-command-switch + (format + "nohup 1>/dev/null 2>/dev/null %s \"%s\"" + cmd + ;; (if (and (> (length file-list) 1) + ;; (setq list-switch + ;; (cadr (assoc cmd ora-dired-filelist-cmd)))) + ;; (format "%s %s" cmd list-switch) + ;; cmd) + (mapconcat #'expand-file-name file-list "\" \"")))) + + + #+END_SRC ** dired-hacks @@ -2090,6 +2122,8 @@ here on Mac, just use "open" commands to pen =.pdf=, =.html= and image files (use-package company-statistics :ensure t + :init + (setq company-statistics-file (concat MY-EMACS-TMP "/company-statistics-cache.el")) :config (company-statistics-mode)) @@ -2468,6 +2502,9 @@ irony-company (require 'cc-mode) (require 'semantic) + (setq semanticdb-default-save-directory (concat MY-EMACS-TMP "/semantic/")) + (unless (file-exists-p semanticdb-default-save-directory) + (make-directory semanticdb-default-save-directory)) (global-semanticdb-minor-mode 1) (global-semantic-idle-scheduler-mode 1)