just todays agenda for just the current buffer

Question

I would like to make a quick access agenda for today and just for the current buffer.

So my approach looks like this, but it does not work.

(setq org-agenda-custom-commands
   '(
     ("o"                                ;; Key
      "todays agenda for current buffer" ;; Description
      agenda                             ;; Type agenda
      ((org-agenda-files `(,(buffer-file-name))) 
       (org-agenda-span 1))              ;; Options
     )))

I found some inspiration here but it does not really work here atm.

I know you can narrow the agenda to current buffer with < but if it is possible I would prefer to use a custom agenda.

An explanation why this approach does not work would be appreciated.

Answer 1

The only problem is that you have forgotten a mandatory piece in the command. C-h v org-agenda-custom-commands says in part:

Each entry is a list like this:

   (key desc type match settings files)

...

type     The command type, any of the following symbols:
          agenda      The daily/weekly agenda.
...
match    What to search for:
          ...
          For all other commands, this should be the empty string.
settings  A list of option settings, similar to that in a let form, so like
          this: ((opt1 val1) (opt2 val2) ...).   The values will be
          evaluated at the moment of execution, so quote them when needed.
...

Since you are not using a match you just omitted it, but that's not correct: For all other commands, this (i.e. the match expression) should be the empty string. So it is looking for a match expression and since there is no empty string there, it goes after the settings instead and tries to interpret them as a match expression, with predictably chaotic results.

Try this:

(setq org-agenda-custom-commands
   '(
     ("o"                                ;; Key
      "todays agenda for current buffer" ;; Description
      agenda                             ;; Type agenda
      ""                                 ;; Match expression
      ((org-agenda-files `(,(buffer-file-name))) 
       (org-agenda-span 1))              ;; Options
     )))

That seems to have worked in my (rather superficial) experiment.