43 lines
1.7 KiB
EmacsLisp
43 lines
1.7 KiB
EmacsLisp
|
; .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 (when cc-file (company-mode/load-clang-complete-file cc-file))))
|
||
|
|
(when flags
|
||
|
|
(message "Clang flags: %S" flags)
|
||
|
|
(setq-local company-clang-arguments flags))))
|
||
|
|
(company-clang-guess-prefix))
|