ANN/RFC: org-sidebar

ANN/RFC: org-sidebar

[Adam Porter]

Hi all,

Inspired by a post on Reddit, which was inspired by the Organized plugin
for the Atom editor, I came up with this:

https://github.com/alphapapa/org-sidebar

This package presents a helpful sidebar view for Org buffers.  At the top
is a chronological list of scheduled and deadlined tasks in the current
buffer, and below that is a list of all other non-done to-do items.  If
the buffer is narrowed, the sidebar only shows items in the narrowed
portion; this allows seeing an overview of tasks in a subtree.

It's in an early stage of development, but I think it may be useful.
Any feedback would be appreciated.

Re: ANN/RFC: org-sidebar

[Thomas Holst]

Hi Adam,

> Hi all,
> 
> Inspired by a post on Reddit, which was inspired by the Organized plugin
> for the Atom editor, I came up with this:
> 
> https://github.com/alphapapa/org-sidebar
> 
> This package presents a helpful sidebar view for Org buffers.  At the top
> is a chronological list of scheduled and deadlined tasks in the current
> buffer, and below that is a list of all other non-done to-do items.  If
> the buffer is narrowed, the sidebar only shows items in the narrowed
> portion; this allows seeing an overview of tasks in a subtree.
> 
> It's in an early stage of development, but I think it may be useful.
> Any feedback would be appreciated.

I really like the idea of org-sidebar. I tried it and followed the
instructions in README.org but I get an error. Here is the
bactrace:

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 window))) (save-current-buffer (unwind-protect (progn (select-window (car save-selected-window--state) (quote norecord)) (switch-to-buffer (get-buffer-create (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--after-with-selected-window save-selected-window--state)))))
  org-sidebar--prepare-window(#<window 86 on *Backtrace*> " ElProjects.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 (internal--before-with-selected-window agenda-window))) (save-current-buffer (unwind-protect (progn (select-window (car save-selected-window--state) (quote norecord)) (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--prepare-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-other-windows) (setq main-window (selected-window)) (setq agenda-window (split-window nil -50 (quote right))) (setq todo-window (let ((save-selected-window--state (internal--before-with-selected-window agenda-window))) (save-current-buffer (unwind-protect (progn (select-window ... ...) (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--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 norecord)))) (if (buffer-live-p old-buffer) (progn (set-buffer old-buffer))))
  (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-window (let ((save-selected-window--state (internal--before-with-selected-window agenda-window))) (save-current-buffer (unwind-protect (progn ... ...) (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--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 norecord)))) (if (buffer-live-p old-buffer) (progn (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-buffer (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 (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-window (let ((save-selected-window--state ...)) (save-current-buffer (unwind-protect ... ...)))) (org-sidebar--prepare-window agenda-window (format " %s: Agenda" buffer-name-string) 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 norecord)))) (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 (let ((it (let ... ...))) (-map org-sidebar-format-fn it))) (agenda-string (let ((temp-buffer (generate-new-buffer " *temp*"))) (save-current-buffer (set-buffer temp-buffer) (unwind-protect (progn ... ...) (and ... ...))))) (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-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-window (let (...) (save-current-buffer ...))) (org-sidebar--prepare-window agenda-window (format " %s: Agenda" buffer-name-string) 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 norecord)))) (if (buffer-live-p old-buffer) (progn (set-buffer old-buffer)))))))
  (let* ((--cl-date-header-- (function (lambda (item) (propertize (org-timestamp-format (or ... ...) org-sidebar-date-format) (quote face) (quote (:inherit variable-pitch :weight bold))))))) (progn (let* ((buffer (current-buffer)) (agenda-items (let ((it ...)) (let (...) (-group-by --cl-date-header-- it)))) (todo-items (let ((it ...)) (-map org-sidebar-format-fn it))) (agenda-string (let ((temp-buffer ...)) (save-current-buffer (set-buffer temp-buffer) (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-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 ...)) (setq todo-window (let ... ...)) (org-sidebar--prepare-window agenda-window (format " %s: Agenda" buffer-name-string) 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 ...))) (if (buffer-live-p old-buffer) (progn (set-buffer old-buffer))))))))
  org-sidebar()
  funcall-interactively(org-sidebar)
  #<subr call-interactively>(org-sidebar record nil)
  apply(#<subr call-interactively> org-sidebar (record nil))
  call-interactively@ido-cr+-record-current-command(#<subr call-interactively> org-sidebar record nil)
  apply(call-interactively@ido-cr+-record-current-command #<subr call-interactively> (org-sidebar record nil))
  call-interactively(org-sidebar record nil)
  command-execute(org-sidebar record)
  (progn (command-execute sym-com (quote record)) (funcall --cl-save-hist-- command-name))
  (condition-case err (progn (command-execute sym-com (quote record)) (funcall --cl-save-hist-- command-name)) ((debug error) (if helm-M-x-always-save-history (progn (funcall --cl-save-hist-- command-name))) (signal (car err) (cdr err))))
  (progn (condition-case err (progn (command-execute sym-com (quote record)) (funcall --cl-save-hist-- command-name)) ((debug error) (if helm-M-x-always-save-history (progn (funcall --cl-save-hist-- command-name))) (signal (car err) (cdr err)))))
  (let* ((--cl-save-hist-- (function (lambda (command) (setq extended-command-history (cons command (delete command extended-command-history))))))) (progn (condition-case err (progn (command-execute sym-com (quote record)) (funcall --cl-save-hist-- command-name)) ((debug error) (if helm-M-x-always-save-history (progn (funcall --cl-save-hist-- command-name))) (signal (car err) (cdr err))))))
  (let ((prefix-arg (or helm-current-prefix-arg helm-M-x-prefix-argument))) (let* ((--cl-save-hist-- (function (lambda (command) (setq extended-command-history (cons command ...)))))) (progn (condition-case err (progn (command-execute sym-com (quote record)) (funcall --cl-save-hist-- command-name)) ((debug error) (if helm-M-x-always-save-history (progn (funcall --cl-save-hist-- command-name))) (signal (car err) (cdr err)))))))
  (progn (setq this-command sym-com real-this-command sym-com) (let ((prefix-arg (or helm-current-prefix-arg helm-M-x-prefix-argument))) (let* ((--cl-save-hist-- (function (lambda (command) (setq extended-command-history ...))))) (progn (condition-case err (progn (command-execute sym-com (quote record)) (funcall --cl-save-hist-- command-name)) ((debug error) (if helm-M-x-always-save-history (progn ...)) (signal (car err) (cdr err))))))))
  (if sym-com (progn (setq this-command sym-com real-this-command sym-com) (let ((prefix-arg (or helm-current-prefix-arg helm-M-x-prefix-argument))) (let* ((--cl-save-hist-- (function (lambda ... ...)))) (progn (condition-case err (progn (command-execute sym-com ...) (funcall --cl-save-hist-- command-name)) ((debug error) (if helm-M-x-always-save-history ...) (signal ... ...))))))))
  (let ((sym-com (and (stringp command-name) (intern-soft command-name)))) (if sym-com (progn (setq this-command sym-com real-this-command sym-com) (let ((prefix-arg (or helm-current-prefix-arg helm-M-x-prefix-argument))) (let* ((--cl-save-hist-- (function ...))) (progn (condition-case err (progn ... ...) (... ... ...))))))))
  (if (string= command-name "") nil (let ((sym-com (and (stringp command-name) (intern-soft command-name)))) (if sym-com (progn (setq this-command sym-com real-this-command sym-com) (let ((prefix-arg (or helm-current-prefix-arg helm-M-x-prefix-argument))) (let* ((--cl-save-hist-- ...)) (progn (condition-case err ... ...))))))))
  helm-M-x(nil #("org-sidebar" 0 11 (match-part "org-sidebar")))
  funcall-interactively(helm-M-x nil #("org-sidebar" 0 11 (match-part "org-sidebar")))
  #<subr call-interactively>(helm-M-x nil nil)
  apply(#<subr call-interactively> helm-M-x (nil nil))
  call-interactively@ido-cr+-record-current-command(#<subr call-interactively> helm-M-x nil nil)
  apply(call-interactively@ido-cr+-record-current-command #<subr call-interactively> (helm-M-x nil nil))
  call-interactively(helm-M-x nil nil)
  command-execute(helm-M-x)

-- 
  Thomas

Re: ANN/RFC: org-sidebar

[Adam Porter]

Hi Thomas,

On Mon, Jun 4, 2018 at 4:03 AM, Thomas Holst <thomas.holst@de.bosch.com> wrote:
> Hi Adam,
>
> I really like the idea of org-sidebar. I tried it and followed the
> instructions in README.org but I get an error. Here is the
> bactrace:
>
> 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.

Re: ANN/RFC: org-sidebar

[Thomas Holst]

Hi Adam,

thank you for looking into this.

· Adam Porter <adam@alphapapa.net> 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-05-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 window))) (save-current-buffer (unwind-protect (progn (select-window (car save-selected-window--state) (quote norecord)) (switch-to-buffer (get-buffer-create (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--after-with-selected-window save-selected-window--state)))))
  org-sidebar--prepare-window(#<window 32 on *Backtrace*> " 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 (internal--before-with-selected-window agenda-window))) (save-current-buffer (unwind-protect (progn (select-window (car save-selected-window--state) (quote norecord)) (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--prepare-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-other-windows) (setq main-window (selected-window)) (setq agenda-window (split-window nil -50 (quote right))) (setq todo-window (let ((save-selected-window--state (internal--before-with-selected-window agenda-window))) (save-current-buffer (unwind-protect (progn (select-window ... ...) (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--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 norecord)))) (if (buffer-live-p old-buffer) (progn (set-buffer old-buffer))))
  (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-window (let ((save-selected-window--state (internal--before-with-selected-window agenda-window))) (save-current-buffer (unwind-protect (progn ... ...) (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--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 norecord)))) (if (buffer-live-p old-buffer) (progn (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-buffer (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 (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-window (let ((save-selected-window--state ...)) (save-current-buffer (unwind-protect ... ...)))) (org-sidebar--prepare-window agenda-window (format " %s: Agenda" buffer-name-string) 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 norecord)))) (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 (let ((it (let ... ...))) (-map org-sidebar-format-fn it))) (agenda-string (let ((temp-buffer (generate-new-buffer " *temp*"))) (save-current-buffer (set-buffer temp-buffer) (unwind-protect (progn ... ...) (and ... ...))))) (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-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-window (let (...) (save-current-buffer ...))) (org-sidebar--prepare-window agenda-window (format " %s: Agenda" buffer-name-string) 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 norecord)))) (if (buffer-live-p old-buffer) (progn (set-buffer old-buffer)))))))
  (let* ((--cl-date-header-- (function (lambda (item) (propertize (org-timestamp-format (or ... ...) org-sidebar-date-format) (quote face) (quote (:inherit variable-pitch :weight bold))))))) (progn (let* ((buffer (current-buffer)) (agenda-items (let ((it ...)) (let (...) (-group-by --cl-date-header-- it)))) (todo-items (let ((it ...)) (-map org-sidebar-format-fn it))) (agenda-string (let ((temp-buffer ...)) (save-current-buffer (set-buffer temp-buffer) (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-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 ...)) (setq todo-window (let ... ...)) (org-sidebar--prepare-window agenda-window (format " %s: Agenda" buffer-name-string) 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 ...))) (if (buffer-live-p old-buffer) (progn (set-buffer old-buffer))))))))
  org-sidebar()
  funcall-interactively(org-sidebar)
  #<subr call-interactively>(org-sidebar record nil)
  apply(#<subr call-interactively> org-sidebar (record nil))
  call-interactively@ido-cr+-record-current-command(#<subr call-interactively> org-sidebar record nil)
  apply(call-interactively@ido-cr+-record-current-command #<subr call-interactively> (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" "cd" "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" "smex" "talk" "term" "undo" "yank" "zone" "align" "chmod" "debug" "diary" "dired" "ediff" ...))
  smex()
  funcall-interactively(smex)
  #<subr call-interactively>(smex nil nil)
  apply(#<subr call-interactively> smex (nil nil))
  call-interactively@ido-cr+-record-current-command(#<subr call-interactively> smex nil nil)
  apply(call-interactively@ido-cr+-record-current-command #<subr call-interactively> (smex nil nil))
  call-interactively(smex nil nil)
  command-execute(smex)

Re: ANN/RFC: org-sidebar

[Adam Porter]

Hi Thomas,

I just pushed a commit which should fix this problem.  My apologies
for putting you to so much trouble.  It was a simple mistake that I
should have figured out on my own.  I don't know why it didn't happen
on my system; even with "emacs -q" I didn't get it, but when I
followed your steps with "emacs -Q", it did happen--and then it
happened in my main config, too!  Maybe I've been staring at this code
for too long...  ;)

Please let me know if you have any other feedback on the package.
Maybe in a few weeks I will consider publishing it on MELPA, but I
think it needs some more work first.

Thanks,
Adam

Re: ANN/RFC: org-sidebar

[Holst Thomas (PS-EC/ESE4)]

Hello Adam,

No problem. I am not that good in elisp, but I like to help testing. So I am glad I could help here.

After a git pull the error is gone - but I don't get any entries in the sidebar :-(.

In my testfile I have two headlines marked with TODO. The two buffers in the sidebar are empty.

Again I used emacs -Q and the lisp code I posted earlier.

Mit freundlichen Grüßen / Best regards

Thomas Holst
PS-EC/ESE4  

Tel. +49 711 811-40681 



> -----Ursprüngliche Nachricht-----
> Von: alphadeltapapa@gmail.com [mailto:alphadeltapapa@gmail.com] Im Auftrag
> von Adam Porter
> Gesendet: Montag, 4. Juni 2018 14:16
> An: Holst Thomas (PS-EC/ESE4) <Thomas.Holst@de.bosch.com>
> Cc: emacs-orgmode@gnu.org
> Betreff: Re: [O] ANN/RFC: org-sidebar
> 
> Hi Thomas,
> 
> I just pushed a commit which should fix this problem.  My apologies
> for putting you to so much trouble.  It was a simple mistake that I
> should have figured out on my own.  I don't know why it didn't happen
> on my system; even with "emacs -q" I didn't get it, but when I
> followed your steps with "emacs -Q", it did happen--and then it
> happened in my main config, too!  Maybe I've been staring at this code
> for too long...  ;)
> 
> Please let me know if you have any other feedback on the package.
> Maybe in a few weeks I will consider publishing it on MELPA, but I
> think it needs some more work first.
> 
> Thanks,
> Adam

Re: ANN/RFC: org-sidebar

[Adam Porter]

On Mon, Jun 4, 2018 at 9:19 AM, Holst Thomas (PS-EC/ESE4)
<Thomas.Holst@de.bosch.com> wrote:
> Hello Adam,
>
> No problem. I am not that good in elisp, but I like to help testing. So I am glad I could help here.
>
> After a git pull the error is gone - but I don't get any entries in the sidebar :-(.

Hi Thomas,

I just pushed some commits that I think will fix the problems.  I
tested with "emacs -q" this time, so it should work on configs other
than my own.  ;)

Please let me know if you have any other problems or comments.  Thank
you very much for your testing, as it's invaluable for rooting out
problems like this!

Thanks,
Adam

Re: ANN/RFC: org-sidebar

[Holst Thomas (PS-EC/ESE4)]

Hi Adam,

> Hi all,
> 
> Inspired by a post on Reddit, which was inspired by the Organized plugin
> for the Atom editor, I came up with this:
> 
> https://github.com/alphapapa/org-sidebar
> 
> This package presents a helpful sidebar view for Org buffers.  At the top
> is a chronological list of scheduled and deadlined tasks in the current
> buffer, and below that is a list of all other non-done to-do items.  If
> the buffer is narrowed, the sidebar only shows items in the narrowed
> portion; this allows seeing an overview of tasks in a subtree.
> 
> It's in an early stage of development, but I think it may be useful.
> Any feedback would be appreciated.

I really like the idea of org-sidebar. I tried it and followed the
instructions in README.org but I get an error. Here is the
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 window))) (save-current-buffer (unwind-protect (progn (select-window (car save-selected-window--state) (quote norecord)) (switch-to-buffer (get-buffer-create (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--after-with-selected-window save-selected-window--state)))))
  org-sidebar--prepare-window(#<window 86 on *Backtrace*> " ElProjects.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 (internal--before-with-selected-window agenda-window))) (save-current-buffer (unwind-protect (progn (select-window (car save-selected-window--state) (quote norecord)) (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--prepare-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-other-windows) (setq main-window (selected-window)) (setq agenda-window (split-window nil -50 (quote right))) (setq todo-window (let ((save-selected-window--state (internal--before-with-selected-window agenda-window))) (save-current-buffer (unwind-protect (progn (select-window ... ...) (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--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 norecord)))) (if (buffer-live-p old-buffer) (progn (set-buffer old-buffer))))
  (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-window (let ((save-selected-window--state (internal--before-with-selected-window agenda-window))) (save-current-buffer (unwind-protect (progn ... ...) (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--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 norecord)))) (if (buffer-live-p old-buffer) (progn (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-buffer (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 (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-window (let ((save-selected-window--state ...)) (save-current-buffer (unwind-protect ... ...)))) (org-sidebar--prepare-window agenda-window (format " %s: Agenda" buffer-name-string) 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 norecord)))) (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 (let ((it (let ... ...))) (-map org-sidebar-format-fn it))) (agenda-string (let ((temp-buffer (generate-new-buffer " *temp*"))) (save-current-buffer (set-buffer temp-buffer) (unwind-protect (progn ... ...) (and ... ...))))) (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-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-window (let (...) (save-current-buffer ...))) (org-sidebar--prepare-window agenda-window (format " %s: Agenda" buffer-name-string) 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 norecord)))) (if (buffer-live-p old-buffer) (progn (set-buffer old-buffer)))))))
  (let* ((--cl-date-header-- (function (lambda (item) (propertize (org-timestamp-format (or ... ...) org-sidebar-date-format) (quote face) (quote (:inherit variable-pitch :weight bold))))))) (progn (let* ((buffer (current-buffer)) (agenda-items (let ((it ...)) (let (...) (-group-by --cl-date-header-- it)))) (todo-items (let ((it ...)) (-map org-sidebar-format-fn it))) (agenda-string (let ((temp-buffer ...)) (save-current-buffer (set-buffer temp-buffer) (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-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 ...)) (setq todo-window (let ... ...)) (org-sidebar--prepare-window agenda-window (format " %s: Agenda" buffer-name-string) 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 ...))) (if (buffer-live-p old-buffer) (progn (set-buffer old-buffer))))))))
  org-sidebar()
  funcall-interactively(org-sidebar)
  #<subr call-interactively>(org-sidebar record nil)
  apply(#<subr call-interactively> org-sidebar (record nil))
  call-interactively@ido-cr+-record-current-command(#<subr call-interactively> org-sidebar record nil)
  apply(call-interactively@ido-cr+-record-current-command #<subr call-interactively> (org-sidebar record nil))
  call-interactively(org-sidebar record nil)
  command-execute(org-sidebar record)
  (progn (command-execute sym-com (quote record)) (funcall --cl-save-hist-- command-name))
  (condition-case err (progn (command-execute sym-com (quote record)) (funcall --cl-save-hist-- command-name)) ((debug error) (if helm-M-x-always-save-history (progn (funcall --cl-save-hist-- command-name))) (signal (car err) (cdr err))))
  (progn (condition-case err (progn (command-execute sym-com (quote record)) (funcall --cl-save-hist-- command-name)) ((debug error) (if helm-M-x-always-save-history (progn (funcall --cl-save-hist-- command-name))) (signal (car err) (cdr err)))))
  (let* ((--cl-save-hist-- (function (lambda (command) (setq extended-command-history (cons command (delete command extended-command-history))))))) (progn (condition-case err (progn (command-execute sym-com (quote record)) (funcall --cl-save-hist-- command-name)) ((debug error) (if helm-M-x-always-save-history (progn (funcall --cl-save-hist-- command-name))) (signal (car err) (cdr err))))))
  (let ((prefix-arg (or helm-current-prefix-arg helm-M-x-prefix-argument))) (let* ((--cl-save-hist-- (function (lambda (command) (setq extended-command-history (cons command ...)))))) (progn (condition-case err (progn (command-execute sym-com (quote record)) (funcall --cl-save-hist-- command-name)) ((debug error) (if helm-M-x-always-save-history (progn (funcall --cl-save-hist-- command-name))) (signal (car err) (cdr err)))))))
  (progn (setq this-command sym-com real-this-command sym-com) (let ((prefix-arg (or helm-current-prefix-arg helm-M-x-prefix-argument))) (let* ((--cl-save-hist-- (function (lambda (command) (setq extended-command-history ...))))) (progn (condition-case err (progn (command-execute sym-com (quote record)) (funcall --cl-save-hist-- command-name)) ((debug error) (if helm-M-x-always-save-history (progn ...)) (signal (car err) (cdr err))))))))
  (if sym-com (progn (setq this-command sym-com real-this-command sym-com) (let ((prefix-arg (or helm-current-prefix-arg helm-M-x-prefix-argument))) (let* ((--cl-save-hist-- (function (lambda ... ...)))) (progn (condition-case err (progn (command-execute sym-com ...) (funcall --cl-save-hist-- command-name)) ((debug error) (if helm-M-x-always-save-history ...) (signal ... ...))))))))
  (let ((sym-com (and (stringp command-name) (intern-soft command-name)))) (if sym-com (progn (setq this-command sym-com real-this-command sym-com) (let ((prefix-arg (or helm-current-prefix-arg helm-M-x-prefix-argument))) (let* ((--cl-save-hist-- (function ...))) (progn (condition-case err (progn ... ...) (... ... ...))))))))
  (if (string= command-name "") nil (let ((sym-com (and (stringp command-name) (intern-soft command-name)))) (if sym-com (progn (setq this-command sym-com real-this-command sym-com) (let ((prefix-arg (or helm-current-prefix-arg helm-M-x-prefix-argument))) (let* ((--cl-save-hist-- ...)) (progn (condition-case err ... ...))))))))
  helm-M-x(nil #("org-sidebar" 0 11 (match-part "org-sidebar")))
  funcall-interactively(helm-M-x nil #("org-sidebar" 0 11 (match-part "org-sidebar")))
  #<subr call-interactively>(helm-M-x nil nil)
  apply(#<subr call-interactively> helm-M-x (nil nil))
  call-interactively@ido-cr+-record-current-command(#<subr call-interactively> helm-M-x nil nil)
  apply(call-interactively@ido-cr+-record-current-command #<subr call-interactively> (helm-M-x nil nil))
  call-interactively(helm-M-x nil nil)
  command-execute(helm-M-x)

-- 
  Thomas