Xah Talk Show 2026-03-13 Ep779. AI and female warrior. Professor Jiang (predictive history)

xts ep779 2026-03 225c5
xts ep779 2026-03 225c5

Video Summary (Generated by AI, Edited by Human.)

This video is a casual talk show where the creator, Xah Lee, works on coding tasks while chatting with viewers. The main topics include Emacs Lisp programming, Wolfram Language coding, and discussions on modern society and politics.

Video Highlights:

AI video. cat girls sword fight

cat girls sword fight grok ai 2026-03 DYHsD
cat girls sword fight grok ai 2026-03 DYHsD https://x.com/InfinityReign/status/2031164114425217124

emacs lisp. xah-html-rehtmlize-precode-buffer

xah-html-rehtmlize-precode-buffer is renamed to xah-html-redo-syntax-color-pre-tags on 2026-03-13

Professor Jiang (predictive history)

professor jiang 2026-03-13 2989c
professor jiang 2026-03-13 2989c
professor jiang 2026-03 335a9
professor jiang 2026-03 335a9 https://x.com/xah_lee/status/2031914680596513015
d88c
8db4
c6d2
34ea
e56b

MTp7W
QSQxK
dmN3z
;; comparison of coding style

;; this style, is easy to understand, but is mutating a variable, not good functional programing style
(setq
 xnewName
 (let (xx)
   (setq xx (file-name-nondirectory (file-name-sans-extension xfromPath)))
   (setq xx (replace-regexp-in-string "\\`tt[0-9]*" "" xx t))
   (setq xx (replace-regexp-in-string "screenshot\\|Screen Shot" "sshot" xx t))
   (setq xx (replace-regexp-in-string "[, +|@()]" "_" xx t))
   (setq xx (replace-regexp-in-string "\\([0-9][0-9][0-9][0-9]-[0-9][0-9]-[0-9][0-9]\\)_\\([0-9]\\{6\\}\\)" (lambda (x) (concat (match-string 1 x) "_" (format "%05x" (string-to-number (match-string 2 x))))) xx t))))

;; s------------------------------

;; this style, is good functional programing style, but hard to read and hard to modify
(setq
 xnewName
 (replace-regexp-in-string
  "\\([0-9][0-9][0-9][0-9]-[0-9][0-9]-[0-9][0-9]\\)_\\([0-9]\\{6\\}\\)"
  (lambda (x)
    (concat (match-string 1 x) "_"
            (format "%05x"
                    (string-to-number
                     (match-string 2 x)))))
  (replace-regexp-in-string
   "[, +|@()]" "_"
   (replace-regexp-in-string
    "screenshot\\|Screen Shot"
    "sshot"
    (replace-regexp-in-string
     "\\`tt[0-9]*" ""
     (file-name-nondirectory
      (file-name-sans-extension xfromPath)) t) t) t) t))