spacemacs/layers/+lang/c-c++/packages.el

;;; packages.el --- C/C++ Layer packages File for Spacemacs
;;
;; Copyright (c) 2012-2014 Sylvain Benner
;; Copyright (c) 2014-2015 Sylvain Benner & Contributors
;;
;; Author: Sylvain Benner <sylvain.benner@gmail.com>
;; URL: https://github.com/syl20bnr/spacemacs
;;
;; This file is not part of GNU Emacs.
;;
;;; License: GPLv3

(setq c-c++-packages
  '(
    cc-mode
    disaster
    clang-format
    cmake-mode
    company
    company-c-headers
    company-ycmd
    flycheck
    gdb-mi
    helm-cscope
    helm-gtags
    semantic
    srefactor
    stickyfunc-enhance
    ycmd
    xcscope
    ))

(unless (version< emacs-version "24.4")
  (add-to-list 'c-c++-packages 'srefactor))

(defun c-c++/init-cc-mode ()
  (use-package cc-mode
    :defer t
    :init
    (add-to-list 'auto-mode-alist `("\\.h$" . ,c-c++-default-mode-for-headers))
    :config
    (progn
      (require 'compile)
      (c-toggle-auto-newline 1)
      (evil-leader/set-key-for-mode 'c-mode
        "mga" 'projectile-find-other-file
        "mgA" 'projectile-find-other-file-other-window)
      (evil-leader/set-key-for-mode 'c++-mode
        "mga" 'projectile-find-other-file
        "mgA" 'projectile-find-other-file-other-window))))

(defun c-c++/init-disaster ()
  (use-package disaster
    :defer t
    :commands (disaster)
    :init
    (progn
      (evil-leader/set-key-for-mode 'c-mode
        "mD" 'disaster)
      (evil-leader/set-key-for-mode 'c++-mode
        "mD" 'disaster))))

(defun c-c++/init-clang-format ()
  (use-package clang-format
    :if c-c++-enable-clang-support))

(defun c-c++/init-cmake-mode ()
  (use-package cmake-mode
    :mode (("CMakeLists\\.txt\\'" . cmake-mode) ("\\.cmake\\'" . cmake-mode))
    :init (push 'company-cmake company-backends-cmake-mode)))

(defun c-c++/post-init-company ()
    (spacemacs|add-company-hook c-mode-common)
    (spacemacs|add-company-hook cmake-mode)

    (when c-c++-enable-clang-support
      (push 'company-clang company-backends-c-mode-common)
      ;; .clang_complete file loading
      ;; Sets the arguments for company-clang based on a project-specific text file.

      ;; START Based on the Sarcasm/irony-mode compilation database code.
      (defun company-mode/find-clang-complete-file ()
        (when buffer-file-name
          (let ((dir (locate-dominating-file buffer-file-name ".clang_complete")))
            (when dir
              (concat (file-name-as-directory dir) ".clang_complete")))))

      (defun company-mode/load-clang-complete-file (cc-file)
        "Load the flags from CC-FILE, one flag per line."
        (let ((invocation-dir (expand-file-name (file-name-directory cc-file)))
              (case-fold-search nil)
              compile-flags)
          (with-temp-buffer
            (insert-file-contents cc-file)
            ;; Replace relative paths with absolute paths (by @trishume)
            ;; (goto-char (point-min))
            (while (re-search-forward "\\(-I\\|-isystem\n\\)\\(\\S-\\)" nil t)
              (replace-match (format "%s%s" (match-string 1)
                                     (expand-file-name (match-string 2) invocation-dir))))
            ;; Turn lines into a list
            (setq compile-flags
                  ;; remove whitespaces at the end of each line, if any
                  (mapcar #'(lambda (line)
                              (if (string-match "[ \t]+$" line)
                                  (replace-match "" t t line)
                                line))
                          (split-string (buffer-string) "\n" t))))
          compile-flags))
      ;; END Back to things written by @trishume

      (defun company-mode/more-than-prefix-guesser ()
        (unless company-clang-arguments
          (let* ((cc-file (company-mode/find-clang-complete-file))
                 (flags (if cc-file (company-mode/load-clang-complete-file cc-file) '())))
            (setq-local company-clang-arguments flags)
            (setq flycheck-clang-args flags)))
        (company-clang-guess-prefix))

      (setq company-clang-prefix-guesser 'company-mode/more-than-prefix-guesser)))

(when (configuration-layer/layer-usedp 'auto-completion)
  (defun c-c++/init-company-c-headers ()
    (use-package company-c-headers
      :if (configuration-layer/package-usedp 'company)
      :defer t
      :init (push 'company-c-headers company-backends-c-mode-common))))

(defun c-c++/post-init-flycheck ()
  (spacemacs/add-to-hooks 'flycheck-mode '(c-mode-hook c++-mode-hook)))

(defun c-c++/init-gdb-mi ()
  (use-package gdb-mi
    :defer t
    :init
    (setq
     ;; use gdb-many-windows by default when `M-x gdb'
     gdb-many-windows t
     ;; Non-nil means display source file containing the main routine at startup
     gdb-show-main t)))

(defun c-c++/post-init-helm-gtags ()
  (spacemacs/helm-gtags-define-keys-for-mode 'c-mode)
  (spacemacs/helm-gtags-define-keys-for-mode 'c++-mode))

(defun c-c++/post-init-semantic ()
  (semantic/enable-semantic-mode 'c-mode)
  (semantic/enable-semantic-mode 'c++-mode))

(defun c-c++/post-init-srefactor ()
  (evil-leader/set-key-for-mode 'c-mode "mr" 'srefactor-refactor-at-point)
  (evil-leader/set-key-for-mode 'c++-mode "mr" 'srefactor-refactor-at-point)
  (spacemacs/add-to-hooks 'spacemacs/lazy-load-srefactor '(c-mode-hook c++-mode-hook)))

(defun c-c++/post-init-stickyfunc-enhance ()
  (spacemacs/add-to-hooks 'spacemacs/lazy-load-stickyfunc-enhance '(c-mode-hook c++-mode-hook)))

(defun c-c++/post-init-ycmd ()
  (add-hook 'c++-mode-hook 'ycmd-mode)
  (evil-leader/set-key-for-mode 'c++-mode
    "mgg" 'ycmd-goto
    "mgG" 'ycmd-goto-imprecise))

(defun c-c++/post-init-company-ycmd ()
  (push 'company-ycmd company-backends-c-mode-common))

(defun c-c++/pre-init-xcscope ()
  (spacemacs|use-package-add-hook xcscope
    :post-init
    (dolist (mode '(c-mode c++-mode))
      (evil-leader/set-key-for-mode mode "mgi" 'cscope-index-files))))

(defun c-c++/pre-init-helm-cscope ()
  (spacemacs|use-package-add-hook xcscope
    :post-init
    (dolist (mode '(c-mode c++-mode))
      (spacemacs/setup-helm-cscope mode))))