Skip to content

Instantly share code, notes, and snippets.

@youz

youz/gist:276030

Created January 13, 2010 08:21
Show Gist options
  • Save youz/276030 to your computer and use it in GitHub Desktop.
Save youz/276030 to your computer and use it in GitHub Desktop.
Download ZIP
sogebu
Raw
gistfile1.lisp
;;; for xyzzy
(defun sogebu-region (from to &aux (text (buffer-substring from to)))
(interactive "r")
(with-input-from-string (is "H4sIAHp+TUsAA2t0aCQaKjSXa8Tlx2k2lyvUOXIRrw8GaxpPkKIrDkTqE9ShAHZTYxxhNyk0xmkoNDpowvgYGsAmKfT5w62PU2hsAamJR1gGZMcDlQBFNRrBFoPEm0FqoKJAWxQUuMCam9YqYLEFLAQAGz2QiHgBAAA=")
(insert (apply #'format nil (si:inflate-stream (si:base64-decode is))
(split-string (concat text "\n\n\n\n") #\LFD :ignore-empty nil)))))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment