X-Git-Url: http://47.100.26.94:8080/?a=blobdiff_plain;f=emacs.d%2Fconfig.org;h=2c89c18de6058e57c9924bbd650dd686f28111b8;hb=c2c4f73837ff7292968f805b50dda2b35ff04728;hp=10d8c9a9d9593672b6d8cac307862d395b8f97bd;hpb=947aafc31d5b313ffc8f4bf16f90b4625eb628df;p=dotfiles.git diff --git a/emacs.d/config.org b/emacs.d/config.org index 10d8c9a..2c89c18 100644 --- a/emacs.d/config.org +++ b/emacs.d/config.org @@ -58,7 +58,8 @@ Set system PATH and emacs exec path (setq scroll-step 1) (setq scroll-margin 5) - (fringe-mode '(0 . 0)) + (when (display-graphic-p) + (fringe-mode '(0 . 0))) #+END_SRC *** Custom file @@ -760,7 +761,7 @@ Always indents header, and hide header leading starts so that no need type =#+ST (setq org-ditaa-jar-path "/usr/local/Cellar/ditaa/0.9/libexec/ditaa0_9.jar") (unless (file-exists-p org-ditaa-jar-path) - (warn "seudut: ditaa.jar not found at %s " org-ditaa-jar-path)) + (message "seudut: ditaa.jar not found at %s " org-ditaa-jar-path)) (org-babel-do-load-languages 'org-babel-load-languages '((python . t) @@ -1262,7 +1263,9 @@ and Defined keys, using vi keybindings, Refer abo-abo's setting [[https://github (define-key map "n" nil) (define-key map "p" nil) (define-key map "v" 'recenter-top-bottom) - (define-key map "i" 'magit-section-toggle))) + (define-key map "i" 'magit-section-toggle)) + (define-key magit-mode-map "q" (lambda () (interactive) + (magit-mode-bury-buffer t)))) #+END_SRC * Eshell @@ -1455,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]\\|\\(?:[^@/:]*@\\)?[^@/:]*[^@/:.]:\\)") @@ -1746,6 +1750,16 @@ Fix one elscreen issue when startup emacs https://github.com/knu/elscreen/issues #+END_SRC * Dired +** Dired basic +#+BEGIN_SRC emacs-lisp :tangle yes :results silent + (setq dired-dwim-target t) + + (use-package dired-details + :ensure t + :config + (setq-default dired-details-hidden-string "--- ") + (dired-details-install)) +#+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 @@ -2122,6 +2136,16 @@ Refer, [[http://emacs.stackexchange.com/questions/7908/how-to-make-yasnippet-and #+END_SRC * Programming Language +** Color identiifiers mode +#+BEGIN_SRC emacs-lisp :tangle yes :results silent + (use-package color-identifiers-mode + :ensure t) +#+END_SRC +** Font lock face +#+BEGIN_SRC emacs-lisp :tangle yes :results silent + (set-face-attribute 'font-lock-keyword-face nil :weight 'bold) + (set-face-attribute 'font-lock-builtin-face nil :weight 'bold) +#+END_SRC ** Emacs Lisp #+BEGIN_SRC emacs-lisp :tangle yes :results silent (use-package color-identifiers-mode @@ -2194,10 +2218,6 @@ Refer [[https://www.emacswiki.org/emacs/AutoInsertMode][AutoInsertMode]] Wiki ("\".*\\(\\\n\\).*\"" . font-lock-constant-face) ("\n" . font-lock-constant-face) ("\\(^#!.*\\)$" . cperl-nonoverridable-face))) - - ;; (font-lock-add-keywords 'Man-mode - ;; '(("\\(NAME\\)" . font-lock-function-name-face))) - #+END_SRC ** C & C++ @@ -2220,6 +2240,8 @@ C/C++ ide tools ;; objective c (add-to-list 'auto-mode-alist '("\\.mm\\'" . objc-mode)) + + (setq c-hungry-delete-key t) #+END_SRC *** irony @@ -2402,10 +2424,10 @@ Install =guile=, =guile= is an implementation of =Scheme= programming language. ;; set racket path (setenv "PATH" (concat (getenv "PATH") - ":" "/Applications/Racket v6.6/bin")) + ":" "/Applications/Racket v6.10.1/bin")) (setenv "MANPATH" (concat (getenv "MANPATH") - ":" "/Applications/Racket v6.6/man")) - (setq exec-path (append exec-path '("/Applications/Racket v6.6/bin"))) + ":" "/Applications/Racket v6.10.1/man")) + (setq exec-path (append exec-path '("/Applications/Racket v6.10.1/bin"))) (add-to-list 'auto-mode-alist '("\\.rkt\\'" . racket-mode)) #+END_SRC @@ -2421,13 +2443,15 @@ Set the environments vairables in compilation mode (setq compilation-auto-jump-to-next t) (setq compilation-scroll-output 'first-error) ;; this will save all the modified buffers before compile - (setq compilation-ask-about-save nil)) + (setq compilation-ask-about-save nil) + (setq compilation-window-height (/ (window-total-height) 3))) ;; super-r to compile (with-eval-after-load "compile" (define-key compilation-mode-map (kbd "C-o") nil) (define-key compilation-mode-map (kbd "n") 'compilation-next-error) (define-key compilation-mode-map (kbd "p") 'compilation-previous-error) + (define-key compilation-mode-map (kbd "q") (lambda () (interactive) (quit-window t))) (define-key compilation-mode-map (kbd "r") #'recompile)) @@ -2868,7 +2892,7 @@ config from [[http://www.kirang.in/2014/11/13/emacs-as-email-client-with-offline (:mailing-list . 20) (:thread-subject . 70) (:human-date . 16)))) - (warn "seudut:mu4e not installed, it won't work.")) + (message "seudut:mu4e not installed, it won't work.")) #+END_SRC ** Smtp - send mail @@ -3142,6 +3166,19 @@ Kill the help window and buffer when quit. ;; (advice-add 'man :after (lambda (man-args) (other-window 1))) (advice-add 'man :after (apply-partially 'other-window 1)) + + + (require 'shell-command-output-mode) + + (defun my/shell-command-after (command &optional output-buffer error-buffer) + (let* ((buffer (get-buffer "*Shell Command Output*")) + (window (get-buffer-window buffer))) + (if buffer (with-current-buffer buffer + (shell-command-output-mode))) + (if window + (select-window window)))) + + (advice-add 'shell-command :after 'my/shell-command-after) #+END_SRC ** Motion @@ -3567,11 +3604,16 @@ stolen from [[https://github.com/mariolong/emacs.d/blob/f6a061594ef1b5d1f4750e9d * Developing ** perspeen #+BEGIN_SRC emacs-lisp :tangle yes :results silent - (use-package perspeen - :ensure t - :init + ;; (use-package perspeen + ;; :ensure t + ;; :init + ;; (setq perspeen-use-tab nil) + ;; :config + ;; (perspeen-mode)) + + (el-get-bundle seudut/perspeen + :features perspeen (setq perspeen-use-tab nil) - :config (perspeen-mode)) ;; super-i to switch to ith workspace @@ -3596,8 +3638,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=