From mboxrd@z Thu Jan 1 00:00:00 1970 From: Thomas Holst Subject: Re: ANN/RFC: org-sidebar Date: Mon, 4 Jun 2018 14:03:20 +0200 Message-ID: References: <87d0xm8ncb.fsf@alphapapa.net> Mime-Version: 1.0 Content-Type: text/plain; charset="iso-8859-1" Content-Transfer-Encoding: quoted-printable Return-path: Received: from eggs.gnu.org ([2001:4830:134:3::10]:46356) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1fPoDV-0004fc-Py for emacs-orgmode@gnu.org; Mon, 04 Jun 2018 08:04:07 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1fPoDS-0001Nf-II for emacs-orgmode@gnu.org; Mon, 04 Jun 2018 08:04:05 -0400 Received: from de-out1.bosch-org.com ([139.15.230.186]:43676) by eggs.gnu.org with esmtps (TLS1.0:DHE_RSA_AES_256_CBC_SHA1:32) (Exim 4.71) (envelope-from ) id 1fPoDS-0001Lp-31 for emacs-orgmode@gnu.org; Mon, 04 Jun 2018 08:04:02 -0400 In-Reply-To: (Adam Porter's message of "Mon, 4 Jun 2018 12:30:23 +0200") 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: Adam Porter Cc: "emacs-orgmode@gnu.org" Hi Adam, thank you for looking into this. =B7 Adam Porter wrote: >> Debugger entered--Lisp error: (void-variable main-window) > > Thanks for your email. I wasn't able to reproduce the error on my > system, even with "emacs -q". I also looked at the code again, and I > don't know why that error would occur. Can you reproduce the problem > with "emacs -q"? If so, please let me know what version of Emacs and > of Org you're using. Here is what I did to reproduced it. I tried it with two different emacs / org-versions. Also tested several org-files. The error happens even with a minimal org-file with just one heading and one TODO item. Best regards Thomas > emacs -Q (package-initialize) (add-to-list 'load-path "~/git-emacs/org-agenda-ng") (add-to-list 'load-path "~/git-emacs/org-sidebar") (require 'org-sidebar) (emacs-version) "GNU Emacs 25.1.1 (x86_64-unknown-linux-gnu, GTK+ Version 3.18.9) of 2017-0= 5-02" "GNU Emacs 25.1.1 (x86_64-w64-mingw32) of 2016-09-22" (org-version) "8.2.10" "9.1.13" system-type gnu/linux windows-nt backtrace: Debugger entered--Lisp error: (void-variable main-window) (let ((org-buffer (current-buffer)) (org-buffer-window main-window)) (let= ((save-selected-window--state (internal--before-with-selected-window windo= w))) (save-current-buffer (unwind-protect (progn (select-window (car save-s= elected-window--state) (quote norecord)) (switch-to-buffer (get-buffer-crea= te (format " *%s*" name))) (setq header-line-format (propertize name (quote= face) (quote ...)) mode-line-format nil) (set-window-parameter nil (quote = org-buffer) org-buffer) (set-window-parameter nil (quote org-buffer-window)= org-buffer-window) (use-local-map org-sidebar-map) (erase-buffer) (insert = contents) (goto-char (point-min)) (toggle-truncate-lines 1)) (internal--aft= er-with-selected-window save-selected-window--state))))) org-sidebar--prepare-window(# " org-sidebar.org= : Agenda" "") (progn (select-frame frame (quote norecord)) (delete-other-windows) (setq= main-window (selected-window)) (setq agenda-window (split-window nil -50 (= quote right))) (setq todo-window (let ((save-selected-window--state (intern= al--before-with-selected-window agenda-window))) (save-current-buffer (unwi= nd-protect (progn (select-window (car save-selected-window--state) (quote n= orecord)) (split-window-vertically)) (internal--after-with-selected-window = save-selected-window--state))))) (org-sidebar--prepare-window agenda-window= (format " %s: Agenda" buffer-name-string) agenda-string) (org-sidebar--pre= pare-window todo-window (format " %s: Other TODOs" buffer-name-string) todo= -string) (select-window main-window)) (unwind-protect (progn (select-frame frame (quote norecord)) (delete-othe= r-windows) (setq main-window (selected-window)) (setq agenda-window (split-= window nil -50 (quote right))) (setq todo-window (let ((save-selected-windo= w--state (internal--before-with-selected-window agenda-window))) (save-curr= ent-buffer (unwind-protect (progn (select-window ... ...) (split-window-ver= tically)) (internal--after-with-selected-window save-selected-window--state= ))))) (org-sidebar--prepare-window agenda-window (format " %s: Agenda" buff= er-name-string) agenda-string) (org-sidebar--prepare-window todo-window (fo= rmat " %s: Other TODOs" buffer-name-string) todo-string) (select-window mai= n-window)) (if (frame-live-p old-frame) (progn (select-frame old-frame (quo= te norecord)))) (if (buffer-live-p old-buffer) (progn (set-buffer old-buffe= r)))) (let ((old-frame (selected-frame)) (old-buffer (current-buffer))) (unwind= -protect (progn (select-frame frame (quote norecord)) (delete-other-windows= ) (setq main-window (selected-window)) (setq agenda-window (split-window ni= l -50 (quote right))) (setq todo-window (let ((save-selected-window--state = (internal--before-with-selected-window agenda-window))) (save-current-buffe= r (unwind-protect (progn ... ...) (internal--after-with-selected-window sav= e-selected-window--state))))) (org-sidebar--prepare-window agenda-window (f= ormat " %s: Agenda" buffer-name-string) agenda-string) (org-sidebar--prepar= e-window todo-window (format " %s: Other TODOs" buffer-name-string) todo-st= ring) (select-window main-window)) (if (frame-live-p old-frame) (progn (sel= ect-frame old-frame (quote norecord)))) (if (buffer-live-p old-buffer) (pro= gn (set-buffer old-buffer))))) (let* ((buffer (current-buffer)) (agenda-items (let ((it (let (...) (cond= ... ... ... ...)))) (let ((it (-map org-sidebar-format-fn it))) (-group-by= --cl-date-header-- it)))) (todo-items (let ((it (let (...) (cond ... ... .= .. ...)))) (-map org-sidebar-format-fn it))) (agenda-string (let ((temp-buf= fer (generate-new-buffer " *temp*"))) (save-current-buffer (set-buffer temp= -buffer) (unwind-protect (progn (let ... ...) (buffer-string)) (and (buffer= -name temp-buffer) (kill-buffer temp-buffer)))))) (todo-string (s-join "\n"= todo-items)) (frame (selected-frame)) (buffer-name-string (concat (if (buf= fer-narrowed-p) (progn "[narrowed] ")) (buffer-name))) main-window agenda-w= indow todo-window) (let ((old-frame (selected-frame)) (old-buffer (current-= buffer))) (unwind-protect (progn (select-frame frame (quote norecord)) (del= ete-other-windows) (setq main-window (selected-window)) (setq agenda-window= (split-window nil -50 (quote right))) (setq todo-window (let ((save-select= ed-window--state ...)) (save-current-buffer (unwind-protect ... ...)))) (or= g-sidebar--prepare-window agenda-window (format " %s: Agenda" buffer-name-s= tring) agenda-string) (org-sidebar--prepare-window todo-window (format " %s= : Other TODOs" buffer-name-string) todo-string) (select-window main-window)= ) (if (frame-live-p old-frame) (progn (select-frame old-frame (quote noreco= rd)))) (if (buffer-live-p old-buffer) (progn (set-buffer old-buffer)))))) (progn (let* ((buffer (current-buffer)) (agenda-items (let ((it (let ... = ...))) (let ((it ...)) (-group-by --cl-date-header-- it)))) (todo-items (le= t ((it (let ... ...))) (-map org-sidebar-format-fn it))) (agenda-string (le= t ((temp-buffer (generate-new-buffer " *temp*"))) (save-current-buffer (set= -buffer temp-buffer) (unwind-protect (progn ... ...) (and ... ...))))) (tod= o-string (s-join "\n" todo-items)) (frame (selected-frame)) (buffer-name-st= ring (concat (if (buffer-narrowed-p) (progn "[narrowed] ")) (buffer-name)))= main-window agenda-window todo-window) (let ((old-frame (selected-frame)) = (old-buffer (current-buffer))) (unwind-protect (progn (select-frame frame (= quote norecord)) (delete-other-windows) (setq main-window (selected-window)= ) (setq agenda-window (split-window nil -50 (quote right))) (setq todo-wind= ow (let (...) (save-current-buffer ...))) (org-sidebar--prepare-window agen= da-window (format " %s: Agenda" buffer-name-string) agenda-string) (org-sid= ebar--prepare-window todo-window (format " %s: Other TODOs" buffer-name-str= ing) todo-string) (select-window main-window)) (if (frame-live-p old-frame)= (progn (select-frame old-frame (quote norecord)))) (if (buffer-live-p old-= buffer) (progn (set-buffer old-buffer))))))) (let* ((--cl-date-header-- (function (lambda (item) (propertize (org-time= stamp-format (or ... ...) org-sidebar-date-format) (quote face) (quote (:in= herit variable-pitch :weight bold))))))) (progn (let* ((buffer (current-buf= fer)) (agenda-items (let ((it ...)) (let (...) (-group-by --cl-date-header-= - it)))) (todo-items (let ((it ...)) (-map org-sidebar-format-fn it))) (age= nda-string (let ((temp-buffer ...)) (save-current-buffer (set-buffer temp-b= uffer) (unwind-protect ... ...)))) (todo-string (s-join "\n" todo-items)) (= frame (selected-frame)) (buffer-name-string (concat (if (buffer-narrowed-p)= (progn "[narrowed] ")) (buffer-name))) main-window agenda-window todo-wind= ow) (let ((old-frame (selected-frame)) (old-buffer (current-buffer))) (unwi= nd-protect (progn (select-frame frame (quote norecord)) (delete-other-windo= ws) (setq main-window (selected-window)) (setq agenda-window (split-window = nil -50 ...)) (setq todo-window (let ... ...)) (org-sidebar--prepare-window= agenda-window (format " %s: Agenda" buffer-name-string) agenda-string) (or= g-sidebar--prepare-window todo-window (format " %s: Other TODOs" buffer-nam= e-string) todo-string) (select-window main-window)) (if (frame-live-p old-f= rame) (progn (select-frame old-frame ...))) (if (buffer-live-p old-buffer) = (progn (set-buffer old-buffer)))))))) org-sidebar() funcall-interactively(org-sidebar) #(org-sidebar record nil) apply(# org-sidebar (record nil)) call-interactively@ido-cr+-record-current-command(# org-sidebar record nil) apply(call-interactively@ido-cr+-record-current-command # (org-sidebar record nil)) call-interactively(org-sidebar record nil) command-execute(org-sidebar record) execute-extended-command(nil "org-sidebar") smex-read-and-run(("org-sidebar" "package-list-packages" "org-version" "c= d" "5x5" "arp" "dbx" "dig" "erc" "ert" "eww" "ftp" "gdb" "irc" "jdb" "man" = "mpc" "pdb" "pwd" "rsh" "sdb" "w3m" "xdb" "calc" "diff" "ffap" "ffip" "ffir= " "gnus" "grep" "help" "ielm" "info" "life" "mail" "mpuz" "ping" "pong" "sm= ex" "talk" "term" "undo" "yank" "zone" "align" "chmod" "debug" "diary" "dir= ed" "ediff" ...)) smex() funcall-interactively(smex) #(smex nil nil) apply(# smex (nil nil)) call-interactively@ido-cr+-record-current-command(# smex nil nil) apply(call-interactively@ido-cr+-record-current-command # (smex nil nil)) call-interactively(smex nil nil) command-execute(smex)