emacs: ggtags config, using ido-completion, and split vertically

[dotfiles.git] / emacs.d / init.el

diff --git a/emacs.d/init.el b/emacs.d/init.el
index e032f4b..95901d5 100644 (file)
--- a/emacs.d/init.el
+++ b/emacs.d/init.el
@@ -1,3 +1,12 @@
+;;;(if (eq system-type 'darwin)
+;;;  (setenv "PATH"
+;;;)   (concat (getenv "path") ":/usr/local/bin:~/bin/")
+;;;  )
+
+
+(setenv "PATH" (concat (getenv "PATH") ":/usr/local/bin"))
+(setq exec-path (append exec-path '("/usr/local/bin")))
+
 (setq debug-on-error t)
 
 (scroll-bar-mode -1)
@@ -34,8 +43,9 @@
 
 ;; elscreen should be placed begin of https://github.com/knu/elscreen/issues/6
 (elscreen-start)
+(require 'init-elscreen)
 (require 'init-color-theme)
-;(require 'init-my-theme-2)
+
 
 ;---------------------------------------------------------------------------------------
 ;; Ido
@@ -129,61 +139,45 @@
 
 (require 'projectile)
 (projectile-global-mode)
-(setq projectile-enable-caching t)
+(setq projectile-enable-caching nil)
 (require 'projectile-speedbar)
 
-(require 'cc-mode)
-(require 'ecb)
+;(require 'cc-mode)
+;(require 'ecb)
 
-(setq ecb-layout-name "leftright3")
+;(setq ecb-layout-name "leftright3")
 
 
+;(setq mac-command-modifier 'super) ; make cmd key do Meta
+(global-set-key (kbd "<s-return>") 'toggle-frame-fullscreen)
 
-;;(add-hook 'find-file-hook
-;;          (lambda ()
-;;            (setq default-directory "~/CPVE/")))
 
-;;(add-hook 'buffer-list-update-hook
-;;          (lambda ()
-;;            (elscreen-cd-default-directory
-;;              (elscreen-get-default-directory (elscreen-get-current-screen)))))
 
 
-;;(add-hook 'buffer-list-update-hook
-;;          (lambda ()
-;;            (cd "~/English/")))
+(global-set-key (kbd "M-g M-v") 'split-window-right)
+(global-set-key (kbd "M-g M-s") 'split-window-below)
+(global-set-key (kbd "M-g M-o") 'delete-other-windows)
 
-;;(add-hook 'elscreen-create-hook
-;;          (lambda ()
-;;            (elscreen-set-default-directory  (elscreen-get-current-screen) "~/CPVE/")))
-;;;            (elscreen-cd-default-directory "~/"))
-;;
+(global-set-key (kbd "M-g M-w") 'other-window)
+
+;;;; show default directory on mode-line
+(ggtags-mode 1)
+
+;; using ido-completion for ggtags
+;; https://github.com/leoliu/ggtags/issues/56
+(setq ggtags-completing-read-function
+      (lambda (&rest args)
+        (apply #'ido-completing-read
+               (car args)
+               (all-completions "" ggtags-completion-table)
+               (cddr args))))
+
+
+
+
+;; gnu global support
+;(require 'semantic/db)
+;(global-semanticdb-minor-mode 1)
 
-(add-hook 'elscreen-goto-hook
-          (lambda ()
-            (elscreen-cd-default-directory
-              (elscreen-get-default-directory (elscreen-get-current-screen)))))
-
-(defun sd-cd-dd (dir)
-  "Set default directory screen."
-  (interactive "sSet dir:")
-;  (message dir)
-  (elscreen-set-default-directory (elscreen-get-current-screen) dir)
-  (cd dir)
-)
-
-(defun sd-show-dir ()
-  "show elscreen default directory."
-  (interactive)
-  (message
-  (elscreen-get-default-directory (elscreen-get-current-screen))))
-
-
-
-(add-hook 'buffer-list-update-hook
-          (lambda ()
-            (let ((el-dir (elscreen-get-default-directory (elscreen-get-current-screen))))
-              (if (> (length el-dir) 0)
-                 (cd el-dir)))))
-              
-              
+(custom-set-variables
+ '(ggtags-split-window-function (quote split-window-vertically)))