Re: [BUG] orgalist send bug

[Rustom Mody <rustompmody@gmail.com>]

On Tue, Jun 18, 2024 at 1:09 PM Ihor Radchenko <yantar92@posteo.net> wrote:
>
> Rustom Mody <rustompmody@gmail.com> writes:
>
> >> 1. make repro
> >> 2. (push "/path/to/orgalist/folder/on/elpa/dir" load-path)
> >>
> >>
> > Doing that alone does not find orgalist-mode
> > If I add:
> > 3. load-file "/path/to/orgalist/folder/on/elpa/dir/orgalist-autoloads.el"
> >
> > then orgalist minor mode starts
> >
> > But on M-x orgalist-send-list I get
> >
> > Debugger entered--Lisp error: (error "Not at a list item")
> >   error("Not at a list item")
>
> Hmm. Let's try to isolate things even further.
>
> May you
>
> 1. make repro
> 2. download orgalist source code separately


All I can find is https://elpa.gnu.org/packages/orgalist.html
That has a link
https://elpa.gnu.org/packages/orgalist-1.14.tar
which is broken

Also it has versions 1.14 and 1.15 confused

Latest  orgalist-1.14.tar

But below the badge
GNU ELPA orgalist 1.15

When I changed the 14 in the link to 15 I could download a tar file
It seems to contain the same file that elpa gets

I load it by hand
Get the same error:


Debugger entered--Lisp error: (error "Not at a list item")
  error("Not at a list item")
  (if (orgalist--at-item-p) nil (error "Not at a list item"))
  (catch 'exit (if (orgalist--at-item-p) nil (error "Not at a list
item")) (save-excursion (let ((case-fold-search t))
(re-search-backward "^[ \11]*#\\+ORGLST:" nil t) (if (looking-at "[
\11]*#\\+ORGLST:[ \11]+SEND[ \11]+\\(\\S-+\\)[ \11]+\\([^ \11\n]...")
nil (if maybe (throw 'exit nil) (error "Don't know how to transform
this list"))))) (let* ((name (regexp-quote (match-string 1)))
(transform (intern (match-string 2))) (bottom-point (save-excursion
(re-search-forward "\\(\\\\end{comment}\\|@end ignore\\|-->\\)" nil t)
(match-beginning 0))) (top-point (progn (re-search-backward
"#\\+ORGLST" nil t) (re-search-forward (org-item-beginning-re)
bottom-point t) (match-beginning 0))) (plain-list (save-excursion
(goto-char top-point) (funcall 'org-list-to-lisp)))) (if (fboundp
transform) nil (error "No such transformation function %s" transform))
(let ((txt (funcall transform plain-list))) (save-excursion (goto-char
(point-min)) (let ((receiver-count 0) (begin-re (format "BEGIN
+RECEIVE +ORGLST +%s\\([ \11]\\|$\\)" name)) (end-re (format "END
+RECEIVE +ORGLST +%s\\([ \11]\\|$\\)" name))) (while
(re-search-forward begin-re nil t) (setq receiver-count (1+
receiver-count)) (let (...) (if ... nil ...) (beginning-of-line)
(delete-region beg ...) (insert txt "\n"))) (cond ((> receiver-count
1) (message "List converted and installed at receiver locations")) ((=
receiver-count 1) (message "List converted and installed at receiver
location")) (t (user-error "No valid receiver location found"))))))))
  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)