From cbae607adbe19eec753ba24c809eee2c13a52f8a Mon Sep 17 00:00:00 2001
From: Marco Thomas <mail@marco-thomas.net>
Date: Mon, 12 Jul 2021 12:35:57 +0200
Subject: [PATCH] org-bable: remove asking

---
 files/init.el | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

diff --git a/files/init.el b/files/init.el
index b7aeb36..fb18818 100644
--- a/files/init.el
+++ b/files/init.el
@@ -269,13 +269,18 @@
 		("p" "Personal" entry (file "~/org/personal.org") "* TODO %?\n"))))
   (setq org-edit-src-content-indentation 0))
 
+;; enable languages for inline evaluation
 (org-babel-do-load-languages
  'org-babel-load-languages '((python . t)
 			     (shell . t)
-			     (perl . t)
 			     (C . t)
 			     (dot . t)))
+; don't ask me every time!
+(defun my-org-confirm-babel-evaluate (lang body)
+  (not (member lang '("python" "shell" "C" "dot"))))
+(setq org-confirm-babel-evaluate 'my-org-confirm-babel-evaluate)
 
+;; fancy bullets for org
 (use-package org-bullets
   :ensure t
   :after org