X-Git-Url: http://47.100.26.94:8080/?a=blobdiff_plain;f=emacs.d%2Fconfig.org;h=ea907a242cec90f154ef3306b358ea82afc1b5aa;hb=5ec4fc25bc5d9ad51e619b8c36aa11947b37fbb2;hp=10d8c9a9d9593672b6d8cac307862d395b8f97bd;hpb=947aafc31d5b313ffc8f4bf16f90b4625eb628df;p=dotfiles.git diff --git a/emacs.d/config.org b/emacs.d/config.org index 10d8c9a..ea907a2 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 @@ -1746,6 +1749,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 @@ -2220,6 +2233,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 +2417,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 +2436,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)) @@ -2462,6 +2479,22 @@ 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 @@ -2868,7 +2901,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 +3175,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 +3613,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