daniel/emacs
1
2
Fork 0
Code Issues 7 Pull Requests Projects Releases Wiki Activity

update packages

Browse Source
This commit is contained in:
Daniel Weschke
2025-11-25 19:52:03 +01:00
parent 14ba373378
commit dbbae92267
280 changed files with 13451 additions and 11207 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
lisp/htmlize/htmlize-pkg.el
View File

@@ -1,10 +1,10 @@
;; -*- no-byte-compile: t; lexical-binding: nil -*-
(define-package "htmlize" "20250704.1928"
(define-package "htmlize" "20250724.1703"
"Convert buffer text and decorations to HTML."
'((emacs "26.1"))
:url "https://github.com/emacsorphanage/htmlize"
:commit "bf759aa3b2c4099a4252dccdc1db361fbb13a520"
:revdesc "bf759aa3b2c4"
:commit "c9a8196a59973fabb3763b28069af9a4822a5260"
:revdesc "c9a8196a5997"
:keywords '("hypermedia" "extensions")
:authors '(("Hrvoje Niksic" . "hniksic@gmail.com"))
:maintainers '(("Hrvoje Niksic" . "hniksic@gmail.com")))

29
lisp/htmlize/htmlize.el
View File

@@ -5,8 +5,8 @@
;; Author: Hrvoje Niksic <hniksic@gmail.com>
;; Homepage: https://github.com/emacsorphanage/htmlize
;; Keywords: hypermedia, extensions
;; Package-Version: 20250704.1928
;; Package-Revision: bf759aa3b2c4
;; Package-Version: 20250724.1703
;; Package-Revision: c9a8196a5997
;; Package-Requires: ((emacs "26.1"))
;; SPDX-License-Identifier: GPL-3.0-or-later
@@ -76,7 +76,7 @@
(require 'cl-lib)
(defconst htmlize-version "1.58")
(defconst htmlize-version "1.59")
(defgroup htmlize nil
"Convert buffer text and faces to HTML."
@@ -351,8 +351,8 @@ https://www.iana.org/assignments/media-types/media-types.xhtml#image")
;; overlays that specify the `face' property, even when they
;; contain smaller text properties that also specify `face'.
;; Emacs display engine merges those faces, and so must we.
(or limit
(setq limit (point-max)))
(unless limit
(setq limit (point-max)))
(let ((next-prop (next-single-property-change pos 'face nil limit))
(overlay-faces (htmlize-overlay-faces-at pos)))
(while (progn
@@ -681,9 +681,9 @@ list."
(push (htmlize-get-text-with-display pos next-change)
visible-list))
((and (eq show 'ellipsis)
(not (eq last-show 'ellipsis))
;; Conflate successive ellipses.
(push htmlize-ellipsis visible-list))))
(not (eq last-show 'ellipsis)))
;; Conflate successive ellipses.
(push htmlize-ellipsis visible-list)))
(setq pos next-change last-show show))
(htmlize-concat (nreverse visible-list))))
@@ -950,7 +950,7 @@ If no rgb.txt file is found, return nil."
;; specifying any color. Hence (htmlize-color-to-rgb nil)
;; returns nil.
)
((string-match "\\`#" color)
((string-match "\\`#[0-9a-fA-F]\\{6\\}" color)
;; The color is already in #rrggbb format.
(setq rgb-string color))
((and htmlize-use-rgb-txt
@@ -982,7 +982,7 @@ If no rgb.txt file is found, return nil."
foreground ; foreground color, #rrggbb
background ; background color, #rrggbb
size ; size
boldp ; whether face is bold
boldp ; whether face is bold
italicp ; whether face is italic
underlinep ; whether face is underlined
overlinep ; whether face is overlined
@@ -1206,9 +1206,8 @@ If no rgb.txt file is found, return nil."
(def (cond ((stringp raw-def) (list :foreground raw-def))
((listp raw-def) raw-def)
(t
(error (format (concat "face override must be an "
"attribute list or string, got %s")
raw-def))))))
(error "Face override must be %s, got %S"
"an attribute list or string" raw-def)))))
(and def
(htmlize-attrlist-to-fstruct def (symbol-name face)))))
@@ -1316,8 +1315,8 @@ overlays that specify `face'."
(let ((sym (intern (format "htmlize-%s-%s" htmlize-output-type method))))
(indirect-function (if (fboundp sym)
sym
(let ((default (intern (concat "htmlize-default-"
(symbol-name method)))))
(let ((default (intern (format "htmlize-default-%s"
method))))
(if (fboundp default)
default
'ignore))))))