[elpa] externals/tempel 85364d79fe 5/5: Revert "Add org source block support (Fix #48)"

[ELPA Syncer]

branch: externals/tempel
commit 85364d79fe240d43d234086fae75d0478eca75ed
Author: Daniel Mendler <mail@daniel-mendler.de>
Commit: Daniel Mendler <mail@daniel-mendler.de>

    Revert "Add org source block support (Fix #48)"
    
    This reverts commit bffdf5140c86cdae2d8b381ba31f82ed5f98720c.
---
 tempel.el | 20 +-------------------
 1 file changed, 1 insertion(+), 19 deletions(-)

diff --git a/tempel.el b/tempel.el
index 46ddf91fce..1439909606 100644
--- a/tempel.el
+++ b/tempel.el
@@ -89,10 +89,6 @@ must return a list of templates which apply to the buffer or 
context."
 If a file is modified, added or removed, reload the templates."
   :type 'boolean)
 
-(defcustom tempel-local-mode-hook (list  #'tempel-org-src-block-mode)
-  "Hooks which return the local mode at point, e.g., in Org source blocks."
-  :type 'hook)
-
 (defface tempel-field
   '((((class color) (min-colors 88) (background light))
      :background "#fdf0ff" :foreground "#541f4f")
@@ -465,27 +461,13 @@ This is meant to be a source in 
`tempel-template-sources'."
    (cl-loop
     for m in modes thereis
     (or (eq m #'fundamental-mode)
-        (provided-mode-derived-p
-         (or (run-hook-with-args-until-success 'tempel-local-mode-hook)
-             major-mode)
-         m)))
+        (derived-mode-p m)))
    (or (not (plist-member plist :condition))
        (save-excursion
          (save-restriction
            (save-match-data
              (eval (plist-get plist :condition) 'lexical)))))))
 
-(declare-function org-element-context "org-element")
-(declare-function org-src-get-lang-mode "org-src")
-(defun tempel-org-src-block-mode ()
-  "Return Org source block language mode when inside a source block."
-  (when-let* (((derived-mode-p 'org-mode))
-              (element (org-element-context))
-              ((eq 'src-block (car-safe element))))
-    (if-let (lang (plist-get (cadr element) :language))
-        (org-src-get-lang-mode lang)
-      #'fundamental-mode)))
-
 (defun tempel--templates ()
   "Return templates for current mode."
   (let (result)