 ;; Author: Austin Bingham <austin.bingham@gmail.com>
 ;; Version: 0.1
 ;; URL: https://github.com/abingham/emacs-ycmd
-;; Package-Requires: ((ycmd "0.1") (company "0.8.3") (deferred "0.2.0") (s "1.0.0"))
+;; Package-Requires: ((ycmd "0.1") (company "0.8.3") (deferred "0.2.0") (s "1.0.0") (dash "1.2.0"))
 ;;
 ;; This file is not part of GNU Emacs.
 ;;

     ((string-match "\\((.*)[ a-z]*\\'\\)" params)
      (match-string 1 params)))))

(defun company-ycmd--annotation (candidate)
  "Fetch the annotation text-property from a candidate string."
  (let ((kind (get-text-property 0 'kind candidate))
        (return-type (or (get-text-property
                          0 'return_type candidate)
                         (get-text-property
                          0 'extra_menu_info candidate))))
    (concat (company-ycmd--params candidate)
            (unless (zerop (length return-type))
              (concat " -> " return-type))
            (unless (zerop (length kind))
              (format " [%s]" (downcase (substring kind 0 1)))))))

(defconst company-ycmd--include-declaration
  (rx line-start "#" (zero-or-more blank) (or "include" "import")


Setting this to nil enables the `company-mode' internal cache
feature."
  :type 'boolean
  :group 'company-ycmd)

(defcustom company-ycmd-show-completion-kind t
  "Show kind of completion entry."
  :type 'boolean
  :group 'company-ycmd)

