From mboxrd@z Thu Jan 1 00:00:00 1970 From: Simon Michael Subject: [PATCH] Add org-babel support for hledger Date: Sat, 18 Feb 2017 18:44:55 +0000 Message-ID: Mime-Version: 1.0 (Mac OS X Mail 9.3 \(3124\)) Content-Type: text/plain; charset=us-ascii Content-Transfer-Encoding: quoted-printable Return-path: Received: from eggs.gnu.org ([2001:4830:134:3::10]:47135) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1cfA0E-0001Fn-BD for emacs-orgmode@gnu.org; Sat, 18 Feb 2017 13:45:03 -0500 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1cfA0B-0003Qe-8L for emacs-orgmode@gnu.org; Sat, 18 Feb 2017 13:45:02 -0500 Received: from out4-smtp.messagingengine.com ([66.111.4.28]:45756) by eggs.gnu.org with esmtps (TLS1.0:DHE_RSA_AES_256_CBC_SHA1:32) (Exim 4.71) (envelope-from ) id 1cfA0B-0003QF-0T for emacs-orgmode@gnu.org; Sat, 18 Feb 2017 13:44:59 -0500 Received: from compute1.internal (compute1.nyi.internal [10.202.2.41]) by mailout.nyi.internal (Postfix) with ESMTP id F1E3F206D9 for ; Sat, 18 Feb 2017 13:44:56 -0500 (EST) Received: from [192.168.1.5] (95-44-155-227-dynamic.agg2.grs.prp-wtd.eircom.net [95.44.155.227]) by mail.messagingengine.com (Postfix) with ESMTPA id 7A83F2436E for ; Sat, 18 Feb 2017 13:44:56 -0500 (EST) List-Id: "General discussions about Org-mode." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org Sender: "Emacs-orgmode" To: emacs-orgmode@gnu.org Hello all, thanks for org-mode.=20 I'd like org-babel to support hledger for generating financial reports, = similar to the existing support for Ledger.=20 I don't know the exact process to follow (instructions in the git repo, = on the website and in irc are different) and have not yet signed FSF = copyright assignment - any help appreciated. Below is the output of git = format-patch. Best, -Simon =46rom 4b9348d9b8eaecea948b4295776d4f33e1d43c0d Mon Sep 17 00:00:00 2001 From: Simon Michael Date: Sat, 18 Feb 2017 18:14:54 +0000 Subject: [PATCH] Add org-babel support for hledger * lisp/ob-hledger.el: * lisp/org.el (org-babel-load-languages): * lisp/ox-html.el (org-html-style-default): allow calling hledger from = org-babel --- lisp/ob-hledger.el | 70 = ++++++++++++++++++++++++++++++++++++++++++++++++++++++ lisp/org.el | 1 + lisp/ox-html.el | 1 + 3 files changed, 72 insertions(+) create mode 100644 lisp/ob-hledger.el diff --git a/lisp/ob-hledger.el b/lisp/ob-hledger.el new file mode 100644 index 000000000..90c6fa981 --- /dev/null +++ b/lisp/ob-hledger.el @@ -0,0 +1,70 @@ +;;; ob-hledger.el --- org-babel functions for hledger + +;; Copyright (C) 2010-2017 Free Software Foundation, Inc. + +;; Author: Simon Michael +;; Keywords: literate programming, reproducible research, plain text = accounting +;; Homepage: http://orgmode.org + +;; This file is part of GNU Emacs. + +;; GNU Emacs is free software: you can redistribute it and/or modify +;; it under the terms of the GNU General Public License as published by +;; the Free Software Foundation, either version 3 of the License, or +;; (at your option) any later version. + +;; GNU Emacs is distributed in the hope that it will be useful, +;; but WITHOUT ANY WARRANTY; without even the implied warranty of +;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +;; GNU General Public License for more details. + +;; You should have received a copy of the GNU General Public License +;; along with GNU Emacs. If not, see . + +;;; Commentary: + +;; Org-Babel support for evaluating hledger entries. +;; +;; Based on ob-ledger.el. =20 +;; If the source block is empty, hledger will use a default journal = file, +;; probably ~/.hledger.journal (it may not notice your $LEDGER_FILE env = var). +;; So make ~/.hledger.journal a symbolic link to the real file if = necessary. + +;;; Code: +(require 'ob) + +(defvar org-babel-default-header-args:hledger + '((:results . "output") (:exports . "results") (:cmdline . "bal")) + "Default arguments to use when evaluating a hledger source block.") + +(defun org-babel-execute:hledger (body params) + "Execute a block of hledger entries with org-babel. This function is +called by `org-babel-execute-src-block'." + (message "executing hledger source code block") + (let ((result-params (split-string (or (cdr (assoc :results params)) = ""))) + (cmdline (cdr (assoc :cmdline params))) + (in-file (org-babel-temp-file "hledger-")) + (out-file (org-babel-temp-file "hledger-output-"))) + (with-temp-file in-file (insert body)) + (message "%s" (concat "hledger" + (if (> (length body) 0) + (concat " -f " = (org-babel-process-file-name in-file)) + "") + " " cmdline)) + (with-output-to-string + (shell-command (concat "hledger" + (if (> (length body) 0) + (concat " -f " = (org-babel-process-file-name in-file)) + "") + " " cmdline + " > " (org-babel-process-file-name = out-file)))) + (with-temp-buffer (insert-file-contents out-file) = (buffer-string)))) + +(defun org-babel-prep-session:hledger (session params) + (error "hledger does not support sessions")) + +(provide 'ob-hledger) + + + +;;; ob-hledger.el ends here diff --git a/lisp/org.el b/lisp/org.el index 3290a2b96..0afd37360 100644 --- a/lisp/org.el +++ b/lisp/org.el @@ -268,6 +268,7 @@ requirements) is loaded." (const :tag "Fortran" fortran) (const :tag "Gnuplot" gnuplot) (const :tag "Haskell" haskell) + (const :tag "hledger" hledger) (const :tag "IO" io) (const :tag "J" J) (const :tag "Java" java) diff --git a/lisp/ox-html.el b/lisp/ox-html.el index 0ca19ef45..f629cbd52 100644 --- a/lisp/ox-html.el +++ b/lisp/ox-html.el @@ -333,6 +333,7 @@ for the JavaScript code in this tag. pre.src-fortran:before { content: 'Fortran'; } pre.src-gnuplot:before { content: 'gnuplot'; } pre.src-haskell:before { content: 'Haskell'; } + pre.src-hledger:before { content: 'hledger'; } pre.src-java:before { content: 'Java'; } pre.src-js:before { content: 'Javascript'; } pre.src-latex:before { content: 'LaTeX'; } --=20 2.11.0