diff options
| -rw-r--r-- | account.el | 32 |
1 files changed, 18 insertions, 14 deletions
@@ -569,11 +569,19 @@ MATCH is required by Org-agenda, and relentlessly ignored by us." titles account-agenda-collector))) (mapc (lambda (element) + (setq all-cost (+ all-cost (car (cdr element))))) + info) + (insert + (propertize + (format "all: %d" all-cost) + 'face 'org-agenda-calendar-event)) + (newline 2) + (mapc + (lambda (element) (let* ((title (car element)) (cost (car (cdr element))) (date (get-text-property 0 'date title)) (date-face (org-agenda-get-day-face date))) - (setq all-cost (+ all-cost cost)) (insert (propertize title 'face date-face)) (newline) (mapc @@ -596,11 +604,6 @@ MATCH is required by Org-agenda, and relentlessly ignored by us." 'date date))) (newline)) info) - (newline 2) - (insert - (propertize - (format "all: %d" all-cost) - 'face 'org-agenda-calendar-event)) (newline) (goto-char (point-min)) (account-mode))) @@ -679,6 +682,11 @@ MATCH is required by Org-agenda, and relentlessly ignored by us." shop-cost-alist (lambda (cell1 cell2) (>= (cdr cell1) (cdr cell2))))) + (insert + (propertize + (format "all: %d" all-cost) + 'face 'org-agenda-calendar-event)) + (newline 2) (mapc (lambda (cell) (insert @@ -690,11 +698,6 @@ MATCH is required by Org-agenda, and relentlessly ignored by us." 'face 'org-agenda-calendar-event)) (newline)) shop-cost-alist) - (newline 2) - (insert - (propertize - (format "all: %d" all-cost) - 'face 'org-agenda-calendar-event)) (newline) (goto-char (point-min)) (account-mode))) @@ -932,13 +935,14 @@ a match." (setq temp (cdr temp)))) (require 'svg) (let* ((len (length result)) - (block-width (/ 800.0 len)) + (block-width 115) + (width (ceiling (* block-width len))) (index 0) (start 0) - (svg (svg-create 800 700 :stroke-width 10))) + (svg (svg-create width 700 :stroke-width 10))) (svg-circle svg - 400 350 1000 + (ceiling width 2) 350 (max width 1000) :fill-color "white") (mapc (lambda (cell) |