Re: [Orgmode] Feature Request

[Russell Adams]

I started tinkering, this being my first macro.

I can't say its behaving as I expected.

(defun my-daily-insertion
  (interactive)
  (beginning-of-buffer)
  (re-search-forward "DAILY-INSERTION-POINT")
  (forward-line -1)
  (insert "*** " (format-time-string "%Y%m%d" (current-time)) )
)

I'd welcome input.

Russell

On Wed, Sep 27, 2006 at 10:09:21AM -0500, Russell Adams wrote:
> The way I'm reading that macro, it'll prompt me for a date, etc. That
> would be useful for creating a range of dates in a tree if I needed to
> define a time period.
> 
> I guess I didn't explain myself clearly. I wanted to generate those
> dated headings under the "Daily" heading for the current date
> only. Just a shortcut so I can hit a single key to add todo items for
> today, and have them added to my chronological "Daily" tree.
> 
> I've just found that I'm managing TODO and agenda scheduled items
> well, but I didn't have a good way to handle all the little
> miscellaneous items that pop up. No reason to spend time filing them
> elsewhere, just a date would suffice. It also helps keep the tree
> sparse when searching.
> 
> Russell
> 
> On Tue, Sep 26, 2006 at 02:37:27PM +0200, Carsten Dominik wrote:
> > 
> > On Sep 26, 2006, at 1:58, Russell Adams wrote:
> > 
> > >I've gotten in a habit of storing my todo's in the following format,
> > >and I'm curious if there's a way to automate this...
> > >
> > >* Daily
> > >** 2006-09
> > >*** 2006-09-25
> > >**** TODO Item One
> > >
> > >I don't always have an item for each day, its sparsely populated, but
> > >I'd like to automate making the first few headings.
> > >
> > >Any suggestions? Even a macro? ;]
> > 
> > The cl macro "loop" is your friend....
> > 
> > (defun my-date-tree (y1 y2)
> >   (interactive "nFirst year: \nnLast year: ")
> >   (require 'calendar)
> >   (loop for y from y1 to y2 do
> >     (message "Doing year %d..." y)
> >     (insert "* " (format "%4d" y) "\n")
> >     (loop for m from 1 to 12 do
> >       (insert "** " (format "%4d-%02d" y m) "\n")
> >       (loop for d from 1 to 31 do
> >         (when (= m (car
> >                 (calendar-gregorian-from-absolute
> >                  (calendar-absolute-from-gregorian
> >                   (list m d y)))))
> >           (insert "*** " (format "%4d-%02d-%02d" y m d) "\n"))))))
> > 
> > Hope this helps
> > 
> > - Carsten
> > 
> ------------------------------------------------------------------
> Russell Adams                            address@hidden
> 
> PGP Key ID:     0x1160DCB3           http://www.adamsinfoserv.com/
> 
> Fingerprint:    1723 D8CA 4280 1EC9 557F  66E8 1154 E018 1160 DCB3
> 
> 
> _______________________________________________
> Emacs-orgmode mailing list
> address@hidden
> http://lists.gnu.org/mailman/listinfo/emacs-orgmode
------------------------------------------------------------------
Russell Adams                            address@hidden

PGP Key ID:     0x1160DCB3           http://www.adamsinfoserv.com/

Fingerprint:    1723 D8CA 4280 1EC9 557F  66E8 1154 E018 1160 DCB3