From mboxrd@z Thu Jan 1 00:00:00 1970 From: Gustavo Barros Subject: Bug: Can't access org agenda custom command [9.2.1 (9.2.1-33-g029cf6-elpaplus @ /home/gustavo/.emacs.d/elpa/org-plus-contrib-20190225/)] Date: Mon, 25 Feb 2019 22:19:24 -0300 Message-ID: <2880a41f-4ca2-0a6e-7c61-098233cae0e9@gmail.com> Mime-Version: 1.0 Content-Type: text/plain; charset=utf-8; format=flowed Content-Transfer-Encoding: 7bit Return-path: Received: from eggs.gnu.org ([209.51.188.92]:47586) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1gyRPL-0006Yx-72 for emacs-orgmode@gnu.org; Mon, 25 Feb 2019 20:19:45 -0500 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1gyRPI-0003n3-W7 for emacs-orgmode@gnu.org; Mon, 25 Feb 2019 20:19:42 -0500 Received: from mail-qk1-x72b.google.com ([2607:f8b0:4864:20::72b]:42844) by eggs.gnu.org with esmtps (TLS1.0:RSA_AES_128_CBC_SHA1:16) (Exim 4.71) (envelope-from ) id 1gyRPI-0003Xs-LX for emacs-orgmode@gnu.org; Mon, 25 Feb 2019 20:19:40 -0500 Received: by mail-qk1-x72b.google.com with SMTP id y140so6622773qkb.9 for ; Mon, 25 Feb 2019 17:19:30 -0800 (PST) Received: from [10.62.10.6] ([194.59.251.74]) by smtp.gmail.com with ESMTPSA id 46sm9895217qto.87.2019.02.25.17.19.27 for (version=TLS1_2 cipher=ECDHE-RSA-AES128-GCM-SHA256 bits=128/128); Mon, 25 Feb 2019 17:19:28 -0800 (PST) Content-Language: pt-BR List-Id: "General discussions about Org-mode." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org Sender: "Emacs-orgmode" To: emacs-orgmode@gnu.org Remember to cover the basics, that is, what you expected to happen and what in fact did happen. You don't know how to make a good report? See https://orgmode.org/manual/Feedback.html#Feedback Your bug report will be posted to the Org mailing list. ------------------------------------------------------------------------ Hi all, I've been having trouble with my custom agenda commands since the latest update. The agenda dispatcher used to work fine until the last update, but now, given one of my custom agenda commands, it issues the error "org-agenda-get-restriction-and-command: Wrong number of arguments". I do believe the problem is due to the recent changes to the mentioned function, discussed in the following thread: http://lists.gnu.org/archive/html/emacs-orgmode/2019-02/msg00291.html To test things, I started with `emacs -Q`, and evaluated the following: #+begin_src emacs-lisp (require 'package) (package-initialize) (require 'org) (custom-set-variables '(org-agenda-files (quote ("~/Gustavo/Documents/Pessoal/Org Agenda/pessoal.org" "~/Gustavo/Documents/Pessoal/Org Agenda/trabalho.org"))) '(org-agenda-custom-commands (quote (("h" . "Home Agenda Views") ("hh" "Home Agenda" ((agenda "" ((org-agenda-overriding-header "Today (Home)") (org-agenda-span (quote day)))) (todo "" ((org-agenda-overriding-header "Tasks") (org-agenda-todo-ignore-with-date t) (org-agenda-skip-function (quote (org-agenda-skip-entry-if (quote todo) (quote ("SOMEDAY")))))))) ((org-agenda-files (quote ("~/Gustavo/Documents/Pessoal/Org Agenda/pessoal.org")))) nil) ("hs" "Someday Tasks" todo "SOMEDAY" ((org-agenda-files (quote ("~/Gustavo/Documents/Pessoal/Org Agenda/pessoal.org"))))) ("w" . "Work Agenda Views") ("ww" "Work Agenda" ((agenda "" ((org-agenda-overriding-header "Today (Work)") (org-agenda-span (quote day)))) (todo "" ((org-agenda-overriding-header "Tasks") (org-agenda-todo-ignore-with-date t) (org-agenda-skip-function (quote (org-agenda-skip-entry-if (quote todo) (quote ("SOMEDAY")))))))) nil nil) ("ws" "Someday Tasks" todo "SOMEDAY" nil) ("n" "Agenda and all TODOs" ((agenda "" nil) (alltodo "" nil)) nil))))) #+end_src With this, =M-x org-version= returns: "Org mode version 9.2.1 (9.2.1-33-g029cf6-elpaplus @ /home/gustavo/.emacs.d/elpa/org-plus-contrib-20190225/)". In this setting, if I try to access my "Work Agenda", with =M-x org-agenda w w= I get the mentioned error "org-agenda-get-restriction-and-command: Wrong number of arguments" If I then evaluate the previous value of =org-agenda-get-restriction-and-command= , as contained in =org-plus-contrib-20190218= proper behaviour is restored. Best regards, Gustavo Barros. Emacs : GNU Emacs 26.1 (build 1, x86_64-pc-linux-gnu, GTK+ Version 3.22.30) of 2019-01-02 Package: Org mode version 9.2.1 (9.2.1-33-g029cf6-elpaplus @ /home/gustavo/.emacs.d/elpa/org-plus-contrib-20190225/) current state: ============== (setq org-src-mode-hook '(org-src-babel-configure-edit-buffer org-src-mode-configure-edit-buffer) org-metadown-hook '(org-babel-pop-to-session-maybe) org-clock-out-hook '(org-clock-remove-empty-clock-drawer) org-agenda-files '("~/Gustavo/Documents/Pessoal/Org Agenda/pessoal.org" "~/Gustavo/Documents/Pessoal/Org Agenda/trabalho.org") org-mode-hook '(#[0 "\300\301\302\303\304$\207" [add-hook change-major-mode-hook org-show-all append local] 5] #[0 "\300\301\302\303\304$\207" [add-hook change-major-mode-hook org-babel-show-result-all append local] 5] org-babel-result-hide-spec org-babel-hide-all-hashes org-eldoc-load) org-archive-hook '(org-attach-archive-delete-maybe) org-confirm-elisp-link-function 'yes-or-no-p org-agenda-before-write-hook '(org-agenda-add-entry-text) org-metaup-hook '(org-babel-load-in-session-maybe) org-bibtex-headline-format-function #[257 "\300.\236A\207" [:title] 3 "\n\n(fn ENTRY)"] org-babel-pre-tangle-hook '(save-buffer) org-tab-first-hook '(org-babel-hide-result-toggle-maybe org-babel-header-arg-expand) org-src-lang-modes '(("arduino" . arduino) ("redis" . redis) ("php" . php) ("C" . c) ("C++" . c++) ("asymptote" . asy) ("bash" . sh) ("beamer" . latex) ("calc" . fundamental) ("cpp" . c++) ("ditaa" . artist) ("dot" . fundamental) ("elisp" . emacs-lisp) ("ocaml" . tuareg) ("screen" . shell-script) ("shell" . sh) ("sqlite" . sql)) org-occur-hook '(org-first-headline-recenter) org-cycle-hook '(org-cycle-hide-archived-subtrees org-cycle-show-empty-lines org-optimize-window-after-visibility-change) org-speed-command-hook '(org-speed-command-activate org-babel-speed-command-activate) org-confirm-shell-link-function 'yes-or-no-p org-link-parameters '(("id" :follow org-id-open) ("eww" :follow eww :store org-eww-store-link) ("rmail" :follow org-rmail-open :store org-rmail-store-link) ("mhe" :follow org-mhe-open :store org-mhe-store-link) ("irc" :follow org-irc-visit :store org-irc-store-link :export org-irc-export) ("info" :follow org-info-open :export org-info-export :store org-info-store-link) ("gnus" :follow org-gnus-open :store org-gnus-store-link) ("docview" :follow org-docview-open :export org-docview-export :store org-docview-store-link) ("bibtex" :follow org-bibtex-open :store org-bibtex-store-link) ("bbdb" :follow org-bbdb-open :export org-bbdb-export :complete org-bbdb-complete-link :store org-bbdb-store-link) ("w3m" :store org-w3m-store-link) ("file+sys") ("file+emacs") ("elfeed" :follow elfeed-link-open :store elfeed-link-store-link) ("doi" :follow org--open-doi-link) ("elisp" :follow org--open-elisp-link) ("file" :complete org-file-complete-link) ("ftp" :follow (lambda (path) (browse-url (concat "ftp:" path)))) ("help" :follow org--open-help-link) ("http" :follow (lambda (path) (browse-url (concat "http:" path)))) ("https" :follow (lambda (path) (browse-url (concat "https:" path)))) ("mailto" :follow (lambda (path) (browse-url (concat "mailto:" path)))) ("news" :follow (lambda (path) (browse-url (concat "news:" path)))) ("shell" :follow org--open-shell-link)) org-agenda-custom-commands '(("h" . "Home Agenda Views") ("hh" "Home Agenda" ((agenda "" ((org-agenda-overriding-header "Today (Home)") (org-agenda-span (quote day))) ) (todo "" ((org-agenda-overriding-header "Tasks") (org-agenda-todo-ignore-with-date t) (org-agenda-skip-function (quote (org-agenda-skip-entry-if (quote todo) (quote ("SOMEDAY"))) ) ) ) ) ) ((org-agenda-files (quote ("~/Gustavo/Documents/Pessoal/Org Agenda/pessoal.org") ) ) ) nil) ("hs" "Someday Tasks" todo "SOMEDAY" ((org-agenda-files (quote ("~/Gustavo/Documents/Pessoal/Org Agenda/pessoal.org") ) ) ) ) ("w" . "Work Agenda Views") ("ww" "Work Agenda" ((agenda "" ((org-agenda-overriding-header "Today (Work)") (org-agenda-span (quote day))) ) (todo "" ((org-agenda-overriding-header "Tasks") (org-agenda-todo-ignore-with-date t) (org-agenda-skip-function (quote (org-agenda-skip-entry-if (quote todo) (quote ("SOMEDAY"))) ) ) ) ) ) nil nil) ("ws" "Someday Tasks" todo "SOMEDAY" nil) ("n" "Agenda and all TODOs" ((agenda "" nil) (alltodo "" nil)) nil) ) )