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-12-25 11:44:13 +01:00
parent 059fa06572
commit 1dab1fe4ab
144 changed files with 19985 additions and 1331 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
lisp/markdown-mode/markdown-mode-pkg.el
View File

@@ -1,10 +1,10 @@
;; -*- no-byte-compile: t; lexical-binding: nil -*-
(define-package "markdown-mode" "20251028.412"
(define-package "markdown-mode" "20251204.852"
"Major mode for Markdown-formatted text."
'((emacs "28.1"))
:url "https://jblevins.org/projects/markdown-mode/"
:commit "b524618c3ed28906a7522482727f121428ce7e2e"
:revdesc "b524618c3ed2"
:commit "92802fae9ebbc8c2e4c281c06dcdbd74b8bca80e"
:revdesc "92802fae9ebb"
:keywords '("markdown" "github flavored markdown" "itex")
:authors '(("Jason R. Blevins" . "jblevins@xbeta.org"))
:maintainers '(("Jason R. Blevins" . "jblevins@xbeta.org")))

38
lisp/markdown-mode/markdown-mode.el
View File

@@ -6,8 +6,8 @@
;; Author: Jason R. Blevins <jblevins@xbeta.org>
;; Maintainer: Jason R. Blevins <jblevins@xbeta.org>
;; Created: May 24, 2007
;; Package-Version: 20251028.412
;; Package-Revision: b524618c3ed2
;; Package-Version: 20251204.852
;; Package-Revision: 92802fae9ebb
;; Package-Requires: ((emacs "28.1"))
;; Keywords: Markdown, GitHub Flavored Markdown, itex
;; URL: https://jblevins.org/projects/markdown-mode/
@@ -9760,6 +9760,18 @@ This function assumes point is on a table."
(cl-loop for c across line
always (member c '(?| ?- ?: ?\t ? )))))
(defun markdown-table-align-raw (cells fmtspec widths)
(let (fmt width)
(mapconcat
(lambda (cell)
(setq fmt (car fmtspec) fmtspec (cdr fmtspec))
(setq width (car widths) widths (cdr widths))
(if (equal fmt 'c)
(setq cell (concat (make-string (/ (- width (length cell)) 2) ?\s) cell)))
(unless (equal fmt 'r) (setq width (- width)))
(format (format " %%%ds " width) cell))
cells "|")))
(defun markdown-table-align ()
"Align table at point.
This function assumes point is on a table."
@@ -9784,8 +9796,6 @@ This function assumes point is on a table."
(maxcells (if cells
(apply #'max (mapcar #'length cells))
(user-error "Empty table")))
;; Empty cells to fill short lines
(emptycells (make-list maxcells ""))
maxwidths)
;; Calculate maximum width for each column
(dotimes (i maxcells)
@@ -9797,20 +9807,20 @@ This function assumes point is on a table."
(setq fmtspec (markdown-table-colfmt fmtspec))
;; Compute formats needed for output of table lines
(let ((hfmt (concat indent "|"))
(rfmt (concat indent "|"))
hfmt1 rfmt1 fmt)
(dolist (width maxwidths (setq hfmt (concat (substring hfmt 0 -1) "|")))
(setq fmt (pop fmtspec))
(cond ((equal fmt 'l) (setq hfmt1 ":%s-|" rfmt1 " %%-%ds |"))
((equal fmt 'r) (setq hfmt1 "-%s:|" rfmt1 " %%%ds |"))
((equal fmt 'c) (setq hfmt1 ":%s:|" rfmt1 " %%-%ds |"))
(t (setq hfmt1 "-%s-|" rfmt1 " %%-%ds |")))
(setq rfmt (concat rfmt (format rfmt1 width)))
hfmt1 fmt (fmts fmtspec))
(dolist (width maxwidths)
(setq fmt (car fmts) fmts (cdr fmts))
(cond ((equal fmt 'l) (setq hfmt1 ":%s-|"))
((equal fmt 'r) (setq hfmt1 "-%s:|"))
((equal fmt 'c) (setq hfmt1 ":%s:|"))
(t (setq hfmt1 "-%s-|")))
(setq hfmt (concat hfmt (format hfmt1 (make-string width ?-)))))
;; Replace modified lines only
(dolist (line lines)
(let ((line (if line
(apply #'format rfmt (append (pop cells) emptycells))
(concat indent "|"
(markdown-table-align-raw (pop cells) fmtspec maxwidths)
"|")
hfmt))
(previous (buffer-substring (point) (line-end-position))))
(if (equal previous line)