   "A company completion backend for org blocks.
 
 COMMAND and ARG are sent by company itself."
-  (interactive (list 'interactive))
+  (interactive (list #'interactive))
   (cl-case command
     (interactive (company-begin-backend 'company-org-block))
     (prefix (when (derived-mode-p 'org-mode)


(defun company-org-block--template-p (template)
  "Check if there is a TEMPLATE available for completion."
  (seq-contains-p (map-values org-structure-template-alist)
                  template))

(defun company-org-block--expand (insertion)
  "Replace INSERTION with generated source block."

;; along with GNU Emacs.  If not, see <https://www.gnu.org/licenses/>.

;;; Commentary:
;; `company-complete' org blocks using "<" as a trigger.
;;
;; To enable, add `company-org-block' to `company-backend'.

