From mboxrd@z Thu Jan 1 00:00:00 1970 From: Phil Hudson Subject: Bug: RFE: Truncate habit history [8.2.10 (8.2.10-33-g880a2b-elpa @ /home/phil/.emacs.d/elpa/org-20150216/)] Date: Tue, 24 Feb 2015 11:49:52 +0000 Message-ID: <87d24zplzz.fsf@quiz.hudson-it.ddns.net> Mime-Version: 1.0 Content-Type: text/plain Return-path: Received: from eggs.gnu.org ([2001:4830:134:3::10]:60874) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1YQE0H-00071Q-I3 for emacs-orgmode@gnu.org; Tue, 24 Feb 2015 06:50:22 -0500 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1YQE0D-0004EM-UN for emacs-orgmode@gnu.org; Tue, 24 Feb 2015 06:50:17 -0500 Received: from mail-wi0-x22d.google.com ([2a00:1450:400c:c05::22d]:49376) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1YQE0D-0004AN-JU for emacs-orgmode@gnu.org; Tue, 24 Feb 2015 06:50:13 -0500 Received: by mail-wi0-f173.google.com with SMTP id bs8so24834380wib.0 for ; Tue, 24 Feb 2015 03:50:12 -0800 (PST) Received: from quiz.hudson-it.ddns.net.quiz.hudson-it.ddns.net (82-71-5-38.dsl.in-addr.zen.co.uk. [82.71.5.38]) by mx.google.com with ESMTPSA id fm10sm20204427wib.7.2015.02.24.03.50.06 for (version=TLSv1.2 cipher=RC4-SHA bits=128/128); Tue, 24 Feb 2015 03:50:11 -0800 (PST) List-Id: "General discussions about Org-mode." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org Sender: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org To: emacs-orgmode@gnu.org 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 "\\" 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