bartuer-c.el

(defun bartuer-c-indent ()
  (interactive)
  (if (not (window-minibuffer-p))
      (cond ((indent-for-tab-command))
            (t (indent-relative-maybe))
            (t (indent-for-comment)))))

(defun c-load-etags (reset)
  (interactive "P")
  (setq anything-etags-enable-tag-file-dir-cache t)
  (if reset
      (setq anything-etags-cache-tag-file-dir nil))
  (unless anything-etags-cache-tag-file-dir
    (setq anything-etags-cache-tag-file-dir
          (concat (file-name-directory (buffer-file-name))
                  (ido-completing-read
                   "TAGS location:"
                   (list "/"
                         "/home/bazhou/local/src/glibc/glibc_src"
                         "."
                         "../src/"
                         "../../src"
                         "../../../src"
                         "../../../../src"
                         ".."
                         "../.."
                         "../../.."
                         ))) )
    )
  (anything-etags-select)
  )

(defun bartuer-c-common ()
  "for c and C++ language.
"
  (interactive)
  (require 'make-mode)
  ;; (c-subword-mode 1)
  ;; is it possible to guess the code style ?
  ;; now I using the c-file-style in file varible

  (define-key c-mode-base-map "\C-i" 'bartuer-c-indent)
  (define-key makefile-mode-map "\C-j" 'recompile)
  (define-key c-mode-base-map "\C-j" 'recompile)
  (define-key c-mode-base-map "\C-c\C-o" (lambda () (interactive) (if (hs-already-hidden-p)
                                                         (hs-show-block)
                                                       (hs-hide-block))))
  (define-key c-mode-base-map "\M-j" 'dabbrev-expand)
  (define-key c-mode-base-map "\C-m" 'c-context-line-break)
  (define-key c-mode-base-map "\C-c\C-c" 'anything-etags-select)
  (define-key c-mode-base-map "\M-j" 'dabbrev-expand)
  (define-key c-mode-base-map "\C-c\C-c" 'c-load-etags)
  (define-key input-decode-map "\e\eOA" [(meta up)])
  (define-key input-decode-map "\e\eOB" [(meta down)])
  (define-key c-mode-base-map [(meta down)] 'move-line-down)
  (define-key c-mode-base-map [(meta up)] 'move-line-up)
  (define-key c-mode-base-map (kbd "RET") 'newline-and-indent)
                                        ; \C-\C load tag and search in anything
                                        ; \M-, tag-loop-continue
                                        ; \M-* tag jump
  (define-key c-mode-base-map "\C-x," 'tags-search)
  (define-key c-mode-base-map "\C-x." 'tags-query-replace)

  (hs-minor-mode t)

  (add-hook 'before-save-hook 'clang-format-buffer t t) ; format code style according to .clang-format in path

  (define-key c-mode-base-map "\C-\M-\\" 'clang-format-region)

  (add-to-list 'flycheck-checkers 'c/c++-clangcheck)
  
  (when (derived-mode-p 'c-mode 'c++-mode 'java-mode)
                  (ggtags-mode 1))

  (flycheck-select-checker 'c/c++-clangcheck)
  
  (eldoc-mode t)                        ; show function definition in mini buffer, depend on auto generated gtags
  (setq-local eldoc-documentation-function #'ggtags-eldoc-function)
  (define-key c-mode-base-map "\C-xt" 'ggtags-find-tag-dwim)
  
  (add-to-list 'ac-sources 'ac-source-gtags)
  )


(defun that-line-end (n)
  "track region end"
  (save-excursion
    (goto-char 0)
    (forward-line n)
    (end-of-line)
    (point)
    )
  )

(defun c-var-table ()
  "try to align variant table"
  (interactive)
  (let  ((s (region-beginning))
         (l (line-number-at-pos (region-end))))
    (replace-regexp "[ 	]+" " " nil  s (region-end))
    (org-table-convert-region s (that-line-end l))
    (replace-regexp "^|" "" nil s (that-line-end l))
    (replace-regexp "|$" "" nil s (that-line-end l))
    (replace-regexp " | " "    " nil s (that-line-end l))
    )
  )

(provide 'bartuer-c)