emacs-orgmode@gnu.org archives
 help / color / mirror / code / Atom feed
From: Nick Dokos <nicholas.dokos@hp.com>
To: niels giesen <niels.giesen@gmail.com>
Cc: nicholas.dokos@hp.com, emacs-orgmode@gnu.org
Subject: Re: Default directory in org-agenda-mode
Date: Wed, 12 Jan 2011 14:12:19 -0500	[thread overview]
Message-ID: <23847.1294859539@gamaville.dokosmarshall.org> (raw)
In-Reply-To: Message from niels giesen <niels.giesen@gmail.com> of "Wed, 12 Jan 2011 19:29:39 +0100." <8739oy3rho.fsf@gmail.com>

niels giesen <niels.giesen@gmail.com> wrote:

> Hi all,
> 
> I would like `default-directory' in `org-agenda-mode' to be the
> value of `org-directory'. This is because I tend to start my
> working day by opening the Agenda view, and then decide to open
> some org file (which I all have inside `org-directory' and that
> may or may not have items present in the specific Agenda view). 
> 
> To this end I tried doing the following:
> 
> #+begin_src emacs-lisp
>   (add-to-list
>    'default-directory-alist
>    `(org-agenda-mode
>      ,org-directory))
> #+end_src    
> 
> But this does not work. Any ideas?
> 

AFAIK, there is no variable default-directory-alist - at least, my
emacs does not know anything about it.

What you want is to change the default directory of the agenda buffer.
When the agenda buffer is created, org-agenda-mode is called to set
the major mode. Most major modes (including org-agenda-mode) define
hooks: a hook is a variable that holds a list of functions. The mode
calls each function in the hook when it is enabled. So the trick
is to add a function to the appropriate hook. Typically something
like this will suffice:

   (add-hook 'org-agenda-mode-hook (function (lambda () (setq default-directory org-directory))))

The only problem is where to add this line of code: if you add it to .emacs
or some other initialization file, you might get an error because
org-agenda-mode-hook is not defined yet. One way to get out of the
chicken/egg situation is to load org-agenda before you add the function
to the hook. Another way is to eval the above "on demand" when org
agenda is loaded:

   (eval-after-load "org-agenda"
     (quote
       (progn 
          ...
          (add-hook 'org-agenda-mode-hook (function (lambda () (setq default-directory org-directory)))))))

(the progn is there in case you have to do more than one thing when
loading the agenda: if you only have one thing, just remove the
ellipsis).  This can safely be put into an initialization file like
.emacs.

You should also read the doc for add-hook (C-h f add-hook <RET>) and for
whatever hook variable you are modifying (e.g. C-h v
org-agenda-mode-hook <RET>: there are some fine points in add-hook that
I have not gone into above - otoh, org-agenda-mode-hook is bog-standard.

HTH,
Nick

  reply	other threads:[~2011-01-12 19:12 UTC|newest]

Thread overview: 4+ messages / expand[flat|nested]  mbox.gz  Atom feed  top
2011-01-12 18:29 Default directory in org-agenda-mode niels giesen
2011-01-12 19:12 ` Nick Dokos [this message]
2011-01-12 19:41   ` Niels Giesen
2011-01-12 19:23 ` Tassilo Horn

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=23847.1294859539@gamaville.dokosmarshall.org \
    --to=nicholas.dokos@hp.com \
    --cc=emacs-orgmode@gnu.org \
    --cc=niels.giesen@gmail.com \
    /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).