                                      ;; May be multiple words.
                                      ;; Take the first one.
                                      (nth 0 (split-string insertion)))
-
     (company-org-block--wrap-point (format "src %s%s"
                                            insertion
                                            (if company-org-block-explicit-lang-defaults

      "")))

(provide 'company-org-block)

(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
