From ab10720260e2c184b319026da89f4dfd338500bb Mon Sep 17 00:00:00 2001
From: Brian Cully <bjc@kublai.com>
Date: Wed, 2 Apr 2008 19:20:20 -0400
Subject: Initial commit

---
 PlugIns/Sample-Plugin.lisp | 60 ++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 60 insertions(+)
 create mode 100644 PlugIns/Sample-Plugin.lisp

(limited to 'PlugIns/Sample-Plugin.lisp')

diff --git a/PlugIns/Sample-Plugin.lisp b/PlugIns/Sample-Plugin.lisp
new file mode 100644
index 0000000..434cc8d
--- /dev/null
+++ b/PlugIns/Sample-Plugin.lisp
@@ -0,0 +1,60 @@
+#-cl-ppcre (asdf:operate 'asdf:load-op :cl-ppcre)
+(defpackage sample-plugin
+  (:use :cl :cl-user :moxie :bjc-utils :cl-ppcre))
+(in-package :sample-plugin)
+
+(defvar *page-highlight-attrs* (list (make-color 240 10 240)))
+
+(defun print-mandel (&optional (stream *standard-output*))
+  "Prints a mandelbrot set to STREAM."
+  (loop for y from -1 to 1.1 by 0.1 do
+       (format stream "~%")
+       (loop for x from -2 to 1 by 0.04 do
+            (let* ((c 126)
+                   (z (complex x y))
+                   (a z))
+              (loop while (< (abs
+                              (setq z (+ (* z z) a)))
+                             2)
+                 while (> (decf c) 32))
+              (princ (code-char c) stream)))))
+
+(defun mandel-in-string ()
+  (escape-mux-string (with-output-to-string (s)
+                       (print-mandel s)
+                       s)))
+
+(defun mandel-page (string)
+  "Sends a mandelbrot set to the first arg in STRING."
+  (map-variables "p $1$=$2$"
+                 (list (car (split "\\s+" string))
+                       (mandel-in-string))))
+
+(defun highlight-pages (string)
+  "Highlights a page if it comes in."
+  (let ((string (if (stringp string) string (car string))))
+    (multiple-value-bind (match names)
+        (scan-to-strings "^((.*)\\s+pages:|From afar, (\\w+))" string)
+      (when match
+        (format t "You were paged by: ~A.~%" (elt names 1))
+        (make-attributed-string string *page-highlight-attrs*)))))
+
+(defun complex-attribute (keystroke)
+  (let ((attr-string (make-attributed-string "Foobarbaz"
+                                             `(,(make-color 255 255 255) (:italic 0.25))
+                                             `(,(make-range 3 3)
+                                                ,(make-super 1)
+                                                ,(make-color 127 127 127))
+                                             `(,(make-range 6 3)
+                                                ,(make-super 2)
+                                                ,(make-color 63 63 63)))))
+    (format t "complex attribute: ~S~%" attr-string)
+    (print-to-world *world* attr-string)))
+
+;; Now that we have the functions defined, hook 'em into Moxie.
+(add-hook 'highlight-pages :output-from-server-hook)
+
+; Register MANDEL-PAGE for the command "/MANDEl"
+(add-keyword 'mandel-page "mandel")
+
+(add-keystroke-macro 'complex-attribute :f1)
-- 
cgit v1.2.3