Talk Show 2025-08-20 Ep694 Emacs Lisp Coding, Command to Optimize SVG

• https://youtu.be/oreOVXEX78c

• Optimize SVG File

• Elisp: Call Shell Command
• Elisp: Start External Process
• Comp Lang: LISP Syntax Problem of Chaining Functions

• Elisp: Lisp Basics
• Elisp: Sequence Functions

• Visual Dictionary of Special Plane Curves

• Xah Talk Show 2025-04-20 Ep645 Wolfram language, physics emulation of bouncing balls

;; -*- coding: utf-8; lexical-binding: t; -*-

(defun xah-optimize-svg ()
  "Optimize the svg file of current buffer.
In emacs lisp code, zfilepath is a filepath.
Created: 2025-08-20
Version: 2025-08-20"
  (interactive)
  (let (xorigpath xnewpath xcmd)
    (setq xorigpath buffer-file-name)
    (setq xnewpath (concat xorigpath ".svg"))
    (setq xcmd
          (concat "svgcleaner-cli --indent=0 --paths-coordinates-precision=2 --join-arcto-flags=yes "
                  (shell-quote-argument xorigpath)
                  " "
                  (shell-quote-argument xnewpath)))
    ;; (message "xcmd [%s]" xcmd)
    (shell-command xcmd)))