org-effectiveness.el (org-effectiveness-plot-ascii): fixed the problem changing the...
authorDavid Arroyo Menendez <davidam9@riseup.net>
Sat, 15 Mar 2014 09:15:34 +0000 (10:15 +0100)
committerDavid Arroyo Menendez <davidam9@riseup.net>
Sat, 15 Mar 2014 09:15:34 +0000 (10:15 +0100)
* org-effectiveness.el (org-effectiveness-plot-ascii): fixed the problem changing the year in org-effectivenss-plot-ascii

TINYCHANGE

contrib/lisp/org-effectiveness.el

index 4206a27..7cd0d1e 100644 (file)
@@ -224,21 +224,22 @@ 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))
-  (setq syear (cadr (assoc 'startyear dates)))
-  (setq smonth (cadr (assoc 'startmonth dates)))
-  (setq eyear (cadr (assoc 'endyear dates)))
-  (setq emonth (cadr (assoc 'endmonth dates)))
 ;;  (switch-to-buffer "*org-effectiveness*")
-  (let ((month smonth)
-       (year syear)
+  (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)))
        (str ""))
-    (while (and (>= eyear year) (>= emonth month))
+    (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))
-      (if (= month 12)
+      (if (eq month 12)
          (progn 
            (setq year (+ 1 year))
            (setq month 1))
-       (setq month (+ 1 month))))))
+       (setq month (+ 1 month))))
+))
 
 (provide 'org-effectiveness)