                 (map-values org-babel-tangle-lang-exts)))))
 
 (defun company-org-block--template-p (template)
+  "Check if there is a TEMPLATE available for completion."
   (seq-contains (map-values org-structure-template-alist)
                 template))
 
 (defun company-org-block--expand (insertion)
-  "Replace INSERTION with actual source block."
+  "Replace INSERTION with generated source block."
   (delete-region (point) (- (point) (1+ ;; Include "<" in length.
                                      (length insertion))))
   (if (company-org-block--template-p insertion)


For example: \"python\" resolves to:

((:exports . \"both\")
 (:results . \"output\"))

and returns:


(require 'map)
(require 'org)
(require 'seq)
(require 'company)

(defcustom company-org-block-complete-at-bol t
  "If t, detect completion only at the beginning of lines."
  :type 'boolean)

(defcustom company-org-block-explicit-lang-defaults t
