;;; packages.el --- Finance Layer packages File for Spacemacs
;;
;; Copyright (c) 2012-2014 Sylvain Benner
;; Copyright (c) 2014-2015 Sylvain Benner & Contributors
;; Author: Sylvain Benner <sylvain.benner@gmail.com>
;; URL: https://github.com/syl20bnr/spacemacs
;; This file is not part of GNU Emacs.
;;; License: GPLv3
(setq finance-packages
'(
company
flycheck-ledger
ledger-mode
))
(when (configuration-layer/layer-usedp 'syntax-checking)
(defun finance/init-flycheck-ledger ()
(with-eval-after-load 'flycheck
(require 'flycheck-ledger))))
(defun finance/init-ledger-mode ()
(use-package ledger-mode
:mode ("\\.\\(ledger\\|ldg\\)\\'" . ledger-mode)
:defer t
:init
(progn
(setq ledger-post-amount-alignment-column 62)
(push 'company-capf company-backends-ledger-mode)
(spacemacs/set-leader-keys-for-major-mode 'ledger-mode
"mhd" 'ledger-delete-current-transaction
"ma" 'ledger-add-transaction
"mb" 'ledger-post-edit-amount
"mc" 'ledger-toggle-current
"mC" 'ledger-mode-clean-buffer
"ml" 'ledger-display-ledger-stats
"mp" 'ledger-display-balance-at-point
"mq" 'ledger-post-align-xact
"mr" 'ledger-reconcile
"mR" 'ledger-report
"mt" 'ledger-insert-effective-date
"my" 'ledger-set-year
"m RET" 'ledger-set-month)
(evilified-state-evilify ledger-report-mode ledger-report-mode-map))))
(when (configuration-layer/layer-usedp 'auto-completion)
(defun finance/post-init-company ()
(spacemacs|add-company-hook ledger-mode)))