X-Git-Url: http://47.100.26.94:8080/?a=blobdiff_plain;f=emacs.d%2Fconfig.org;h=73dfe4bf0cb52f06ad241aaf0ef357aaee798419;hb=20549996811d8734ad35f5c0d473a070c3579db1;hp=ea907a242cec90f154ef3306b358ea82afc1b5aa;hpb=5ec4fc25bc5d9ad51e619b8c36aa11947b37fbb2;p=dotfiles.git diff --git a/emacs.d/config.org b/emacs.d/config.org index ea907a2..73dfe4b 100644 --- a/emacs.d/config.org +++ b/emacs.d/config.org @@ -1458,6 +1458,7 @@ I like [[https://github.com/coldnew/linum-relative][linum-relative]], just like ** Save File Position #+BEGIN_SRC emacs-lisp :tangle yes :results silent (require 'saveplace) + (setq save-place-file "~/.emacs.d/temp/saveplace") (setq-default save-place t) (setq save-place-forget-unreadable-files t) (setq save-place-skip-check-regexp "\\`/\\(?:cdrom\\|floppy\\|mnt\\|/[0-9]\\|\\(?:[^@/:]*@\\)?[^@/:]*[^@/:.]:\\)") @@ -1726,28 +1727,6 @@ as a http download client tool (car (last (split-string url "/" t)))))))))) #+END_SRC -** Elscreen -Fix one elscreen issue when startup emacs https://github.com/knu/elscreen/issues/6 -#+BEGIN_SRC emacs-lisp :tangle yes :results silent - ;; (use-package elscreen - ;; :ensure t - ;; :init - ;; (setq elscreen-tab-display-control nil) - ;; :config - ;; ;; (elscreen-start) - ;; (set-face-attribute 'elscreen-tab-current-screen-face nil :foreground "black" :background "yellow") - ;; (set-face-attribute 'elscreen-tab-other-screen-face nil :foreground "black" :background "disabledControlTextColor" :underline nil) - ;; ;; (global-unset-key (kbd)); M-TAB switch screen - ;; ;; (global-set-key (kbd "s-`") '(lambda () (interactive) (elscreen-goto 0))) - ;; ;; (dotimes (i 8) - ;; ;; (global-set-key (kbd (concat "s-" (number-to-string (+ i 1)))) - ;; ;; `(lambda () (interactive) (elscreen-goto ,(+ i 1))))) - ;; ;; (global-set-key (kbd "s-t") 'elscreen-create) - ;; ;; (global-set-key (kbd "s-n") 'elscreen-next) - ;; ;; (global-set-key (kbd "s-p") 'elscreen-previous) - ;; ) -#+END_SRC - * Dired ** Dired basic #+BEGIN_SRC emacs-lisp :tangle yes :results silent @@ -1759,6 +1738,28 @@ Fix one elscreen issue when startup emacs https://github.com/knu/elscreen/issues (setq-default dired-details-hidden-string "--- ") (dired-details-install)) #+END_SRC + +** Dired functions +#+BEGIN_SRC emacs-lisp :tangle yes :results silent + (defun sd/dired-next-line (count) + "Move to next line, and always focus on the file name." + (interactive "p") + (dired-next-line count) + (dired-move-to-filename)) + + (defun sd/dired-previous-line (count) + "Move to previous line, and always focus on the file name." + (interactive "p") + (dired-previous-line count) + (dired-move-to-filename)) + + (defun sd/dired-up-directory () + "Go to up directory" + (interactive) + (let ((old (current-buffer))) + (dired-up-directory) + (kill-buffer old))) +#+END_SRC ** Dired bindings =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 @@ -2135,18 +2136,38 @@ Refer, [[http://emacs.stackexchange.com/questions/7908/how-to-make-yasnippet-and #+END_SRC * Programming Language -** Emacs Lisp +** Color identiifiers mode #+BEGIN_SRC emacs-lisp :tangle yes :results silent (use-package color-identifiers-mode :ensure t :init - (add-hook 'emacs-lisp-mode-hook 'color-identifiers-mode) - + (dolist (mode '(emacs-lisp-mode-hook + c-mode-hook + c++-mode-hook)) + (add-hook mode #'color-identifiers-mode)) :diminish color-identifiers-mode) (global-prettify-symbols-mode t) #+END_SRC +** Font lock face + +#+BEGIN_SRC emacs-lisp :tangle yes :results silent + (set-face-attribute 'font-lock-keyword-face nil :foreground "#F92672" :weight 'bold) + (set-face-attribute 'font-lock-builtin-face nil :weight 'bold) + (set-face-attribute 'font-lock-function-name-face nil :foreground "#A6E22E" :weight 'normal :slant 'normal) + (set-face-attribute 'font-lock-variable-name-face nil :foreground "#00FF00") + + (font-lock-add-keywords 'c-mode + ;; highlight %s \n + '(("\\([%\\][a-zA-Z]\\)" (1 font-lock-keyword-face prepend)) + ("[^[:alpha:]]\\([[:digit:]]*\\)[^[:alpha:]]" (1 font-lock-constant-face append)) + ;; hex number + ("[^[:alpha:]]\\(0[x\\|X][0-9a-fA-F]*\\)[^[:alpha:]]" (1 font-lock-constant-face append)) + ;; hightlight the function call + ("\\s\"?\\(\\(\\sw\\|\\s_\\)+\\(<-\\)?\\)\\s\"?*\\s-*(" (1 font-lock-function-name-face))) t) +#+END_SRC +** Emacs Lisp In Lisp Mode, =M-o= is defined, but I use this for global hydra window. So here disable this key bindings in =lispy-mode-map= after loaded. see [[http://stackoverflow.com/questions/298048/how-to-handle-conflicting-keybindings][here]] #+BEGIN_SRC emacs-lisp :tangle yes :results silent @@ -2204,13 +2225,10 @@ Refer [[https://www.emacswiki.org/emacs/AutoInsertMode][AutoInsertMode]] Wiki (font-lock-add-keywords 'cperl-mode '(("\\(say\\)" . cperl-nonoverridable-face) ("\\([0-9.]\\)*" . font-lock-constant-face) - ("\".*\\(\\\n\\).*\"" . font-lock-constant-face) - ("\n" . font-lock-constant-face) + ("\".*\\(\\\n\\).*\"" 1 font-lock-constant-face prepend) + ("\n" 0 font-lock-constant-face prepend) + ;; ("[%\\][[:alpha:]]" . font-lock-constant-face) ("\\(^#!.*\\)$" . cperl-nonoverridable-face))) - - ;; (font-lock-add-keywords 'Man-mode - ;; '(("\\(NAME\\)" . font-lock-function-name-face))) - #+END_SRC ** C & C++ @@ -2447,21 +2465,6 @@ Set the environments vairables in compilation mode (define-key compilation-mode-map (kbd "q") (lambda () (interactive) (quit-window t))) (define-key compilation-mode-map (kbd "r") #'recompile)) - - ;; (loop for (mode . program) in '( - ;; (lua-mode-hook . "lua") - ;; (perl-mode-hook . "perl") - ;; (python-mode-hook . "python") - ;; (shell-mode-hook . "sh")) - ;; do (add-hook mode `(lambda () - ;; (unless (or (file-exists-p "makefile") - ;; (file-exists-p "Makefile")) - ;; (set (make-local-variable 'compile-command) - ;; (concat ,program - ;; " " - ;; (if buffer-file-name - ;; (shell-quote-argument buffer-file-name)))))))) - ;; here note dynamic binding the value of vv, otherwise it will resport error when run the hook. ;; https://emacs.stackexchange.com/questions/10394/scope-in-lambda (dolist (vv '( @@ -2479,22 +2482,6 @@ Set the environments vairables in compilation mode (shell-quote-argument buffer-file-name)))))))) (global-set-key (kbd "s-r") 'compile) - - ;; Make compilaition window always below - (defun my-compilation-hook () - (when (not (get-buffer-window "*compilation*")) - (split-window-vertically) - ;; (save-selected-window - ;; (save-excursion - ;; (let* ((w (split-window-vertically)) - ;; (h (window-height w))) - ;; (select-window w) - ;; (switch-to-buffer "*compilation*") - ;; (shrink-window (- h compilation-window-height))))) - )) - ;; (add-hook 'compilation-mode-hook 'my-compilation-hook) - - #+END_SRC * Auto-Insert @@ -3647,8 +3634,6 @@ stolen from [[https://github.com/mariolong/emacs.d/blob/f6a061594ef1b5d1f4750e9d #+BEGIN_SRC emacs-lisp :tangle yes :results silent (org-babel-load-file "~/.emacs.d/emacs-evil.org") #+END_SRC - - * Note ** Check if emacs is in terminal of graphic mode Use =display-graphic-p= instead of =window-system=