my-emacs-d/elpa/flycheck-pkg-config-20160610.1335/flycheck-pkg-config.el

86 lines
3.3 KiB
EmacsLisp
Raw Normal View History

2016-09-22 16:37:03 +00:00
;;; flycheck-pkg-config.el --- configure flycheck using pkg-config -*- lexical-binding: t; -*-
;; Copyright (C) 2016
;; Author: Wilfred Hughes <me@wilfred.me.uk>
;; Keywords: flycheck
;; Package-Version: 20160610.1335
;; Version: 0.1
;; Package-Requires: ((dash "2.8.0") (s "1.9.0") (cl-lib "0.5"))
;; This program is free software; you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by
;; the Free Software Foundation, either version 2 of the License, or
;; (at your option) any later version.
;; This program is distributed in the hope that it will be useful,
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
;; GNU General Public License for more details.
;; You should have received a copy of the GNU General Public License
;; along with this program. If not, see <http://www.gnu.org/licenses/>.
;;; Commentary:
;; Flycheck defines a `flycheck-clang-include-path' variable that it
;; searches for headers when checking C/C++ code.
;;
;; This package provides a convenient way of adding libraries to that
;; list, using pkg-config and completion.
;;; Code:
(require 's)
(require 'dash)
(require 'flycheck)
(defvar flycheck-pkg-config--libs nil)
(defun flycheck-pkg-config--ignore-case-less-p (s1 s2)
(string< (downcase s1) (downcase s2)))
(defun flycheck-pkg-config--set-libs ()
"Set `flycheck-pkg-config--libs' by calling pkg-config."
(let* ((all-libs-with-names
(shell-command-to-string "pkg-config --list-all"))
(lines (s-split "\n" (s-trim all-libs-with-names)))
(libs (--map (-first-item (s-split " " it)) lines)))
(setq flycheck-pkg-config--libs (-sort #'flycheck-pkg-config--ignore-case-less-p libs))))
(defun flycheck-pkg-config--include-paths (library-name)
"Get a list of include paths for LIBRARY-NAME.
Raises an error if pkg-config can't find any paths for this library."
(let* (;; Find the include flags, e.g. "-I/usr/lib/foo"
(pkgconfig-cmd (format "pkg-config --cflags %s" library-name))
(cc-args (s-trim (shell-command-to-string pkgconfig-cmd))))
(if (s-contains? "-I" cc-args)
;; pkg-config has found a library with this name.
(let (ret)
(dolist (x (s-split " " cc-args) ret)
(if (s-starts-with? "-I" x) (setq ret (cons (s-chop-prefix "-I" x) ret)))))
(user-error cc-args))))
;;;###autoload
(defun flycheck-pkg-config ()
"Configure flycheck to use additional includes
when checking the current buffer."
(interactive)
;; Find out all the libraries installed on this system.
(unless flycheck-pkg-config--libs
(flycheck-pkg-config--set-libs))
(let* ((lib-name (completing-read "Library name: " flycheck-pkg-config--libs))
;; Find the include paths, e.g. "-I/usr/lib/foo"
(include-paths (flycheck-pkg-config--include-paths lib-name)))
;; Only set in this buffer.
(make-local-variable 'flycheck-clang-include-path)
;; Add include paths to `flycheck-clang-include-path' unless
;; already present.
(setq flycheck-clang-include-path
(-union flycheck-clang-include-path include-paths))
(message "flycheck-clang-include-path: %s"
flycheck-clang-include-path)))
(provide 'flycheck-pkg-config)
;;; flycheck-pkg-config.el ends here