From: Phil Hudson <phil.hudson@iname.com>
To: emacs-orgmode@gnu.org
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 [thread overview]
Message-ID: <87d24zplzz.fsf@quiz.hudson-it.ddns.net> (raw)
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
reply other threads:[~2015-02-24 11:50 UTC|newest]
Thread overview: [no followups] expand[flat|nested] mbox.gz Atom feed
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
List information: https://www.orgmode.org/
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=87d24zplzz.fsf@quiz.hudson-it.ddns.net \
--to=phil.hudson@iname.com \
--cc=emacs-orgmode@gnu.org \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
Code repositories for project(s) associated with this public inbox
https://git.savannah.gnu.org/cgit/emacs/org-mode.git
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).