emacs-orgmode
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Re: [Orgmode] Re: remember integration problem with 6.06


From: Rohan Nicholls
Subject: Re: [Orgmode] Re: remember integration problem with 6.06
Date: Thu, 18 Mar 2010 11:17:08 +0100

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 <address@hidden>
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 <address@hidden> wrote:
> That did it.
>
> Thanks for the help!
>
> On Wed, Sep 10, 2008 at 3:44 PM, Dan Griswold
<address@hidden>
> wrote:
>>
>> JBash <address@hidden> 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.
>> address@hidden
>> http://lists.gnu.org/mailman/listinfo/emacs-orgmode
>
>
> _______________________________________________
> Emacs-orgmode mailing list
> Remember: use `Reply All' to send replies to the list.
> address@hidden
> http://lists.gnu.org/mailman/listinfo/emacs-orgmode
>
>




reply via email to

[Prev in Thread] Current Thread [Next in Thread]