what1fool.info

1 extracting style element from document with emacs lisp

WARNING! This is not working yet

(setenv "MYROOTDIR" (read-string "enter the root directory you want to use > "))
(let ((my-root-dir (getenv "MYROOTDIR"))
      (buffer-shortname "new.html"))
  (progn
    (find-file  (format "%s/src/what1fool.info/new.html" my-root-dir))
    (with-temp-buffer
      (insert (with-current-buffer  buffer-shortname (buffer-string)))
      (setq styley (nth  6 (cdr (cdr (car (cdr (cdr (libxml-parse-xml-region (point-min) (point-max)))))))))
    (kill-buffer buffer-shortname))))

Author: Coffee Crayon

Created: 2019-08-13 Tue 10:40

Validate