emacs-common.el

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; global variable definition

;; additional .el load path
(setq elisp_path "~/CodeBase/emacs_dev")
(add-to-list 'load-path elisp_path)
(dolist (pkg_dir '("use-package"
                   "xterm-color"
                   "emacs-async"
                   "emacs-sbt-mode"
                   "scala-mode2"))
  (add-to-list 'load-path (concat elisp_path "/" pkg_dir)))


;; Very basic key modifications for OSX
;; Duplicated at the end of the file for fear that some mode might modify them
(setq mac-option-key-is-meta t)
(setq mac-command-key-is-meta t)
(setq mac-command-modifier 'meta)
(setq mac-option-modifier 'meta)

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Emacs server
(server-start)

;;--------------------------------------------------------------------
;; Package managing
;; (eval-when-compile
;;   (require 'use-package))
;; (require 'diminish)                ;; if you use :diminish
;; (require 'bind-key)                ;; if you use any :bind variant

(require 'package)
(add-to-list 'load-path (concat elisp_path "/use-package"))
(setq
 use-package-always-ensure t
 package-archives '(("gnu" . "http://elpa.gnu.org/packages/")
                    ("org" . "http://orgmode.org/elpa/")
                    ("melpa" . "http://melpa.org/packages/")
                    ("milkbox" . "http://melpa.milkbox.net/packages/")
                    ("elpy" . "http://jorgenschaefer.github.io/packages/")))

(package-initialize)
(when (not package-archive-contents)
  (package-refresh-contents)
  (package-install 'use-package)
  (package-install 'async))
(require 'use-package) ;; get the dependencies
(dired-async-mode 1) ;;

(defvar package-depslist
  '(helm s company magit projectile dash async
         use-package evil helm-flx swiper-helm
         web-mode ess lua-mode z3-mode
         flycheck
         markdown-mode
         ensime sbt-mode elpy
         solarized-theme)
  "A list of dependencies to be installed")

(require 'cl) ;; use the common-lisp extension
(defun package-deps-installed-p ()
  "Return true if the dependencies are all installed"
  (loop for pkg in package-depslist
        when (not (package-installed-p pkg)) do (return nil)
        finally (return t)))

(unless (package-deps-installed-p)
  (package-refresh-contents)
  (dolist (pkg package-depslist)
    (when (not (package-installed-p pkg))
      (package-install pkg))))

(use-package helm
  :commands helm-config
  :init (setq
         helm-apropos-fuzzy-match t
         helm-split-window-in-side-p t
         helm-move-to-line-cycle-in-source t
         helm-ff-search-library-in-sexp t
         helm-scroll-amount 8
         helm-ff-file-name-history-use-recentf t
         helm-buffers-fuzzy-matching t
         helm-recentf-fuzzy-match t
         helm-semantic-or-imenu t)
  :config (helm-mode 1)
  :bind (("M-x" . helm-M-x)
         ("C-x C-m" . helm-M-x)
         ("C-c C-m" . helm-M-x)
         ("C-x b" . helm-mini)
         ("C-x C-f" . helm-find-files)
         ("C-x c a" . helm-apropos)
         ("C-c h" . helm-apropos)
         :map helm-map
         ("<tab>" . helm-execute-persistent-action)
         ("C-i" . helm-execute-persistent-action)
         ("C-z" . helm-select-action))
  )

(use-package company
  :init
  (add-hook 'after-init-hook 'global-company-mode)
  ;;(add-hook 'after-init-hook 'company-statistics-mode t)
  )

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;--------------------------------------------------------------------
;; ANSI color

;; comint install
;; Also remember to set TERM accordingly (xterm-256color)
;; Keep up-to-date https://github.com/atomontage/xterm-color
(use-package xterm-color
  :load-path "xterm-color/"
  :config
  (add-hook 'comint-preoutput-filter-functions 'xterm-color-filter)
  (setq comint-output-filter-functions (remove 'ansi-color-process-output comint-output-filter-functions))
  )

;; You can also use it with eshell (and thus get color output from system ls):
(use-package eshell
  :init
  (add-hook 'eshell-mode-hook
            (lambda () (setq xterm-color-preserve-properties t)))
  :config
  (add-to-list 'eshell-preoutput-filter-functions 'xterm-color-filter)
  (setq eshell-output-filter-functions (remove 'eshell-handle-ansi-color eshell-output-filter-functions))
  )


;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;--------------------------------------------------------------------
;; Document Editing
(use-package markdown-mode
  :ensure t
  :commands (markdown-mode gfm-mode)
  :mode (("README\\.md\\'" . gfm-mode)
         ("\\.md\\'" . markdown-mode)
         ("\\.markdown\\'" . markdown-mode))
  :init (setq markdown-command "multimarkdown"))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;--------------------------------------------------------------------
;; Programming Language Environment
;;
;;--------------------------------------------------------------------
;; Python
(elpy-enable)
(setq elpy-rpc-python-command "python3")  ;; use a default python
(setq elpy-rpc-backend "jedi")
(elpy-use-ipython "ipython3")
(setq elpy-syntax-check-command "pylint")
(setq python-shell-interpreter "ipython3")
(setq python-shell-interpreter-args "--simple-prompt --pprint")
(setq python-shell-prompt-detect-enabled nil)
(setq python-shell-prompt-detect-failure-warning nil)

(add-to-list 'auto-mode-alist '("BUILD\\'" . python-mode))

;; Configure flymake for python
(when (load "flymake" t)
  (defun flymake-pylint-init ()
    (let* ((temp-file (flymake-init-create-temp-buffer-copy
                       'flymake-create-temp-inplace))
           (local-file (file-relative-name
                        temp-file
                        (file-name-directory buffer-file-name))))
      (list "epylint" (list local-file))))

  (add-to-list 'flymake-allowed-file-name-masks
               '("\\.py\\'" flymake-pylint-init)))

;; Set as a minor mode for python
(add-hook 'python-mode-hook '(lambda () (flymake-mode)))


;; https://github.com/emacs-mirror/emacs/commit/dbb341022870ecad4c9177485a6770a355633cc0
(defun python-shell-completion-native-try ()
  "Return non-nil if can trigger native completion."
  (let ((python-shell-completion-native-enable t)
        (python-shell-completion-native-output-timeout
         python-shell-completion-native-try-output-timeout))
    (python-shell-completion-native-get-completions
     (get-buffer-process (current-buffer))
     nil "_")))


;;(setq elpy-interactive-python-command "ipython3 --simple-prompt -i")
;; (use-package python
;;   :mode ("\\.py\\'" . python-mode)
;;   :init
;;   (setq
;;    python-shell-interpreter "ipython3"
;;    python-shell-interpreter-args "--simple-prompt -i"
;;    )
;;   )

;;--------------------------------------------------------------------
;; C++
(load "cern-root-help.el")
(require 'root-help)
(defun root-c++-mode-hook ()
  "Hook for C++ mode - binding ROOT functions"
  (define-key c++-mode-map "\C-crc"  'root-class)
  (define-key c++-mode-map "\C-crh"  'root-header-skel)
  (define-key c++-mode-map "\C-crs"  'root-source-skel)
  (define-key c++-mode-map "\C-cri"  'root-include-header)
  (define-key c++-mode-map "\C-crm"  'root-main)
  (define-key c++-mode-map "\C-crl"  'root-insert-linkdef)
  (define-key c++-mode-map "\C-crp"  'root-insert-pragma)
  (define-key c++-mode-map "\C-crx"  'root-shell)
  (define-key c++-mode-map "\C-crg"  'root-send-line-to-root)
  (define-key c++-mode-map "\C-crr"  'root-send-region-to-root)
  (define-key c++-mode-map "\C-crb"  'root-send-buffer-to-root)
  (define-key c++-mode-map "\C-crf"  'root-execute-file))
(add-hook 'c++-mode-hook 'root-c++-mode-hook)


;;--------------------------------------------------------------------
;; Scala
(load "scala-custom.el")

;;--------------------------------------------------------------------
;; Lua / Torch7
(require 'torch-mode)
(autoload 'torch-mode "lua-mode" "Lua editing mode." t)
(add-to-list 'auto-mode-alist '("\\.lua$" . torch-mode))
(add-to-list 'interpreter-mode-alist '("th" . torch-mode))
;; (setq
;;  torch-default-application "th"
;;  torch-default-command-switches '("-i" "-g" "-a" "torch_repl_init.lua")
;;  )

;; (use-package torch-mode
;;   :load-path elisp_path
;;   :pin manual
;;   :mode "\\.lua\\'"
;;   :interpreter "th"
;;   :init
;;   (setq
;;    torch-default-application "th"
;;    torch-default-command-switches '("-i" "-g" "-a" "torch_repl_init.lua")
;;    )
;;   :bind
;;   (:map torch-mode-map
;;         ("C-c C-z" . run-torch)
;;         ("C-c C-c" . torch-send-defun)
;;         ("C-c C-l" . torch-send-current-line)
;;         ("C-c C-r" . torch-send-region)
;;    )
;;   )

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; org-mode (site-lisp is the install location)
(load "orgmode-custom.el")

;;(require 'org2blog-autoloads)
;;(setq org2blog/wp-blog-alist
;;      '(("quantipress"
;;         :url "http://wordpress.quantifind.com/xmlrpc.php"
;;        :username "philip"
;;         :default-categories ("data-science" "emacs")
;;         :tags-as-categories nil)
;;        ))

(use-package markdown-mode
  :ensure t
  :commands (markdown-mode gfm-mode)
  :mode (("README\\.md\\'" . gfm-mode)
         ("\\.md\\'" . markdown-mode)
         ("\\.markdown\\'" . markdown-mode))
  :init (setq markdown-command "multimarkdown"))

;; web-mode @ http://web-mode.org
(use-package web-mode
  :mode ("\\.html?\\'"
         "\\.php\\'")
  :init (setq
         web-mode-markup-indent-offset 2
         web-mode-css-indent-offset 2
         web-mode-code-indent-offset 2
         web-mode-indent-style 2)
  :config (setq-default indent-tabs-mode t)
  )

;; Coq
(load (concat elisp_path "/prfgnrl/generic/proof-site.el"))
;;(setq auto-mode-alist (cons '("\\.v$" . coq-mode) auto-mode-alist))
;; (autoload 'coq-mode "coq" "Major mode for editing Coq vernacular." t)

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Flycheck http://www.flycheck.org/en/latest/
(package-install 'flycheck)
(global-flycheck-mode)

(package-install 'flycheck-color-mode-line)
(eval-after-load "flycheck"
  '(add-hook 'flycheck-mode-hook 'flycheck-color-mode-line-mode))

(package-install 'flycheck-pos-tip)
(eval-after-load 'flycheck
  (flycheck-pos-tip-mode))


;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Flyspell for spell checking
;; Ref: http://www.emacswiki.org/emacs/FlySpell
(use-package flyspell
  :commands (flyspell-delay-command tex-mode-flyspell-verify)
  :config
  (add-hook 'LaTeX-mode-hook 'flyspell-mode)
  (add-hook 'python-mode-hook 'flyspell-prog-mode)
  (setq flyspell-sort-corrections nil)
  (setq flyspell-doublon-as-error-flag nil)
  (dolist (hook '(text-mode-hook))
    (add-hook hook (lambda () (flyspell-mode 1))))
  (dolist (hook '(change-log-mode-hook log-edit-mode-hook))
    (add-hook hook (lambda () (flyspell-mode nil))))
  )

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Global Settings
;; - in case they are modified by other modes

;; Substitude certain patterns (Greek letters or math symbols)
;; with unicode
(load "emacs-rc-pretty-lambda.el")

;; Removing trailing white spaces when saving
(add-hook 'before-save-hook 'delete-trailing-whitespace)

;; global variables
(setq
 inhibit-startup-screen t
 create-lockfiles nil
 make-backup-files nil
 column-number-mode t
 scroll-error-top-bottom t
 show-paren-delay 0.5
 sentence-end-double-space nil)

;; buffer local variables
(setq-default
 indent-tabs-mode nil
 tab-width 4
 c-basic-offset 4)

;; modes
(electric-indent-mode 0)

;; Removing trailing spaces when saved
(add-hook 'before-save-hook 'delete-trailing-whitespace)

;;(tool-bar-mode nil) ;; turning off the tool-bar
(transient-mark-mode t)

;; All about the meta keys
(setq mac-option-key-is-meta t)
(setq mac-command-key-is-meta t)
(setq mac-command-modifier 'meta)
(setq mac-option-modifier 'meta)
;;(setq setq mac-command-key-is-meta t)
;;(setq mac-command-key 'meta)

(setq
 ring-bell-function 'ignore
 visible-bell nil
 global-visual-line-mode t
 word-wrap t
 ns-pop-up-frames nil)

;; set themes at last
(load-theme 'solarized-dark t)