diff options
author | David Arroyo Menendez <davidam9@riseup.net> | 2014-03-15 11:02:51 +0100 |
---|---|---|
committer | David Arroyo Menendez <davidam9@riseup.net> | 2014-03-15 11:02:51 +0100 |
commit | 002b451285c946db8292b01e36599a9fe89ee5f6 (patch) | |
tree | 104b6c669c4c6ca5c5b59f12d2c5be9b11960cae | |
parent | 48dd94cc39a41c789bf23892dab27d38287d5d7e (diff) | |
download | org-mode-002b451285c946db8292b01e36599a9fe89ee5f6.tar.gz |
org-effectiveness.el (org-effectiveness-plot-ascii): now we open a new buffer with the ascii bars
* org-effectiveness.el (org-effectiveness-plot-ascii): now we open a new buffer with the ascii bars
TINYCHANGE
-rw-r--r-- | contrib/lisp/org-effectiveness.el | 14 |
1 files changed, 9 insertions, 5 deletions
diff --git a/contrib/lisp/org-effectiveness.el b/contrib/lisp/org-effectiveness.el index 7cd0d1e..9981712 100644 --- a/contrib/lisp/org-effectiveness.el +++ b/contrib/lisp/org-effectiveness.el @@ -224,22 +224,26 @@ many TODO pending" (defun org-effectiveness-plot-ascii (startdate enddate) (interactive "sGive me the start date: \nsGive me the end date: " startdate enddate) (setq dates (org-effectiveness-check-dates startdate enddate)) -;; (switch-to-buffer "*org-effectiveness*") (let ((syear (cadr (assoc 'startyear dates))) (smonth (cadr (assoc 'startmonth dates))) (year (cadr (assoc 'startyear dates))) (month (cadr (assoc 'startmonth dates))) (emonth (cadr (assoc 'endmonth dates))) (eyear (cadr (assoc 'endyear dates))) + (buffer (current-buffer)) (str "")) - (while (or (>= eyear year) (and (= eyear year) (>= emonth month))) - (org-effectiveness-ascii-bar (string-to-number (org-effectiveness-in-date (concat (number-to-string year) "-" (org-effectiveness-month-to-string month)) 1)) (format "%s-%s" year month)) + (while (or (> eyear year) (and (= eyear year) (>= emonth month))) + (setq str (org-effectiveness-in-date (concat (number-to-string year) "-" (org-effectiveness-month-to-string month)) 1)) + (switch-to-buffer "*org-effectiveness*") + (org-effectiveness-ascii-bar (string-to-number str) (format "%s-%s" year month)) + (switch-to-buffer buffer) (if (eq month 12) (progn (setq year (+ 1 year)) (setq month 1)) - (setq month (+ 1 month)))) -)) + (setq month (+ 1 month))))) + (switch-to-buffer "*org-effectiveness*")) + (provide 'org-effectiveness) |