On Tue, Jun 18, 2024 at 1:09 PM Ihor Radchenko <yanta...@posteo.net> wrote:
>
> Rustom Mody <rustompm...@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)
