Re: [BUG] orgalist send bug

[Rustom Mody <rustompmody@gmail.com>]

On Tue, Jun 18, 2024 at 2:51 PM Nicolas Goaziou <mail@nicolasgoaziou.fr> wrote:
>
> Hello,
>
> Rustom Mody <rustompmody@gmail.com> writes:
>
> > I can confirm that with orgalist 1.15 the delete behavior has been
> > corrected -- Thanks!
> > The warning:
> > ⛔ Warning (org-element): ‘org-element-at-point’ cannot be used in non-Org
> > buffer #<buffer orgalist.txt> (text-mode)
>
> I think I fixed it in release freshly submitted release 1.16.

The elpa broken link and 1.14 1.15 mixup is gone

But the problem remains

If I start emacs normally then this warning

⛔ Warning (org-element): ‘org-element-at-point’ cannot be used in
non-Org buffer #<buffer orgalist.txt> (text-mode)

The following error on
make repro
package-initialize
package-install orgalist
Open file
M-x orgalist-mode
M-x orgalist-send-list

Debugger entered--Lisp error: (wrong-number-of-arguments org-persist-load 5)
  (org-persist-load (list '(elisp org-element--cache) (list 'version
org-element-cache-version)) (current-buffer) 'match-hash :read-related
t)
  (progn (org-persist-load (list '(elisp org-element--cache) (list
'version org-element-cache-version)) (current-buffer) 'match-hash
:read-related t))
  (if (and org-element-cache-persistent org-element-use-cache) (progn
(org-persist-load (list '(elisp org-element--cache) (list 'version
org-element-cache-version)) (current-buffer) 'match-hash :read-related
t)))
  (let ((delay-mode-hooks t)) (outline-mode) (setq major-mode
'org-mode) (setq mode-name "Org") (progn (if (get 'outline-mode
'mode-class) (put 'org-mode 'mode-class (get 'outline-mode
'mode-class))) (if (keymap-parent org-mode-map) nil (set-keymap-parent
org-mode-map (current-local-map))) (let ((parent (char-table-parent
org-mode-syntax-table))) (if (and parent (not (eq parent
(standard-syntax-table)))) nil (set-char-table-parent
org-mode-syntax-table (syntax-table)))) (if (or (abbrev-table-get
org-mode-abbrev-table :parents) (eq org-mode-abbrev-table
local-abbrev-table)) nil (abbrev-table-put org-mode-abbrev-table
:parents (list local-abbrev-table)))) (use-local-map org-mode-map)
(set-syntax-table org-mode-syntax-table) (setq local-abbrev-table
org-mode-abbrev-table) (set (make-local-variable 'org-mode-loading) t)
(set (make-local-variable 'tab-width) 8) (org-load-modules-maybe) (if
org-agenda-file-menu-enabled (progn (org-install-agenda-files-menu)))
(set (make-local-variable 'outline-regexp) org-outline-regexp) (set
(make-local-variable 'outline-level) 'org-outline-level)
(org-element-cache-reset) (if (and org-element-cache-persistent
org-element-use-cache) (progn (org-persist-load (list '(elisp
org-element--cache) (list 'version org-element-cache-version))
(current-buffer) 'match-hash :read-related t)))
(org-set-regexps-and-options) (add-to-invisibility-spec '(org-link))
(org-fold-initialize (or (and (stringp org-ellipsis) (not (equal ""
org-ellipsis)) org-ellipsis) "...")) (make-local-variable
'org-link-descriptive) (if (eq org-fold-core-style 'overlays) (progn
(add-to-invisibility-spec '(org-hide-block . t)))) (if (and (stringp
org-ellipsis) (not (equal "" org-ellipsis))) (progn (if
org-display-table nil (setq org-display-table (make-display-table)))
(set-display-table-slot org-display-table 4 (vconcat (mapcar #'(lambda
... ...) org-ellipsis))) (setq buffer-display-table
org-display-table))) (org-set-font-lock-defaults) (if (and
org-tag-faces (not org-tags-special-faces-re)) (progn
(org-set-tag-faces 'org-tag-faces org-tag-faces))) (set
(make-local-variable 'calc-embedded-open-mode) "# ") (set-syntax-table
(make-syntax-table org-mode-syntax-table)) (set (make-local-variable
'font-lock-unfontify-region-function) 'org-unfontify-region) (set
(make-local-variable 'org-table-may-need-update) t) (add-hook
'before-change-functions 'org-before-change-function nil 'local)
(add-hook 'kill-buffer-hook 'org-check-running-clock nil 'local)
(org-fold--advice-edit-commands) (org-macro-initialize-templates)
(org-update-radio-target-regexp) (set (make-local-variable
'indent-line-function) 'org-indent-line) (set (make-local-variable
'indent-region-function) 'org-indent-region) (org-setup-filling)
(org-setup-comments-handling) (set (make-local-variable
'beginning-of-defun-function) 'org-backward-element) (set
(make-local-variable 'end-of-defun-function) #'(lambda nil (if (not
(org-at-heading-p)) (org-forward-element) (org-forward-element)
(forward-char -1)))) (set (make-local-variable 'next-error-function)
'org-occur-next-match) (set (make-local-variable
'add-log-current-defun-function) #'org-add-log-current-headline) (if
org-enforce-todo-dependencies (add-hook 'org-blocker-hook
'org-block-todo-from-children-or-siblings-or-parent) (remove-hook
'org-blocker-hook
'org-block-todo-from-children-or-siblings-or-parent)) (if
org-enforce-todo-checkbox-dependencies (add-hook 'org-blocker-hook
'org-block-todo-from-checkboxes) (remove-hook 'org-blocker-hook
'org-block-todo-from-checkboxes)) (set (make-local-variable
'align-mode-rules-list) '((org-in-buffer-settings (regexp . "^[
\11]*#\\+[A-Z_]+:\\(\\s-*\\)\\S-+") (modes quote (org-mode))))) (set
(make-local-variable 'pcomplete-command-completion-function)
#'org-pcomplete-initial) (set (make-local-variable
'pcomplete-command-name-function) #'org-command-at-point) (set
(make-local-variable 'pcomplete-default-completion-function) #'ignore)
(set (make-local-variable 'pcomplete-parse-arguments-function)
#'org-parse-arguments) (set (make-local-variable
'pcomplete-termination-string) "") ...)
  (progn (make-local-variable 'delay-mode-hooks) (let
((delay-mode-hooks t)) (outline-mode) (setq major-mode 'org-mode)
(setq mode-name "Org") (progn (if (get 'outline-mode 'mode-class) (put
'org-mode 'mode-class (get 'outline-mode 'mode-class))) (if
(keymap-parent org-mode-map) nil (set-keymap-parent org-mode-map
(current-local-map))) (let ((parent (char-table-parent
org-mode-syntax-table))) (if (and parent (not (eq parent ...))) nil
(set-char-table-parent org-mode-syntax-table (syntax-table)))) (if (or
(abbrev-table-get org-mode-abbrev-table :parents) (eq
org-mode-abbrev-table local-abbrev-table)) nil (abbrev-table-put
org-mode-abbrev-table :parents (list local-abbrev-table))))
(use-local-map org-mode-map) (set-syntax-table org-mode-syntax-table)
(setq local-abbrev-table org-mode-abbrev-table) (set
(make-local-variable 'org-mode-loading) t) (set (make-local-variable
'tab-width) 8) (org-load-modules-maybe) (if
org-agenda-file-menu-enabled (progn (org-install-agenda-files-menu)))
(set (make-local-variable 'outline-regexp) org-outline-regexp) (set
(make-local-variable 'outline-level) 'org-outline-level)
(org-element-cache-reset) (if (and org-element-cache-persistent
org-element-use-cache) (progn (org-persist-load (list '(elisp
org-element--cache) (list 'version org-element-cache-version))
(current-buffer) 'match-hash :read-related t)))
(org-set-regexps-and-options) (add-to-invisibility-spec '(org-link))
(org-fold-initialize (or (and (stringp org-ellipsis) (not (equal ""
org-ellipsis)) org-ellipsis) "...")) (make-local-variable
'org-link-descriptive) (if (eq org-fold-core-style 'overlays) (progn
(add-to-invisibility-spec '(org-hide-block . t)))) (if (and (stringp
org-ellipsis) (not (equal "" org-ellipsis))) (progn (if
org-display-table nil (setq org-display-table (make-display-table)))
(set-display-table-slot org-display-table 4 (vconcat (mapcar #'...
org-ellipsis))) (setq buffer-display-table org-display-table)))
(org-set-font-lock-defaults) (if (and org-tag-faces (not
org-tags-special-faces-re)) (progn (org-set-tag-faces 'org-tag-faces
org-tag-faces))) (set (make-local-variable 'calc-embedded-open-mode)
"# ") (set-syntax-table (make-syntax-table org-mode-syntax-table))
(set (make-local-variable 'font-lock-unfontify-region-function)
'org-unfontify-region) (set (make-local-variable
'org-table-may-need-update) t) (add-hook 'before-change-functions
'org-before-change-function nil 'local) (add-hook 'kill-buffer-hook
'org-check-running-clock nil 'local) (org-fold--advice-edit-commands)
(org-macro-initialize-templates) (org-update-radio-target-regexp) (set
(make-local-variable 'indent-line-function) 'org-indent-line) (set
(make-local-variable 'indent-region-function) 'org-indent-region)
(org-setup-filling) (org-setup-comments-handling) (set
(make-local-variable 'beginning-of-defun-function)
'org-backward-element) (set (make-local-variable
'end-of-defun-function) #'(lambda nil (if (not (org-at-heading-p))
(org-forward-element) (org-forward-element) (forward-char -1)))) (set
(make-local-variable 'next-error-function) 'org-occur-next-match) (set
(make-local-variable 'add-log-current-defun-function)
#'org-add-log-current-headline) (if org-enforce-todo-dependencies
(add-hook 'org-blocker-hook
'org-block-todo-from-children-or-siblings-or-parent) (remove-hook
'org-blocker-hook
'org-block-todo-from-children-or-siblings-or-parent)) (if
org-enforce-todo-checkbox-dependencies (add-hook 'org-blocker-hook
'org-block-todo-from-checkboxes) (remove-hook 'org-blocker-hook
'org-block-todo-from-checkboxes)) (set (make-local-variable
'align-mode-rules-list) '((org-in-buffer-settings (regexp . "^[
\11]*#\\+[A-Z_]+:\\(\\s-*\\)\\S-+") (modes quote (org-mode))))) (set
(make-local-variable 'pcomplete-command-completion-function)
#'org-pcomplete-initial) (set (make-local-variable
'pcomplete-command-name-function) #'org-command-at-point) (set
(make-local-variable 'pcomplete-default-completion-function) #'ignore)
(set (make-local-variable 'pcomplete-parse-arguments-function)
#'org-parse-arguments) (set (make-local-variable
'pcomplete-termination-string) "") ...))
  org-mode()
  (let ((org-inhibit-startup t)) (org-mode))
  (progn (let ((org-inhibit-startup t)) (org-mode)) (let (insert-list
insert-item) (setq insert-list #'(lambda (l) (let ((tail ...)) (while
tail (let ... ... ...))))) (setq insert-item #'(lambda (i type) (let
((start ...)) (insert (if ... "1. " "- ")) (let (...) (while tail
...)) (forward-line 0) (save-excursion (let ... ...))))) (funcall
insert-list list)) (setq data (org-element-map
(org-element-parse-buffer) 'plain-list #'identity nil t)) (setq info
(org-export-get-environment backend nil params)))
  (unwind-protect (progn (let ((org-inhibit-startup t)) (org-mode))
(let (insert-list insert-item) (setq insert-list #'(lambda (l) (let
(...) (while tail ...)))) (setq insert-item #'(lambda (i type) (let
(...) (insert ...) (let ... ...) (forward-line 0) (save-excursion
...)))) (funcall insert-list list)) (setq data (org-element-map
(org-element-parse-buffer) 'plain-list #'identity nil t)) (setq info
(org-export-get-environment backend nil params))) (and (buffer-name
temp-buffer) (kill-buffer temp-buffer)))
  (save-current-buffer (set-buffer temp-buffer) (unwind-protect (progn
(let ((org-inhibit-startup t)) (org-mode)) (let (insert-list
insert-item) (setq insert-list #'(lambda (l) (let ... ...))) (setq
insert-item #'(lambda (i type) (let ... ... ... ... ...))) (funcall
insert-list list)) (setq data (org-element-map
(org-element-parse-buffer) 'plain-list #'identity nil t)) (setq info
(org-export-get-environment backend nil params))) (and (buffer-name
temp-buffer) (kill-buffer temp-buffer))))
  (let ((temp-buffer (generate-new-buffer " *temp*" t)))
(save-current-buffer (set-buffer temp-buffer) (unwind-protect (progn
(let ((org-inhibit-startup t)) (org-mode)) (let (insert-list
insert-item) (setq insert-list #'(lambda ... ...)) (setq insert-item
#'(lambda ... ...)) (funcall insert-list list)) (setq data
(org-element-map (org-element-parse-buffer) 'plain-list #'identity nil
t)) (setq info (org-export-get-environment backend nil params))) (and
(buffer-name temp-buffer) (kill-buffer temp-buffer)))))
  (let* ((backend (plist-get params :backend)) (custom-backend
(org-export-create-backend :parent (or backend 'org) :transcoders
(cons (cons 'plain-list (org-list--to-generic-plain-list params))
(cons (cons 'item (org-list--to-generic-item params)) '(...))))) data
info) (let ((temp-buffer (generate-new-buffer " *temp*" t)))
(save-current-buffer (set-buffer temp-buffer) (unwind-protect (progn
(let ((org-inhibit-startup t)) (org-mode)) (let (insert-list
insert-item) (setq insert-list #'...) (setq insert-item #'...)
(funcall insert-list list)) (setq data (org-element-map
(org-element-parse-buffer) 'plain-list #'identity nil t)) (setq info
(org-export-get-environment backend nil params))) (and (buffer-name
temp-buffer) (kill-buffer temp-buffer))))) (if (and backend (symbolp
backend) (not (org-export-get-backend backend))) (progn (user-error
"Unknown :backend value"))) (if backend nil (require 'ox-org)) (if
(and backend (plist-get params :raw)) (progn (org-element-map data
org-element-all-objects #'(lambda (object) (org-element-set object
(org-element-interpret-data object)))))) (let ((output
(org-export-data-with-backend data custom-backend info))) (if
(org-string-nw-p output) (substring-no-properties output 0 -1) "")))
  org-list-to-generic((unordered ("a new house") ("a new computer"
(unordered ("a new keyboard") ("a new mouse"))) ("a new life"))
(:backend latex))
  org-list-to-latex((unordered ("a new house") ("a new computer"
(unordered ("a new keyboard") ("a new mouse"))) ("a new life")))
  orgalist-send-list()
  funcall-interactively(orgalist-send-list)
  command-execute(orgalist-send-list record)
  execute-extended-command(nil "orgalist-send-list" "orgalist-se")
  funcall-interactively(execute-extended-command nil
"orgalist-send-list" "orgalist-se")
  command-execute(execute-extended-command)