31 lines
1,001 B
EmacsLisp
31 lines
1,001 B
EmacsLisp
;;; funcs.el --- Ansible Layer functions File for Spacemacs
|
|
;;
|
|
;; Copyright (c) 2012-2016 Sylvain Benner & Contributors
|
|
;;
|
|
;; Author: Brian Hicks <brian@brianthicks.com>
|
|
;; URL: https://github.com/syl20bnr/spacemacs
|
|
;;
|
|
;; This file is not part of GNU Emacs.
|
|
;;
|
|
;;; License: GPLv3
|
|
|
|
(defun spacemacs//ansible-should-enable? ()
|
|
(and (stringp buffer-file-name)
|
|
(string-match spacemacs--ansible-filename-re buffer-file-name)))
|
|
|
|
(defun spacemacs/ansible-maybe-enable ()
|
|
(when (spacemacs//ansible-should-enable?)
|
|
(ansible 1)))
|
|
|
|
(defun spacemacs/ansible-company-maybe-enable ()
|
|
"Add the ansible company backend only for when ansible mode is active."
|
|
(when (spacemacs//ansible-should-enable?)
|
|
(add-to-list 'company-backends 'company-ansible)))
|
|
|
|
(defun spacemacs/ansible-doc-maybe-enable ()
|
|
(when (spacemacs//ansible-should-enable?)
|
|
(ansible-doc-mode 1)))
|
|
|
|
(defun spacemacs//ansible-reset-buffer-modified ()
|
|
"Force the modified buffer flag to nil."
|
|
(set-buffer-modified-p nil))
|