From: "Sebastien Vauban" <wxhgmqzgwmuf-geNee64TY+gS+FvcfC7Uqw@public.gmane.org>
To: emacs-orgmode-mXXj517/zsQ@public.gmane.org
Subject: Re: [Sticky Agenda] How to create Agenda Buffers in functions
Date: Thu, 19 Apr 2012 22:17:08 +0200 [thread overview]
Message-ID: <80obqn79yz.fsf@somewhere.org> (raw)
In-Reply-To: 87limc73av.wl%max@openchat.com
Hi Max,
Max Mikhanosha wrote:
> Sven Bretfeld wrote:
>> The Sticky Agenda is something I have been waiting for since a long
>> time. Thank you very much!
Let me thank you for the sticky agenda as well. I can't say I'm using multiple
agendas in parallel -- while I'll surely make more use of it --, but the fact
that the agenda view comes almost instataneously is really great!
>> I want to write a function that creates a new frame with several
>> windows, each displaying a different Agenda Views. I fail to find a
>> function that creates special agenda views. Formerly I used
>> org-batch-agenda for similar purposes. But that doesn't work in the
>> sticky branch. This is what I have:
>>
>> (defun my-gtd-frame ()
>> (interactive)
>> (save-excursion)
>> (make-frame '(
>> (name . "gtd")
>> (active-alpha . 0.75)
>> (inactive-alpha . 0.8)
>> (top . 110)
>> (left . 2000)
>> (width . 80)
>> (height . 40)
>> (font . "-Adobe-Courier-Medium-R-Normal--18-180-75-75-M-110-ISO8859-1")))
>> (select-frame-by-name "gtd")
>> (toggle-fullscreen)
>> (org-agenda-goto-today)
>> (delete-other-windows)
>> (split-window-horizontally)
>> (other-window 1)
>> (org-batch-agenda "OFFICE/NEXT")
>> )
>
> This is the same bug as Martyn Jago reported earlier, basically I
> forgot that separate org agenda commands can be run individually
> rather then through (org-agenda) function.
>
> A temporary workaround in your specific case would be to wrap
> (org-batch-agenda) call like this:
>
> (catch 'exit
> (org-batch-agenda "OFFICE/NEXT"))
>
> I tested it and it seems to work.. The actual fix for the bug will be
> similar and will be wrapping bodies of (org-todo-list) (org-tags-list)
> and friends with (catch 'exit), but it needs to be done conditionally
> as to only do it its called individually and not from (org-agenda)
I tried the updated version of Sven:
#+begin_src emacs-lisp
(defun my-gtd-frame ()
(interactive)
(save-excursion)
(make-frame '(
(name . "gtd")
(active-alpha . 0.75)
(inactive-alpha . 0.8)
(top . 20)
(left . 20)
(width . 80)
(height . 40)))
(select-frame-by-name "gtd")
(org-agenda-goto-today)
(delete-other-windows)
(split-window-horizontally)
(other-window 1)
(catch 'exit
(org-batch-agenda "work")))
#+end_src
But I get the following error:
--8<---------------cut here---------------start------------->8---
Debugger entered--Lisp error: (error "Not allowed in nil-type agenda buffers")
signal(error ("Not allowed in nil-type agenda buffers"))
error("Not allowed in %s-type agenda buffers" nil)
(if error (error "Not allowed in %s-type agenda buffers" org-agenda-type) nil)
(if (memq org-agenda-type types) t (if error (error "Not allowed in %s-type agenda buffers" org-agenda-type) nil))
org-agenda-check-type(t timeline agenda)
org-agenda-goto-today()
my-gtd-frame()
call-interactively(my-gtd-frame)
(let* ((command (helm-comp-read "M-x " obarray :test (quote commandp) :requires-pattern helm-M-x-requires-pattern :name "Emacs Commands" :buffer "*helm M-x*" :persistent-action (quote pers-help) :persistent-help "Describe this command" :history history :must-match t :candidates-in-buffer t :fc-transformer (quote helm-M-x-transformer))) (sym-com (intern command))) (unless current-prefix-arg (setq current-prefix-arg helm-current-prefix-arg)) (setq this-command sym-com) (call-interactively sym-com) (setq extended-command-history (cons command (delete command history))))
(progn (fset (quote pers-help) (function* (lambda (candidate) (block pers-help (let ((hbuf ...)) (if (and in-help ...) (progn ... ...) (set-window-dedicated-p ... nil) (describe-function ...) (message nil) (setq in-help t)) (setq help-cand candidate)))))) (let* ((command (helm-comp-read "M-x " obarray :test (quote commandp) :requires-pattern helm-M-x-requires-pattern :name "Emacs Commands" :buffer "*helm M-x*" :persistent-action (quote pers-help) :persistent-help "Describe this command" :history history :must-match t :candidates-in-buffer t :fc-transformer (quote helm-M-x-transformer))) (sym-com (intern command))) (unless current-prefix-arg (setq current-prefix-arg helm-current-prefix-arg)) (setq this-command sym-com) (call-interactively sym-com) (setq extended-command-history (cons command (delete command history)))))
(unwind-protect (progn (fset (quote pers-help) (function* (lambda (candidate) (block pers-help (let (...) (if ... ... ... ... ... ...) (setq help-cand candidate)))))) (let* ((command (helm-comp-read "M-x " obarray :test (quote commandp) :requires-pattern helm-M-x-requires-pattern :name "Emacs Commands" :buffer "*helm M-x*" :persistent-action (quote pers-help) :persistent-help "Describe this command" :history history :must-match t :candidates-in-buffer t :fc-transformer (quote helm-M-x-transformer))) (sym-com (intern command))) (unless current-prefix-arg (setq current-prefix-arg helm-current-prefix-arg)) (setq this-command sym-com) (call-interactively sym-com) (setq extended-command-history (cons command (delete command history))))) (if --cl-letf-bound-- (fset (quote pers-help) --cl-letf-save--) (fmakunbound (quote pers-help))))
(let* ((--cl-letf-bound-- (fboundp (quote pers-help))) (--cl-letf-save-- (and --cl-letf-bound-- (symbol-function (quote pers-help))))) (unwind-protect (progn (fset (quote pers-help) (function* (lambda (candidate) (block pers-help (let ... ... ...))))) (let* ((command (helm-comp-read "M-x " obarray :test (quote commandp) :requires-pattern helm-M-x-requires-pattern :name "Emacs Commands" :buffer "*helm M-x*" :persistent-action (quote pers-help) :persistent-help "Describe this command" :history history :must-match t :candidates-in-buffer t :fc-transformer (quote helm-M-x-transformer))) (sym-com (intern command))) (unless current-prefix-arg (setq current-prefix-arg helm-current-prefix-arg)) (setq this-command sym-com) (call-interactively sym-com) (setq extended-command-history (cons command (delete command history))))) (if --cl-letf-bound-- (fset (quote pers-help) --cl-letf-save--) (fmakunbound (quote pers-help)))))
(letf (((symbol-function (quote pers-help)) (function* (lambda (candidate) (block pers-help (let (...) (if ... ... ... ... ... ...) (setq help-cand candidate))))))) (let* ((command (helm-comp-read "M-x " obarray :test (quote commandp) :requires-pattern helm-M-x-requires-pattern :name "Emacs Commands" :buffer "*helm M-x*" :persistent-action (quote pers-help) :persistent-help "Describe this command" :history history :must-match t :candidates-in-buffer t :fc-transformer (quote helm-M-x-transformer))) (sym-com (intern command))) (unless current-prefix-arg (setq current-prefix-arg helm-current-prefix-arg)) (setq this-command sym-com) (call-interactively sym-com) (setq extended-command-history (cons command (delete command history)))))
(letf* (((symbol-function (quote pers-help)) (function* (lambda (candidate) (block pers-help (let (...) (if ... ... ... ... ... ...) (setq help-cand candidate))))))) (let* ((command (helm-comp-read "M-x " obarray :test (quote commandp) :requires-pattern helm-M-x-requires-pattern :name "Emacs Commands" :buffer "*helm M-x*" :persistent-action (quote pers-help) :persistent-help "Describe this command" :history history :must-match t :candidates-in-buffer t :fc-transformer (quote helm-M-x-transformer))) (sym-com (intern command))) (unless current-prefix-arg (setq current-prefix-arg helm-current-prefix-arg)) (setq this-command sym-com) (call-interactively sym-com) (setq extended-command-history (cons command (delete command history)))))
(flet ((pers-help (candidate) (let ((hbuf (get-buffer (help-buffer)))) (if (and in-help (string= candidate help-cand)) (progn (unless (equal hbuf helm-current-buffer) (kill-buffer hbuf)) (setq in-help nil)) (set-window-dedicated-p (get-buffer-window helm-current-buffer) nil) (describe-function (intern candidate)) (message nil) (setq in-help t)) (setq help-cand candidate)))) (let* ((command (helm-comp-read "M-x " obarray :test (quote commandp) :requires-pattern helm-M-x-requires-pattern :name "Emacs Commands" :buffer "*helm M-x*" :persistent-action (quote pers-help) :persistent-help "Describe this command" :history history :must-match t :candidates-in-buffer t :fc-transformer (quote helm-M-x-transformer))) (sym-com (intern command))) (unless current-prefix-arg (setq current-prefix-arg helm-current-prefix-arg)) (setq this-command sym-com) (call-interactively sym-com) (setq extended-command-history (cons command (delete command history)))))
(let* (in-help help-cand special-display-buffer-names special-display-regexps helm-persistent-action-use-special-display (history (loop with hist for i in extended-command-history for com = (intern i) when (fboundp com) collect i into hist finally return hist))) (flet ((pers-help (candidate) (let ((hbuf (get-buffer ...))) (if (and in-help (string= candidate help-cand)) (progn (unless ... ...) (setq in-help nil)) (set-window-dedicated-p (get-buffer-window helm-current-buffer) nil) (describe-function (intern candidate)) (message nil) (setq in-help t)) (setq help-cand candidate)))) (let* ((command (helm-comp-read "M-x " obarray :test (quote commandp) :requires-pattern helm-M-x-requires-pattern :name "Emacs Commands" :buffer "*helm M-x*" :persistent-action (quote pers-help) :persistent-help "Describe this command" :history history :must-match t :candidates-in-buffer t :fc-transformer (quote helm-M-x-transformer))) (sym-com (intern command))) (unless current-prefix-arg (setq current-prefix-arg helm-current-prefix-arg)) (setq this-command sym-com) (call-interactively sym-com) (setq extended-command-history (cons command (delete command history))))))
helm-M-x()
call-interactively(helm-M-x nil nil)
--8<---------------cut here---------------end--------------->8---
Am I missing something?
Best regards,
Seb
--
Sebastien Vauban
next prev parent reply other threads:[~2012-04-19 20:17 UTC|newest]
Thread overview: 5+ messages / expand[flat|nested] mbox.gz Atom feed top
2012-04-03 17:10 [Sticky Agenda] How to create Agenda Buffers in functions Sven Bretfeld
2012-04-04 0:23 ` Max Mikhanosha
2012-04-04 5:30 ` Sven Bretfeld
2012-04-19 20:17 ` Sebastien Vauban [this message]
2012-04-20 1:39 ` Max Mikhanosha
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=80obqn79yz.fsf@somewhere.org \
--to=wxhgmqzgwmuf-genee64ty+gs+fvcfc7uqw@public.gmane.org \
--cc=emacs-orgmode-mXXj517/zsQ@public.gmane.org \
/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).