X-Git-Url: http://47.100.26.94:8080/?a=blobdiff_plain;f=emacs.d%2Fconfig.org;h=ea907a242cec90f154ef3306b358ea82afc1b5aa;hb=5ec4fc25bc5d9ad51e619b8c36aa11947b37fbb2;hp=cd9a9cbe862017c3e585728f6f7d1edc4effe8e7;hpb=4d97e326fc801def49b11eae8cf5e3143aec8b6e;p=dotfiles.git

diff --git a/emacs.d/config.org b/emacs.d/config.org
index cd9a9cb..ea907a2 100644
--- a/emacs.d/config.org
+++ b/emacs.d/config.org
@@ -761,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)
@@ -1749,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
@@ -2223,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
@@ -2405,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
@@ -2424,7 +2436,8 @@ 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"
@@ -2466,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
@@ -2872,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
@@ -3584,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