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: Carsten Dominik
Subject: Re: [Orgmode] Re: remember integration problem with 6.06
Date: Fri, 19 Mar 2010 18:34:25 +0100

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 <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




_______________________________________________
Emacs-orgmode mailing list
Please use `Reply All' to send replies to the list.
address@hidden
http://lists.gnu.org/mailman/listinfo/emacs-orgmode

- Carsten







reply via email to

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