.emacs.el

;; Global Include
(add-to-list 'load-path ".../git/contrib/emacs")
(add-to-list 'load-path (expand-file-name "~/.emacs.d/lisp"))
;; Theme & Appearance
;;(add-to-list 'custom-theme-load-path "~/.emacs.d/themes/emacs-deviant-theme")
;;(add-to-list 'custom-theme-load-path "~/.emacs.d/themes/emacs-colors-solarized")
(add-to-list 'custom-theme-load-path "~/.emacs.d/themes/smyx-master")
(set-face-attribute 'default nil :height 108) ;; font size

(defun enable-custom-theme ()
  (load-theme 'smyx t)
  (enable-theme 'smyx))

(if (display-graphic-p)
    (enable-custom-theme))




;; Remove toolbar and menubar 

(tool-bar-mode -1)
;; Line number mode
(global-linum-mode 1)
;; Visible bell
(setq visible-bell t)
;; No startup screen
(setq inhibit-startup-screen t)
;; Highlight line on all modes
(global-hl-line-mode t)
(autoload 'ibuffer "ibuffer" "List buffers." t)

;; PACKAGE MANAGEMENT
;; Add melpa and Marmalade repos
(when (>= emacs-major-version 24)
  (require 'package)
  (package-initialize)
  (add-to-list 'package-archives '("melpa" . "http://melpa.milkbox.net/packages/") t)
  (add-to-list 'package-archives '("marmalade" . "http://marmalade-repo.org/packages/"))
  )

;; Bindings

;; use IBuffers instead of regular buffers
(global-set-key (kbd "C-x C-b") 'ibuffer)

;; Window Movement Bindings
;; Requires
(require 'windata)
(global-set-key (kbd "C-x K") 'nuke-all-buffers)
(global-set-key (kbd "C-x <up>") 'windmove-up)
(global-set-key (kbd "C-x <down>") 'windmove-down)
(global-set-key (kbd "C-x <right>") 'windmove-right)
(global-set-key (kbd "C-x <left>") 'windmove-left)


(global-set-key [f8] 'sr-speedbar-toggle)
;; Major Modes
(add-hook 'after-init-hook 'global-company-mode) ;; Enable company for all modes
;; Requires
(add-to-list 'load-path (expand-file-name "~/.emacs.d/lisp")) ;; Misc
(require 'magit)
(require 'sr-speedbar)

;; PHP 
(require 'multi-web-mode)

;;Go
(add-to-list 'load-path "~/Go/src/github.com/dougm/goflymake")
(require 'go-flymake)

;; PHP Multiple Major Modes
(setq php-manual-path "~/Documents/phpdocs/")

(setq mweb-default-major-mode 'html-mode)
(setq mweb-tags '((php-mode "<\\?php\\|<\\? \\|<\\?=" "\\?>")
                  (js-mode "<script +\\(type=\"text/javascript\"\\|language=\"javascript\"\\)[^>]*>" "</script>")
                  (css-mode "<style +type=\"text/css\"[^>]*>" "</style>")))
(setq mweb-filename-extensions '("php" "htm" "html" "ctp" "phtml" "php4" "php5"))
(multi-web-global-mode 1)

(autoload 'php-mode "php-mode" "Major mode for editing php code." t)
(add-to-list 'auto-mode-alist '("\\.php$" . php-mode))
(add-to-list 'auto-mode-alist '("\\.inc$" . php-mode))
(add-to-list 'auto-mode-alist '("\\.erb$" . nxml-mode))
(add-to-list 'auto-mode-alist '("\\.tpl$" . nxml-mode))

;; Speedbar configuration
(make-face 'speedbar-face)			    
(set-face-font 'speedbar-face "Inconsolata-9")
(setq sr-speedbar-right-side nil)
(setq sr-speedbar-max-width 10)
(setq sr-speedbar-width-x 10 )
(setq sr-speedbar-skip-other-window-p t)
(setq speedbar-mode-hook '(lambda ()
			    (buffer-face-set 'speedbar-face)			    
			    (speedbar-add-supported-extension ".go")
			    (speedbar-add-supported-extension ".sql")
			    (speedbar-add-supported-extension ".php")
			    (speedbar-add-supported-extension ".css")
			    (speedbar-add-supported-extension ".html")			    			    
			    (speedbar-add-supported-extension ".rb")
			    (speedbar-add-supported-extension ".erb")
			    (speedbar-add-supported-extension ".tpl")			    
			    (add-hook 'php-mode-user-hook 'semantic-default-java-setup) 
			    (add-hook 'php-mode-user-hook 
				      (lambda () 
					(setq imenu-create-index-function 
					      'semantic-create-imenu-index) 
					)) 
			    
			    ))
;; Go Specific
(add-hook
'go-mode-hook
'(lambda ()
    ;; gocode

    ;; Imenu & Speedbar
    (setq imenu-generic-expression
        '(("type" "^type *\\([^ \t\n\r\f]*\\)" 1)
        ("func" "^func *\\(.*\\) {" 1)))
    (imenu-add-to-menubar "Index")
    ;; Outline mode
    (make-local-variable 'outline-regexp)
    (setq outline-regexp "//\\.\\|//[^\r\n\f][^\r\n\f]\\|pack\\|func\\|impo\\|cons\\|var.\\|type\\|\t\t*....")
    (outline-minor-mode 1)
    (local-set-key "\M-a" 'outline-previous-visible-heading)
    (local-set-key "\M-e" 'outline-next-visible-heading)
    ;; Menu bar
    (require 'easymenu)
    (defconst go-hooked-menu
        '("Go tools"
        ["Go run buffer" go t]
        ["Go reformat buffer" go-fmt-buffer t]
        ["Go check buffer" go-fix-buffer t]))
    (easy-menu-define
        go-added-menu
        (current-local-map)
        "Go tools"
        go-hooked-menu)


    ;; Other
    (setq show-trailing-whitespace t)
    ))

;; Custom Functions
;; Nuke all other buffers
(defun nuke-all-buffers ()
  (interactive)
  (mapcar 'kill-buffer (buffer-list))
  (delete-other-windows))

;; Custom set variables
(custom-set-variables
 ;; custom-set-variables was added by Custom.
 ;; If you edit it by hand, you could mess it up, so be careful.
 ;; Your init file should contain only one such instance.
 ;; If there is more than one, they won't work right.
 '(c-basic-offset 4)
 '(company-backends
   (quote
    (php-extras-company company-go company-bbdb company-nxml company-css company-eclim company-semantic company-clang company-xcode company-ropemacs company-cmake company-capf
			(company-dabbrev-code company-gtags company-etags company-keywords)
			company-oddmuse company-files company-dabbrev)))
 '(frame-background-mode (quote dark))
 '(package-archives
   (quote
    (("gnu" . "http://elpa.gnu.org/packages/")
     ("marmalade" . "http://marmalade-repo.org/packages/"))))
 '(php-manual-path "~/Documentos/phpdocs/")
 '(sr-speedbar-auto-refresh nil))
;; Indentation
(require 'highlight-indentation)
;; PHP mode code styles

(add-hook 'php-mode-hook 'my-php-mode-hook)
(add-hook 'html-mode-hook 'my-xml-mode-hook)

(defun my-php-mode-hook ()
  (setq indent-tabs-mode nil)
  (setq show-paren-mode t)
  (let ((my-tab-width 4))
    (setq tab-width my-tab-width)
    (setq c-basic-indent my-tab-width)
    (set (make-local-variable 'tab-stop-list)
         (number-sequence my-tab-width 200 my-tab-width))))
(defun my-xml-mode-hook ()
  (setq indent-tabs-mode nil)
  (let ((my-tab-width 4))
    (setq tab-width my-tab-width)
    (setq sgml-basic-offset my-tab-width)    
    (set (make-local-variable 'tab-stop-list)
         (number-sequence my-tab-width 200 my-tab-width))))
;; XDebug

(autoload 'geben "geben" "DBGp protocol frontend, a script debugger" t)

;; Debug a simple PHP script.
;; Change the session key my-php-54 to any session key text you like
(defun my-php-debug ()
  "Run current PHP script for debugging with geben"
  (interactive)
  (call-interactively 'geben)
  (shell-command
    (concat "XDEBUG_CONFIG='idekey=my-php-54' /usr/bin/env php "
    (buffer-file-name) " &"))
  )

(global-set-key [f5] 'my-php-debug)

;; Fix indentation for function arguments 
(defun my-indent-setup ()
  (c-set-offset 'arglist-intro '+))
(add-hook 'php-mode-hook 'my-indent-setup)

;; Ctags configuration
(setq path-to-ctags "/usr/bin/ctags") 
(defun create-tags (dir-name)
    "Create tags file."
    (interactive "DDirectory: ")
    (shell-command
     (format "ctags -f %s -e -R %s" path-to-ctags (directory-file-name dir-name)))
    )

(defadvice find-tag (around refresh-etags activate)
   "Rerun etags and reload tags if tag not found and redo find-tag.              
   If buffer is modified, ask about save before running etags."
  (let ((extension (file-name-extension (buffer-file-name))))
    (condition-case err
    ad-do-it
      (error (and (buffer-modified-p)
          (not (ding))
          (y-or-n-p "Buffer is modified, save it? ")
          (save-buffer))
         (er-refresh-etags extension)
         ad-do-it))))

  (defun er-refresh-etags (&optional extension)
  "Run etags on all peer files in current dir and reload them silently."
  (interactive)
  (shell-command (format "etags *.%s" (or extension "el")))
  (let ((tags-revert-without-query t))  ; don't query, revert silently          
    (visit-tags-table default-directory nil)))
(custom-set-faces
 ;; custom-set-faces was added by Custom.
 ;; If you edit it by hand, you could mess it up, so be careful.
 ;; Your init file should contain only one such instance.
 ;; If there is more than one, they won't work right.
 '(font-lock-warning-face ((t (:background "gray3" :foreground "magenta")))))