From 4e5d3264d445bb03a47d833d09ba2762d53eaffe Mon Sep 17 00:00:00 2001
From: Marc Pohling <marc.pohling@googlemail.com>
Date: Fri, 20 Apr 2018 21:18:57 +0200
Subject: [PATCH] added beancount to babel

---
 config.org | 15 +++++++++------
 1 file changed, 9 insertions(+), 6 deletions(-)

diff --git a/config.org b/config.org
index b6c1dd8..2566fee 100644
--- a/config.org
+++ b/config.org
@@ -366,6 +366,7 @@ This code block is linux specific. Loading languages which aren't available seem
      (js . t)
      (latex . t)
      (ledger . t)
+     (beancount . t)
      (lisp . t)
      (python . t)
      (R . t)
@@ -381,12 +382,13 @@ This code block is linux specific. Loading languages which aren't available seem
 #+begin_src emacs-lisp
  (defun my-org-confirm-babel-evaluate (lang body)
      "Do not confirm evaluation for these languages."
-     (not (or (string= lang "C")
+     (not (or (string= lang "beancount")
+              (string= lang "C")
+              (string= lang "emacs-lisp")
               (string= lang "java")
+              (string= lang "ledger")
               (string= lang "python")
               (string= lang "R")
-              (string= lang "ledger")
-              (string= lang "emacs-lisp")
               (string= lang "sqlite"))))
  (setq org-confirm-babel-evaluate 'my-org-confirm-babel-evaluate)
 #+end_src
@@ -637,9 +639,9 @@ deactivate
   (load "/home/marc/.emacs.d/elisp/beancount-mode.el") ; somehow load-path in use-package doesn't work
   (use-package beancount
     :load-path "/home/marc/.emacs.d/elisp"
-    :mode ("\\.beancount$" . bean-mode)
+    :mode ("\\.beancount$" . beancount-mode)
     :init
-    (add-hook 'bean-mode-hook 'company/beancount-mode-hook)
+    (add-hook 'beancount-mode-hook 'company/beancount-mode-hook)
     (setenv "PATH"
           (concat
            "/opt/beancount/bin:"
@@ -853,7 +855,8 @@ Backend configuration for beancount
 #+begin_src emacs-lisp
 (defun company/beancount-mode-hook()
   (set (make-local-variable 'company-backends)
-       '((company-beancount company-dabbrev) company-capf company-files))
+       '(company-beancount))
+;       '((company-beancount company-dabbrev) company-capf company-files))
   (company-mode t)
 )
 #+end_src