[O] Bug: RFE: Truncate habit history [8.2.10 (8.2.10-33-g880a2b-elpa @ /home/phil/.emacs.d/elpa/org-20150216/)]

[Phil Hudson]

Remember to cover the basics, that is, what you expected to happen and
what in fact did happen.  You don't know how to make a good report?  See

     http://orgmode.org/manual/Feedback.html#Feedback

Your bug report will be posted to the Org-mode mailing list.
------------------------------------------------------------------------

Please support limiting the number of state-change history entries for
habits to, say, org-habit-preceding-days (by default, customizable, zero
to mean "keep all"). The history list for my habits just grows and
grows, to no purpose, but with the effect of slowing down habit cycling.

Emacs  : GNU Emacs 24.3.1 (x86_64-unknown-linux-gnu, X toolkit, Xaw3d scroll 
bars)
 of 2014-01-02 on quiz
Package: Org-mode version 8.2.10 (8.2.10-33-g880a2b-elpa @ 
/home/phil/.emacs.d/elpa/org-20150216/)

current state:
==============
(setq
    org-id-locations-file "~/.emacs.d/org-id-locations"
    org-hide-leading-stars t
    org-tab-first-hook '(org-hide-block-toggle-maybe
    org-src-native-tab-command-maybe
                            org-babel-hide-result-toggle-maybe 
org-babel-header-arg-expand)
    org-mobile-files '(org-agenda-files "~/org/bookmarks.org"
    "~/org/Cygwin-install-checklist.org"
                          "~/org/emacs-install-checklist.org"
                          "~/org/Handles.org" "~/org/Home-LAN.org"
                          "~/org/linux-install-checklist.org"
                          "~/org/Mac-install-checklist.org"
                          "~/org/Movies.org" "~/org/music.org" 
"~/org/Windows-install-checklist.org")
    org-speed-command-hook '(org-speed-command-default-hook 
org-babel-speed-command-hook)
    org-agenda-diary-file "~/SpiderOak/diary.org"
    org-occur-hook '(org-first-headline-recenter)
    org-metaup-hook '(org-babel-load-in-session-maybe)
    org-log-done 'time
    org-confirm-shell-link-function 'yes-or-no-p
    org-finalize-agenda-hook '(org-agenda-to-appt)
    org-special-ctrl-a/e t
    org-agenda-prefix-format '((agenda . "%-6:c%?-12t%-13s") (timeline . "% s")
    (todo . "%-12:c")
                                  (tags . "%-12:c") (search . "%-12:c"))
    org-return-follows-link t
    org-default-notes-file "~/org/notes.org"
    org-capture-templates '(("w" "Capture from web browser such as Conkeror"
    entry
                                (file+headline "~/org/bookmarks.org" "Web
                                capture")
                                "* %c %?\n  Sourced: %u\n  %i" :prepend t
                                :jump-to-captured t)
                               ("t" "Capture a task" entry (file+headline
                               "~/org/ToDo.org" "Incoming")
                                   "* TODO %?   %^G\n  SCHEDULED: %t\n  Created:
                                   %U\n  %^{Effort}p"
                                   :prepend t :jump-to-captured t)
                               ("b" "Capture a purchasing task" entry
                                   (file+headline "~/org/ToDo.org" "Incoming")
                                   "* TODO Bought %?  %^G:buy:work:\n
                                   SCHEDULED: %t\n  Created: %U\n
                                   :PROPERTIES:\n  :DATE_ORDERED: %u\n  :END:
                                   %^{PRICE}p" :prepend t :jump-to-captured t)
                               ("h" "Capture a habit" entry (file+headline
                               "~/org/ToDo.org" "Incoming")
                                   "* TODO %?  %^G\n  SCHEDULED:
                                   <%(format-time-string \"%Y-%m-%d %a\")
                                   .+%^{Interval:|1d}>\n  Created: %U\n
                                   :PROPERTIES:\n  :STYLE:    habit\n
                                   :REPEAT_TO_STATE: TODO\n  :END:" :prepend t
                                   :jump-to-captured t)
                               ("c" "Capture a phone call to make" entry
                                   (file+headline "~/org/ToDo.org" "Incoming")
                                   "* TODO Called %a on %c to %?   %^G:@phone:\n
                                   SCHEDULED: %t\n  Created: %U\n  %^{Effort}p"
                                   :prepend t :jump-to-captured t)
                               ("x" "Capture an SMS text message to send" entry
                                   (file+headline "~/org/ToDo.org" "Incoming")
                                   "* TODO Texted %a on %c to %?
                                   %^G:@phone:\n  SCHEDULED: %t\n  Created: %U\n
                                   %^{Effort}p" :prepend t :jump-to-captured t)
                               ("j" "Capture a journal entry" entry (file
                               "~/org/journal.org.gpg")
                                   "* %^u Daily journal:\n:PROPERTIES:\n:MOOD:
                                   
%^{Mood|10|1|2|3|4|5|6|7|8|9|10|11|12|13|14|15|16|17|18|19}\n:MOON:
                                   %(ph/lunar-current-phase-name)\n:STRESS:
                                   
%^{Stress|10|1|2|3|4|5|6|7|8|9|10|11|12|13|14|15|16|17|18|19}\n:BEHAVIOUR:
                                   
%^{Behaviour|10|1|2|3|4|5|6|7|8|9|10|11|12|13|14|15|16|17|18|19}\n:SNORKULATOR:
                                   
%^{Snorkulator|y|n}\n:END:\n%^{EXERCISE}p\n%^{DIET}p\n%^{MEDICATION}p\n%^{ALCOHOL}p\n%^{WEATHER}p\n%^{CONVERSATIONS}p\n%^{SLEEP}p\n%^{ROUTINE}p\n%^{BUSINESS_DEVELOPMENT}p"
                                   :jump-to-captured t)
                               ("m" "Bookmark email" entry
                                   (file+headline "~/org/bookmarks.org" "Email
                                   capture")
                                   "* [[gnus:%:group#%:message-id][%:subject
                                   (%:date) %:fromname]]"
                                   :prepend t :jump-to-captured t)
                               ("e" "Bookmark ERC chat" entry
                                   (file+headline "~/org/bookmarks.org" "ERC
                                   capture") "* %T\n  %c"
                                   :prepend t :jump-to-captured t)
                          )
    org-agenda-include-diary t
    org-after-todo-state-change-hook '(ph/org-set-or-clear-next-tag-if-current 
org-clock-out-if-current)
    org-todo-repeat-to-state "ITERATION"
    org-from-is-user-regexp "\\<Phil Hudson\\>"
    org-src-mode-hook '(org-src-babel-configure-edit-buffer 
org-src-mode-configure-edit-buffer)
    org-tags-column -106
    org-agenda-before-write-hook '(org-agenda-add-entry-text)
    org-babel-pre-tangle-hook '(save-buffer)
    org-global-properties '(("Effort_ALL" .
                                "0 0:10 0:20 0:30 0:45 1:00 1:30 2:00 3:00 4:00
                                5:00 6:00 7:00 8:00")
                          )
    org-agenda-dim-blocked-tasks 'invisible
    org-mode-hook '(ph/diminish-buf-face ph/setup-org-keys
    ph/recover-from-saveplace-folded
                       ph/enable-auto-revert-in-org-maybe
                       ph/disable-desktop-in-org-maybe
                       #[nil "\300\301\302\303\304$\207"
                            [org-add-hook change-major-mode-hook
                            org-show-block-all append local] 5]
                       #[nil "\300\301\302\303\304$\207"
                            [org-add-hook change-major-mode-hook
                            org-babel-show-result-all append local] 5]
                       org-babel-result-hide-spec org-babel-hide-all-hashes)
    org-refile-targets '((nil :maxlevel . 5) ("~/org/someday.org" :maxlevel . 5)
                            (org-agenda-files :maxlevel . 5)
                            ("~/org//home/phil/org/bookmarks.org" :maxlevel . 
5))
    org-agenda-compact-blocks t
    org-ctrl-c-ctrl-c-hook '(org-babel-hash-at-point 
org-babel-execute-safely-maybe)
    org-refile-use-outline-path 'file
    org-enforce-todo-dependencies t
    org-cycle-hook '(org-cycle-hide-archived-subtrees org-cycle-hide-drawers
    org-cycle-hide-inline-tasks
                        org-cycle-show-empty-lines 
org-optimize-window-after-visibility-change)
    org-agenda-tags-column -106
    org-archive-location "~/org/Archive/%s_done::"
    org-agenda-use-time-grid nil
    org-agenda-finalize-hook '(org-agenda-to-appt)
    org-enforce-todo-checkbox-dependencies t
    org-refile-allow-creating-parent-nodes 'confirm
    org-todo-keywords '((sequence "MAYBEORSOMEDAY(m)" "WAITING(w@)" "TODO(t)"
    "STARTED(s!)" "|" "DONE(d!)"
                            "CANCELED(c@)")
                           (sequence "ITERATION(i)" "|" "NEXT(n)"))
    org-modules '(org-bbdb org-bibtex org-docview org-gnus org-info org-jsinfo
    org-habit org-irc org-mew
                     org-mhe org-rmail org-vm org-wl org-w3m)
    org-agenda-window-setup 'current-window
    org-agenda-span 'day
    org-confirm-elisp-link-function 'yes-or-no-p
    org-metadown-hook '(org-babel-pop-to-session-maybe)
    org-mobile-post-push-hook '(ph/clean-up-org-mobile-cruft)
    org-blocker-hook '(org-block-todo-from-checkboxes 
org-block-todo-from-children-or-siblings-or-parent)
    org-mobile-directory "~/Dropbox/mobile"
    org-mobile-files-exclude-regexp "from-mobile\\.org"
    org-completion-use-ido t
    org-clock-in-hook '(ph/org-schedule-today ph/org-set-todo-state-started)
    org-habit-graph-column 55
    org-agenda-mode-hook '(ph/turn-off-filladapt-mode
    ph/diminish-org-agenda-indicator
                              ph/setup-org-agenda-keys)
    org-mobile-post-pull-hook '(ph/notify-org-mobile-pull-new-items)
    org-agenda-files '("~/Dropbox/googlecalendar.org"
    "~/Dropbox/arthurcalendar.org"
                          "~/Dropbox/frankcalendar.org"
                          "~/Dropbox/hollycalendar.org"
                          "~/Dropbox/kidscalendar.org"
                          "~/Dropbox/reminderscalendar.org"
                          "~/org/Birthdays.org" "~/org/notes.org"
                          "~/org/ToSell.org" "~/org/Travel.org"
                          "~/org/Leisure.org" "~/org/ToDo.org" 
"~/org/ToGet.org" "~/org/from-mobile.org")
    org-clock-out-hook '(org-clock-remove-empty-clock-drawer)
    org-src-fontify-natively t
    org-refile-target-verify-function 
'ph/org-refile-target-verify-not-done-state
    org-tag-alist '((:startgroup) ("@home" . 104) ("@office" . 111) ("@computer"
    . 99) ("@phone" . 112)
                       ("@online" . 79) ("@garden" . 103) (:endgroup) ("errands"
                       . 69) ("work" . 119)
                       ("edu" . 92) ("email" . 64) ("hands_on" . 95)
                       ("paperwork" . 80) ("read" . 114)
                       ("buy" . 98) ("meeting" . 35) ("coding" . 42) ("travel" .
                       84) ("leisure" . 76)
                       ("family" . 70) ("pets" . 96) ("health" . 72) ("finance"
                       . 102) ("webapps" . 87)
                       ("mac" . 109) ("_n_x" . 117) ("Windows" . 45) ("research"
                       . 63) ("security" . 126)
                       ("emacs" . 101) ("screen" . 115) ("tcsh" . 116) ("lisp" .
                       108) ("meta-org(+)")
                       ("shell" . 83) ("vm" . 118) ("ux" . 85) ("bug" . 66)
                       ("rfe" . 82) ("db" . 68)
                       ("officialdom" . 60) ("next" . 110) ("social" . 120)
                       ("Android" . 97) ("scm" . 47)
                       ("testing" . 33) ("debian" . 100) ("network" . 78))
    )
-- 
Phil Hudson                   http://hudson-it.ddns.net
@UWascalWabbit                 PGP/GnuPG ID: 0x887DCA63