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