                (append
                 (mapcar #'prin1-to-string
                         (map-keys org-babel-load-languages))
-                (map-values org-structure-template-alist)))))
+                (map-values org-structure-template-alist)
+                (map-values org-babel-tangle-lang-exts)))))
 
 (defun company-org-block--template-p (template)
   (seq-contains (map-values org-structure-template-alist)

    ;; For example, org-babel-default-header-args:python.
    (let* ((lang-headers-var (intern
			      (concat "org-babel-default-header-args:" insertion)))
           (headers (if (boundp lang-headers-var)
                        (seq-reduce (lambda (value element)
                                      (format "%s %s %s"
                                              value


(defvar company-org-block-bol-p t "If t, detect completion when at
begining of line, otherwise detect completion anywhere.")

(defvar company-org-block-explicit-defaults-p t "If t, insert
org-babel-default-header-args:lang into block header.")

(defvar company-org--regexp "<\\([^ ]*\\)")

