blob: 434cc8d60a547009e254e30dbd5464aaa27b9358 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
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)
|
