Re: Re: remember integration problem with 6.06

From: Carsten Dominik <carsten.dominik@gmail.com>
To: rohan.nicholls@gmail.com
Cc: Org Mode List <emacs-orgmode@gnu.org>
Subject: Re: Re: remember integration problem with 6.06
Date: Fri, 19 Mar 2010 18:34:25 +0100	[thread overview]
Message-ID: <2B434AE3-A1B4-49CC-BF01-ED4DA492BF4C@gmail.com> (raw)
In-Reply-To: <ec6fed891003180317qb2e3f66pee08ad545bd10dfd@mail.gmail.com>

Hi Rohan,

if you are getting your org distribution through git, then
you need to make at least org-install.el like this.

make autoloads

Otherwise, your (require 'org-install) might pick the empty
org-install.el that comes with Emacs.

You can also type "make" to compile all lisp files, and this
will *also* produce lisp/org-install.el

If you do M-x find-library RET org-install RET, you will know which
one you are currently loading, and if org-remember-annotation is in
there.

HTH

- Carsten

On Mar 18, 2010, at 11:17 AM, Rohan Nicholls wrote:

> Hi all I am getting the same error, and have (require 'org-install) in
> my init.
>
> I have remember bound to F5-r which then brings up a choice including
> (t)odo
> which is what I was trying to do.
>
> This has been showing up when using the git bleeding edge, and a pull
> has not
> helped.
>
> Here is the traceback:
> Debugger entered--Lisp error: (error "Autoloading failed to define
> function org-remember-annotation")
> org-remember-annotation()
> run-hook-with-args-until-success(org-remember-annotation)
> remember(nil)
> call-interactively(remember nil nil)
>
>
> I have done a find-function on the item, and the only thing it found
> in org.el is
> this:
> (eval-and-compile
> (org-autoload "org-remember"
> 		'(org-remember-insinuate org-remember-annotation
> org-remember-apply-template org-remember org-remember-handler)))
>
>
> Below are all the running details of the system.  If anyone can point
> me in the right direction I would much appreciate it.  I don't think I
> should be just giving this an empty function, but maybe I can get away
> with it.
>
> Thanks in advance,
>
> Rohan
>
> P.S. I am still wondering about ettiquette with mail.  I have been
> using long-lines
> with emacs (mail) so readers do the wrapping automatically, and you
> don't get that
> hard return problem when in a narrow field, which could be on  
> mobiles etc.
> Anyone know what the current norms are for this?  hard wrap, or soft  
> wrap?
>
> I am running:
> GNU Emacs 23.1.50.1 (x86_64-apple-darwin10.2.0, NS
> apple-appkit-1038.25) of 2010-02-10
> this was compiled with homebrew in a mac os X, but the home system has
> a similar problem, and that is archlinux.
>
> Top of git log:
> commit ada3986f9d552f64e86caded38e0abac69bb9ae5
> Merge: a27d1c2 8625e5c
> Author: Carsten Dominik <carsten.dominik@gmail.com>
> Date:   Wed Feb 24 10:35:37 2010 +0100
>
>  Merge branch 'master' of git+ssh://repo.or.cz/srv/git/org-mode
>
> org-version gives:
> Org-mode version 6.34trans (release_6.34c.105.gada3)
>
> And here are my org settings.  As a note the 'recursive-files is
> something I whipped up in order to load everything into agenda under a
> directory.  I found it ridiculous that there is nothing built into
> emacs to do this sort of thing, if I am wrong, please let me know.
>
> --------------------------------------------------------------------
> ;; Org mode settings
> ;; org mode settings
> ;; The following lines are always needed.  Choose your own keys.
> (require 'recursive-files)
>
> (add-to-list 'load-path (concat site-lisp-dir "/org-mode/lisp"))
> (add-to-list 'Info-directory-list (concat site-lisp-dir "/org-mode/ 
> doc"))
> (require 'org-install)
> (add-to-list 'auto-mode-alist '("\\.org$" . org-mode))
> (add-hook 'org-mode-hook '(lambda ()
>                          (auto-fill-mode t)
>                          (setq comment-start nil)))
>
> ;  prefer return to activate a link
> (setq org-return-follows-link t)
>
> ;;;; This needs some major cleanup.
>
> (eval-after-load "org"
> '(progn
>   (define-prefix-command 'org-bindings-keymap)
>   (define-prefix-command 'org-todo-state-map)
>
>   (define-key org-bindings-keymap (vector ?l) 'org-store-link)
>   (define-key org-bindings-keymap (vector ?i) 'org-insert-link)
>   (define-key org-bindings-keymap (vector ?a) 'org-agenda)
>   (define-key org-bindings-keymap (vector ?s) 'org-todo-state-map)
>   (define-key org-bindings-keymap (vector ?o) 'org-open-at-point- 
> global)
>   (define-key org-bindings-keymap (vector ?r) 'remember)
>
>   (define-key org-todo-state-map "x"
>     #'(lambda () "Set to Cancelled" (interactive) (org-todo  
> "CANCELLED")))
>   (define-key org-todo-state-map "d"
>     #'(lambda () "Set to Done" (interactive) (org-todo "DONE")))
>   (define-key org-todo-state-map "i"
>     #'(lambda () "Set to In Progress"(interactive) (org-todo "IN  
> PROGRESS")))
>   (define-key org-todo-state-map "w"
>     #'(lambda () "Set to Waiting on Other"
>         (interactive) (org-todo "WAITING ON OTHER")))
>   (define-key org-todo-state-map "n"
>     #'(lambda () "Set Next Action "
>         (interactive) (org-todo "NEXT ACTION")))
>   (define-key org-todo-state-map "r"
>     #'(lambda () "Set to To Be Released"
>         (interactive) (org-todo "TO BE RELEASED")))
>   (define-key org-todo-state-map "p"
>     #'(lambda () "Set to Not A Priority"
>         (interactive) (org-todo "NOT A PRIORITY")))
>   (define-key org-todo-state-map "s"
>     #'(lambda () "Set to To Be Started"
>         (interactive) (org-todo "TO BE STARTED")))
>   (define-key org-todo-state-map "f"
>     #'(lambda () "Set to Fixed" (interactive) (org-todo "FIXED")))
>   (define-key org-todo-state-map "b"
>     #'(lambda () "Set to Not A Bug" (interactive) (org-todo "NOT A  
> BUG")))
>
>   ;; bind the keymap
>   (global-set-key [(f5)] 'org-bindings-keymap)
>
> ;;;        (define-key org-agenda-mode-map "\C-n" 'next-line)
> ;;;        (define-key org-agenda-keymap "\C-n" 'next-line)
> ;;;        (define-key org-agenda-mode-map "\C-p" 'previous-line)
> ;;;        (define-key org-agenda-keymap "\C-p" 'previous-line)
>   (define-key org-mode-map [(control c)(control x)(r)]
>     '(lambda (x)
>        (interactive "P")
>        (if x
>            (org-demote-subtree)
>          (org-do-demote))))
>   (define-key org-mode-map [(control c)(control x)(l)]
>     '(lambda (x)
>        (interactive "P")
>        (if x
>            (org-promote-subtree)
>          (org-do-promote))))
>     ;;; And for just updating todo statistics with a key:
>   (define-key org-bindings-keymap (vector ?u)
>     '(lambda ()
>        (interactive)
>        (org-update-parent-todo-statistics)
>        (org-update-checkbox-count)))
>   ))
>
> (defun find-agenda-includes()
> (let ((root (concat (getenv "HOME") "/notes"))
>      (dir-list '("gtd" "informaat")))
>  (apply #'append
>         (mapcar '(lambda (dir)
>                    (recfile-file-list (concat root "/" dir) ".*\ 
> \.org"))
>                 dir-list))))
> ;; e.g. working
> ;; (find-agenda-includes)
> ;; (length '("/Users/rohann/notes/informaat/servers/lima.org"
> "/Users/rohann/notes/informaat/achmea/xml-transport.org"
> "/Users/rohann/notes/informaat/project-urls.org"))
>
> (defun update-agenda-includes()
> (interactive)
> (setf org-agenda-files (find-agenda-includes)))
>
> (setq org-refile-targets  (mapcar #'(lambda (x)
>                                    (append (list x) '(:maxlevel . 1)))
>                                (find-agenda-includes)))
> (setq org-completion-use-ido t)
>
> ;;;; APPT org stuff
> (org-agenda-to-appt)
> (appt-activate t)
>
> (setq appt-message-warning-time '60)
> (setq appt-display-interval '15)
>
> (setq appt-display-format 'window)
> (setq appt-disp-window-function (function my-appt-disp-window))
>
> (defun my-appt-disp-window (min-to-app new-time msg)
> (save-window-excursion
>  (shell-command
>   (format "/usr/local/bin/growlnotify -m '%s' 'APPOINTMENT
> REMINDER'" ) nil nil)))
>
> ;; ;; remember and org settings
> (require 'remember nil t)
> (add-hook 'remember-mode-hook 'org-remember-apply-template)
> (setf
> org-directory "~/notes/"
> org-agenda-files (find-agenda-includes) ;; this is setup on boot.
> org-default-notes-file "~/notes/.notes"
> org-agenda-ndays 7
> org-deadline-warning-days 14
> org-agenda-show-all-dates t
> org-agenda-skip-scheduled-if-done t
> org-agenda-start-on-weekday nil
> org-reverse-note-order t
> org-fast-tag-selection-single-key 'expert
> org-agenda-custom-commands
> '(("d" todo "DELEGATED" nil)
> ("c" todo "DONE|DEFERRED|CANCELLED" nil)
> ("w" todo "TODO|ACTION|WAITING" nil)
> ("n" todo "NEXT ACTION" nil)
> ("W" agenda "" ((org-agenda-ndays 21)))
> ("A" agenda ""
>  ((org-agenda-skip-function
>    (lambda nil
>      (org-agenda-skip-entry-if (quote notregexp) "\\=.*\\[#A\\]")))
>   (org-agenda-ndays 1)
>   (org-agenda-overriding-header "Today's Priority #A tasks: ")))
> ("u" alltodo ""
>  ((org-agenda-skip-function
>    (lambda nil
>      (org-agenda-skip-entry-if (quote scheduled) (quote deadline)
>                                (quote regexp) "<[^>\n]+>")))
>   (org-agenda-overriding-header "Unscheduled TODO entries: ")))
> )
> org-log-note-state t
> )
>
> (autoload 'org-remember-annotation "org")
> (autoload 'org-remember-apply-template "org")
> (autoload 'org-remember-handler "org")
>
> (setf
> org-remember-store-without-prompt t
> ;; generate different templates for different types of note
> remember-annotation-functions '(org-remember-annotation)
> remember-handler-functions '(org-remember-handler)
> org-remember-templates
> '(("Todo" ?t "* TODO  %? %^g\n %i\n %u\n  %a" "~/notes/gtd/todo.org"  
> "Tasks")
> ("Note" ?j "* %u %?\n\n  %i\n  %a" "~/notes/gtd/notes.org" "Notes")
> ("Private" ?p "\n* %^{topic} %T \n%i%?\n" "~/notes/gtd/privnotes.org")
> ("Contact" ?c "\n* %^{Name} :CONTACT:\n%[l:/contemp.txt]\n"
>             "~/notes/gtd/privnotes.org")))
>
> ;; ;; agenda window configuration
> ;; ;;(setq org-agenda-window-setup 'reorganize-frame)
> (setq org-agenda-window-setup 'other-window)
> ;; ;; other values other-frame, current-window, other-window
> (setq org-agenda-restore-windows-after-quit t)
>
> (setq org-hide-leading-stars t)
> (setq org-todo-keywords
>    '((sequence "TODO" "NEXT ACTION(n@/!)" "|" "DONE(d@/!)")
>      (sequence "SOMEDAY(s@/!)" "WAITING ON OTHER(w@/!)"
>                "PROCRASTINATING(p)" "NEXT ACTION(a@/!)"
>                "TO BE RELEASED(r@/!)" "|" "NOT REPRODUCIBLE(!)"
> "FIXED(f@/!)"
>                "NOT A BUG(b@/!)"
>                "DELEGATED(d@/!)" "NOT A PRIORITY(!)" "DUPLICATE(@/!)")
>      (sequence "|" "CANCELLED(c@/!)")
>      (sequence "APPT(t!)" "|" "DONE"))
>    org-log-done '(state))
>
> ;; Have an item with subtasks it is counting automatically set
> ;; itself to done when all the subtasks are done.
> (defun org-summary-todo (n-done n-not-done)
> "Switch entry to DONE when all subentries are done, to TODO  
> otherwise."
> (let (org-log-done org-log-states)   ; turn off logging
>  (org-todo (if (= n-not-done 0) "DONE" "TODO"))))
> (add-hook 'org-after-todo-statistics-hook 'org-summary-todo)
>
> ;
>
> On Thu, Sep 11, 2008 at 4:05 PM, JBash <bashveank@gmail.com> wrote:
>> That did it.
>>
>> Thanks for the help!
>>
>> On Wed, Sep 10, 2008 at 3:44 PM, Dan Griswold
> <dgriswol@rochester.rr.com>
>> wrote:
>>>
>>> JBash <bashveank@gmail.com> writes:
>>>
>>>> When I type 'Ctrl-C r', which used to bring up the remember
> template, I
>>>> now
>>>> get:
>>>>
>>>> run-hook-with-args-until-success: Autoloading failed to define
> function
>>>> org-remember-annotation
>>>
>>>
>>> How about:
>>>
>>> (require 'org-install)
>>>
>>>
>>> I recently had problems that were resolved when I uncommented that
>>> line in my config. :\
>>>
>>> Dan
>>>
>>>
>>> --
>>> --------------
>>> Dan Griswold
>>> Rochester, NY
>>> --------------
>>>
>>>
>>>
>>> _______________________________________________
>>> Emacs-orgmode mailing list
>>> Remember: use `Reply All' to send replies to the list.
>>> Emacs-orgmode@gnu.org
>>> http://lists.gnu.org/mailman/listinfo/emacs-orgmode
>>
>>
>> _______________________________________________
>> Emacs-orgmode mailing list
>> Remember: use `Reply All' to send replies to the list.
>> Emacs-orgmode@gnu.org
>> http://lists.gnu.org/mailman/listinfo/emacs-orgmode
>>
>>
>
>
> _______________________________________________
> Emacs-orgmode mailing list
> Please use `Reply All' to send replies to the list.
> Emacs-orgmode@gnu.org
> http://lists.gnu.org/mailman/listinfo/emacs-orgmode

- Carsten