Xah Talk Show 2024-08-30 Ep581, Emacs Lisp Coding, Command to Rename Variables, Paul Graham Website Tech 1999

Xah Talk Show 2024-08-30 Ep581

• https://youtu.be/YehpvIvEmsg

• Timestamp
• 58:58 lisp coding begin

• Timestamp
• 3:15 show start
• 3:56 Svalboard
• 8:03 Why is your website so ugly
• 9:21 1995 Xah at Wolfram Research
• 11:38 JavaScript books
• 21:26 YouTube embed high memory usage
• 25:25 Paul Graham website ugly
• 27:55 Xah CSS tutorial showcase
• 37:59 Xah Unicode Blog
• 45:35 Netiquette
• 47:17 Paul graham hacker infatuation
• 49:26 Spy vs Spy comic tech nerds

• website design, gui, ui and ux
• validate html
• web design 1999 and web tech 1999.
• paul graham site, invalid html
• Better Bayesian Filtering 2003-01- By Paul Graham. At https://www.paulgraham.com/better.html

• Visual CSS
• CSS: Transform
• CSS: Linear Gradient
• CSS: Transition
• JavaScript in Depth
• History of Web Tech

• Unicode Search 🔎

• Xah Talk Show 2021-12-20 Fn Key, Poverty, Typing History, Mac vs Windows, M1 Chip, Barefoot Shoe

• Netiquette Anthropology: Tales of Tech Geekers
• Tech Geekers vs Spammers

• Emacs: Regular Expression Syntax

• emacs lisp, write command to rename xp1 xp2 to xbeg xend. the command should fix current defun

(defun xah-rename-elisp-var ()
  "Rename variables xp1 xp2 to xbeg xend, in current defun.

if var name xbeg already exist, it's renamed to xbeg888.
if var name xend already exist, it's renamed to xend888.

Created: 2024-08-30
Version: 2024-08-30"
  (interactive)
(let ((case-fold-search nil)
      (xbeg-new "xbeg888")
      (xend-new "xend888"))
  (save-restriction
    (narrow-to-defun)

    (progn
      (goto-char (point-min))
      (while (re-search-forward "\\_<xbeg\\_>" nil t)
        (replace-match xbeg-new t t))

      (goto-char (point-min))
      (while (re-search-forward "\\_<xp1\\_>" nil t)
        (replace-match "xbeg" t t)))

    (progn

      (goto-char (point-min))
      (while (re-search-forward "\\_<xend\\_>" nil t)
        (replace-match xend-new t t))

      (goto-char (point-min))
      (while (re-search-forward "\\_<xp2\\_>" nil t)
        (replace-match "xend" t t))))))

draw a hot chinese girl

draw a hot chinese girl, showing her whole upper body, wearing a haulter top with the word LISP printed on it, colored red.