Startup warning; no tree

[distichum]

When I try to use org-side-tree , I first get the error below and the side tree does not start. If I invoke the function again, it opens up a side buffer but does not populate it with anything.

Test org file:

* One
* Two
* Three
* Four

Debugger entered--Lisp error: (wrong-type-argument stringp nil)
  file-name-nondirectory(nil)
  (format "Org-Side-Tree - %s" (file-name-nondirectory buffer-file-name))
  (let* ((headings (org-side-tree-get-headings)) (tree-head-line (or (car (cdr (car (org-collect-keywords ...)))) "Org-Side-Tree")) (tree-mode-line (format "Org-Side-Tree - %s" (file-name-nondirectory buffer-file-name)))) (if (default-value org-side-tree-enable-folding) (progn (set (make-local-variable 'org-side-tree-enable-folding) t))) (save-current-buffer (set-buffer tree-buffer) (org-side-tree-mode) (setq tabulated-list-entries headings) (tabulated-list-print t t) (if (default-value org-side-tree-enable-folding) (progn (set (make-local-variable 'org-side-tree-enable-folding) t) (set (make-local-variable 'outline-minor-mode-highlight) nil) (outline-minor-mode 1))) (setq header-line-format tree-head-line) (setq mode-line-format tree-mode-line)))
  (if (buffer-live-p tree-buffer) nil (save-restriction (widen) (jit-lock-mode 1) (jit-lock-fontify-now)) (setq tree-buffer (generate-new-buffer tree-name)) (add-hook 'kill-buffer-hook #'org-side-tree-cleanup nil t) (let* ((headings (org-side-tree-get-headings)) (tree-head-line (or (car (cdr (car ...))) "Org-Side-Tree")) (tree-mode-line (format "Org-Side-Tree - %s" (file-name-nondirectory buffer-file-name)))) (if (default-value org-side-tree-enable-folding) (progn (set (make-local-variable 'org-side-tree-enable-folding) t))) (save-current-buffer (set-buffer tree-buffer) (org-side-tree-mode) (setq tabulated-list-entries headings) (tabulated-list-print t t) (if (default-value org-side-tree-enable-folding) (progn (set (make-local-variable 'org-side-tree-enable-folding) t) (set (make-local-variable 'outline-minor-mode-highlight) nil) (outline-minor-mode 1))) (setq header-line-format tree-head-line) (setq mode-line-format tree-mode-line))))
  (let* ((tree-name (if org-side-tree-persistent "*Org-Side-Tree*" (format "<tree>%s" (buffer-name)))) (tree-buffer (get-buffer tree-name)) (heading (org-side-tree-heading-number))) (if (buffer-live-p tree-buffer) nil (save-restriction (widen) (jit-lock-mode 1) (jit-lock-fontify-now)) (setq tree-buffer (generate-new-buffer tree-name)) (add-hook 'kill-buffer-hook #'org-side-tree-cleanup nil t) (let* ((headings (org-side-tree-get-headings)) (tree-head-line (or (car (cdr ...)) "Org-Side-Tree")) (tree-mode-line (format "Org-Side-Tree - %s" (file-name-nondirectory buffer-file-name)))) (if (default-value org-side-tree-enable-folding) (progn (set (make-local-variable 'org-side-tree-enable-folding) t))) (save-current-buffer (set-buffer tree-buffer) (org-side-tree-mode) (setq tabulated-list-entries headings) (tabulated-list-print t t) (if (default-value org-side-tree-enable-folding) (progn (set (make-local-variable ...) t) (set (make-local-variable ...) nil) (outline-minor-mode 1))) (setq header-line-format tree-head-line) (setq mode-line-format tree-mode-line)))) (org-side-tree-set-timer) (display-buffer-in-side-window tree-buffer (list (cons 'side org-side-tree-display-side))) (if org-side-tree-persistent (progn (org-side-tree-update))) (pop-to-buffer tree-buffer) (set-window-fringes (get-buffer-window tree-buffer) 1 1) (org-side-tree-go-to-heading heading))
  org-side-tree()
  funcall-interactively(org-side-tree)
  command-execute(org-side-tree record)
  execute-extended-command(nil "org-side-tree" "tree")
  funcall-interactively(execute-extended-command nil "org-side-tree" "tree")
  command-execute(execute-extended-command)

[localauthor]

The error suggests that the buffer is not a saved file. Is that the case? Could you save the file and then try?

[distichum]

Sure enough. It works on a saved file. Thanks.

[localauthor]

Fixed in the last commit anyway. :)