;;; Code:
+(require 'cl-lib)
(require 'yasnippet)
(defun company-yasnippet--candidates (prefix)
(global-set-key (kbd \"C-c y\") 'company-yasnippet)
"
(interactive (list 'interactive))
- (case command
+ (cl-case command
(interactive (company-begin-backend 'company-yasnippet))
(prefix
;; Should probably use `yas--current-key', but that's bound to be slower.
;; How many trigger keys start with non-symbol characters anyway?
(and yas-minor-mode
(company-grab-symbol)))
- (annotation (concat " -> " (get-text-property 0 'yas-annotation arg)))
+ (annotation
+ (concat
+ (unless company-tooltip-align-annotations " -> ")
+ (get-text-property 0 'yas-annotation arg)))
(candidates (company-yasnippet--candidates arg))
(post-completion
(let ((template (get-text-property 0 'yas-template arg)))