From 9dba2f344047e702b78a0eb4f90f3dcdda7bfa01 Mon Sep 17 00:00:00 2001 From: Tim Vaughan Date: Tue, 21 May 2019 13:30:08 +0200 Subject: [PATCH] Add function for rendering sixel graphics in current buffer. --- sixel.el | 14 ++++++++++++++ 1 file changed, 14 insertions(+) diff --git a/sixel.el b/sixel.el index 775bb58..5448ab4 100644 --- a/sixel.el +++ b/sixel.el @@ -194,4 +194,18 @@ Returns a sixel image object." (sixel-image-to-xpm-pixels sixel-image) "};") (error "Incorrecly formatted sixel string")))) +(defun sixel-render-images-in-buffer () + "Find and render any sixel images in the current buffer." + (interactive) + (save-excursion + (goto-char (point-min)) + (while (re-search-forward "P[[:ascii:]]*\\\\" nil t) + (let ((sixel-string (match-string 0)) + (inhibit-read-only t)) + (delete-region (match-beginning 0) + (match-end 0)) + (insert-image + (create-image (sixel-to-xpm sixel-string) 'xpm t)) + (insert "\n"))))) + ;;; sixel.el ends here -- 2.20.1