 	  (const :tag "prompt: ask before edit" prompt)
 	  (const :tag "auto edit, no prompt" auto)))
 
-(defvar company-org--regexp "<\\([^ ]*\\)")
+(defvar company-org-block--regexp "<\\([^ ]*\\)")
 
 (defun company-org-block (command &optional arg &rest _ignored)
   "A company completion backend for org blocks.

  "Return cons with symbol and t whenever prefix of < is found.
For example: \"<e\" -> (\"e\" . t)"
  (when (looking-back (if company-org-block-complete-at-bol
                          (concat "^" company-org--regexp)
                        company-org--regexp)
                      (line-beginning-position))
    (cons (match-string-no-properties 1) t)))



(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."
