Zander671/emacs-config
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Inital 31.1 changes

Browse Source
This commit is contained in:
Zander671
2026-08-24 17:07:24 -07:00
parent fe65b9bbe4
commit fce9247c63
8 changed files with 41 additions and 354 deletions
Download Patch File Download Diff File Expand all files Collapse all files
elisp/latex-help.el
+15 -15
View File
@@ -272,9 +272,9 @@ FOUND is the hash table in which to put the entries."
while dir
when (file-directory-p dir) do
(let ((files (directory-files dir t)))
(if (cl-member-if (lambda (file)
(latex-help--is-marker-file file root))
files)
(if (member-if (lambda (file)
(latex-help--is-marker-file file root))
files)
;; dir is an entry
(puthash (file-name-nondirectory dir) nil found)
;; search all subdirs
@@ -295,7 +295,7 @@ FOUND is the hash table in which to put the entries."
(goto-char (point-min))
(forward-line 2)
(cl-loop while (re-search-forward (rx bol (+ " ") "active" "\t"
(group (+ any)) eol) nil t)
(group (+ not-newline)) eol) nil t)
collect (match-string 1))))
(defun latex-help--texdoc-config-file-entries (file found)
@@ -359,7 +359,7 @@ prompting with `completing-read'."
"\t"
(? (+ (not "\t")))
"\t"
(group (* any))))
(group (* not-newline))))
nil t)
for file = (match-string 1)
for desc = (match-string 2)
@@ -424,8 +424,8 @@ This is done by parsing the index for `latex-help-info-manual'."
(group (or
","
(+ (not (any " " "{" ",")))))
(*? any) ":" (+ " ")
(group (+? any)) ".")))))
(*? not-newline) ":" (+ " ")
(group (+? not-newline)) ".")))))
(push (list "(SPACE)" "\\(SPACE)") found)
(when-let* ((entry (assoc "(...\\)" found)))
(setq found (assoc-delete-all "(...\\)" found))
@@ -441,20 +441,20 @@ This is done by parsing the index for `latex-help-info-manual'."
"Discover LaTeX packages.
This is done by parsing the index for `latex-help-info-manual'."
(latex-help--run-index-search (rx (and bol "* package, "
(group (+? any))
(group (+? not-newline))
(any " " ":")
(+? any) (+ " ")
(group (+? any))
(+? not-newline) (+ " ")
(group (+? not-newline))
"."))))
(defun latex-help--discover-environments ()
"Discover LaTeX environments.
This is done by parsing the index for `latex-help-info-manual'."
(latex-help--run-index-search (rx (and bol "* environment, "
(group (+? any))
(group (+? not-newline))
(any " " ":" "-")
(+? any) (+ " ")
(group (+? any))
(+? not-newline) (+ " ")
(group (+? not-newline))
"."))))
(defun latex-help--discover-classes ()
@@ -589,7 +589,7 @@ from the texdoc cache."
(car prompts)))))
(when (string-match (rx bos "(" (group (+ (any (?a . ?z))
(any (?A . ?Z))))
") " (group (* any)))
") " (group (* not-newline)))
selected)
(if (equal (match-string 1 selected) "Info")
(cons (assoc (match-string 2 selected) (cdr info-entry)) 'info)
@@ -670,7 +670,7 @@ Prompt the user for an info topic or texdoc file, then open that thing."
(if (string-prefix-p "(Texdoc) " ans)
(latex-help-texdoc (seq-subseq ans (length "(Texdoc) ")))
(string-match (rx "(Info) " (group (+ (not " ")))
" - " (group (+ any)))
" - " (group (+ not-newline)))
ans)
(when-let* ((thing (match-string 2 ans))
(type (intern (downcase (match-string 1 ans))))