wechat.el是用Emacs Lisp打造的微信公众平台开发框架,基于elnode。源码已经托管在Github上:https://github.com/redraiment/wechat.el,现已收录在oschina。
$ ]+ \+ H/ F1 f4 ~" m借助Lisp语言强大的可定制性,使得开发一个公众平台的应用犹如编写一段剧本一样简单!例如本例——开窗游戏,展示了如何给予wechat.el实现自己的应用。- ( ?; c3 |) g+ d) B4 Q$ o5 ]# Q
- <p> </p><pre style="color: rgb(0, 0, 0); text-transform: none; line-height: normal; text-indent: 0px; letter-spacing: normal; font-style: normal; font-variant: normal; font-weight: normal; word-spacing: 0px; orphans: 2; widows: 2; -webkit-text-size-adjust: auto; -webkit-text-stroke-width: 0px;">;; 定义新的游戏地图- ~8 T7 T+ K$ g( }6 Z2 n
- (def-map "/game/5x5.el" ; 对外开放的URL. p. ?' F4 O# K2 O+ S
- 'tutorial-room-0) ; 默认的入口
6 G2 C6 Y' O, o0 R - 6 d& e* R0 ^9 Y, T! ?1 C7 `( u8 e; Q
- ;;; 游戏大厅" h' [3 T* A W
- (def-room living-room Y! G4 \. p8 Q) o* i8 ~2 X$ [
- ;; 进入该房间后的提示语
" Y* `) O; }# _/ F) t - "1. 教程: x" v1 i! t+ w$ ~/ |' U" P' m
- 2. 入门(3x3)0 L& T/ k- e/ J& C& l/ u
- 3. 初级(5x5)
' M1 }5 S$ T. o9 R' ? - 4. 中级(7x7)
2 C4 G8 y& S7 r8 L - 5. 高级(9x9)
0 A8 f" m4 Z2 t7 V/ I - 0. 关于作者# l9 r* i/ r+ ~9 @; o
- 请选择1-5开始新游戏:". b: R( ]% X! [6 n( k
- ("0" about-room) ; 期望用户输入的信息以及相应的后续房间名! W3 R8 W! _1 n v1 A7 t
- ("1" tutorial-room-0)
( W2 k7 d; P* w' D+ P - ("[2-5]" game-room-init) ; 用户输入信息可用正则表达式匹配
' M0 l/ y1 o7 D9 S" k" p - ; 相应的返回也可以为函数,动态返回房间名
) i2 _! Y2 i; W+ {6 v2 b - (t living-room)) ; 如果条件为t,为永真
3 q' n8 G& j$ s2 U4 S# L4 l+ c, [$ Z - 7 Z1 m$ i# Q& ~1 W# l
- ;;; 作者信息
4 y( g& }. j K8 u8 a6 b - (def-room about-room1 h' S* @# n$ ^. g, G& B4 O* _
- "作者:redraiment, N: w! g) Y/ t& l9 |! o) O
- 微博:http://weibo.com/redraiment: _3 E- S. @! ` l* s
- 有任何建议,欢迎在微博或微信上联系redraiment。
! ~ e3 J+ G& v - 请输入任意数字返回游戏大厅。"
8 G5 X3 ?$ o* I - (t living-room))
: K# v& F! A4 k' C, B/ |; N - ! c; N3 W- e- X& ]0 ^& e! H1 P: {
- ;;; 教程, {% ~5 t( {9 ^8 E( }1 y1 w
- (defvar *wechat-5x5-tutorial-rooms* 04 x; W5 r( F# T/ N' Q0 P
- "The number of tutorial rooms")
1 B1 O2 _4 p& Z: S; u0 E
+ [$ F2 k/ \2 M9 K9 _' D- ;;; 简化教程的定义2 D2 X7 _7 v8 \! `) g
- (defun string-last-line (content)# ~4 q# @9 ] h+ L" Z. |! F
- "多行内容组成的字符串中的最后一行"
6 O% C6 V# E. q" f B Z' a - (with-temp-buffer& f/ d( Q5 p! j+ F) a |
- (insert content)
* w, c7 _! ~) i1 z/ z7 H - (buffer-substring (line-beginning-position)& Q) {# j ^+ [3 @1 {
- (point-max)))), n7 }! {! f( ^/ J
- 8 v7 k8 a4 p, h4 U' b
- (defun def-tutorial-room (prompt)& `3 d7 }1 r9 a+ t* u( H
- "根据提示语自动生成教程房间。
4 f6 o5 [2 q4 _: Q% V1 o - 7 j: q: d$ N+ L, I5 ]) h/ A5 }# n! N
- 1. 提取最后一行作为问题;4 K+ @ D& A9 x; Y* m3 |" Z- z
- 2. 分析问题,获取期望用户输入的内容;9 D0 `+ y9 J' U' m1 G
- 3. 定义教程房间和重复提问房间。"
( g+ d- P v; n( t - (let* ((room-name (concat "tutorial-room-" (number-to-string *wechat-5x5-tutorial-rooms*)))8 t" Y$ C2 v+ |: g' k
- (repeat-room (concat room-name "-repeat"))
) a6 G* J" p4 E. I" S% W! v - (next-room (concat "tutorial-room-" (number-to-string (incf *wechat-5x5-tutorial-rooms*))))1 v# F. Y! {# n2 N* Z c) Y g
- (question (string-last-line prompt))
& W! b0 S3 K) q1 N - (except (if (string-match "请输入“\\([0-9a-zA-Z]+\\)”" question)
7 ]7 g+ g( ?2 O# b' } - (match-string 1 question)))
' B4 m/ q: J% r0 z/ [ - (doors (if except
7 V. i; `; ~! Q( r. [: B; E - `((,except ,(intern next-room)): `8 ~. r- q3 I; F1 s9 \
- ("q" living-room)
% @* U: A x3 l4 R" j O: K+ n - ("Q" living-room)& g& Z4 ^8 Z6 l4 U2 V
- (t ,(intern repeat-room)))1 w1 S W. W4 n+ C! |
- '((t living-room)))))
* ?+ v1 U+ R# H8 q1 z4 R - (def-room-raw (intern room-name) prompt doors)' {1 U% C! n; w
- (def-room-raw (intern repeat-room) question doors)))
) p; X+ A+ i) q* A- s- s - 8 U& a8 m0 A' N7 u6 X
- (defun def-tutorial (&rest prompts) j# _. y5 U7 T, D _% n
- "批量生成教程房间。"
! ^7 H& @' b5 a; D/ |. ], `3 e - (dolist (prompt prompts)
" G w+ c* y E9 ]4 Z9 l - (def-tutorial-room prompt)))
; @, t5 P8 Z& A. A+ i8 z4 O
# \/ M! F. C2 n' {5 T# q" [* z- (def-tutorial! _8 Y5 p; b" K; U0 }1 |' N
- "欢迎体验微信版的开窗游戏!为了让您尽快熟悉游戏的规则,请根据教程提示一步一步完成要求的操作。注:任何时刻,您都能输入“q”来退出本教程。
( S( i* _8 o7 j8 s, C! d - 1. 教程
% I4 d/ A! Y7 _ - 2. 入门(3x3)% Y0 k! v: B7 H8 O, Q9 r! S
- 3. 初级(5x5)( G+ j2 Z" _& M7 s E3 p& N8 i6 L
- 4. 中级(7x7)
1 V( I% F( S) e3 \8 V" z# g - 5. 高级(9x9): x$ L$ {) I% h0 V0 P) m1 d
- 0. 关于作者) g& i+ R% e+ p
- 请选择1-5开始新游戏:
- b9 u% D3 p+ M - 您现在正在游戏大厅里。
6 W. E4 e! a" w. R" ?: N2 e0 [ - 请输入“2”进入入门级房间"
* {4 `# E+ U' p - " ①②③
& {4 F# b( I/ b; ^2 m' {' | - 1 ■ ; H! b0 z/ o6 c# X
- 2■■■
" {# z$ ]$ M" T' |4 C; k - 3 ■ , ]/ X8 F8 d! k1 U0 ^
- 进入房间后,您就会看到一个如上图所示的3x3棋盘。其中黑子代表打开的窗户,白子代表关闭的窗户。您可以输入任意一个棋盘上的坐标,来开启或关闭某扇窗户。游戏的目标是开启所有窗户!8 v3 o3 ]. B% X% b
- 请输入“22”来关闭第2行第2列的窗户。"1 m: a: ^3 v0 }
- " ①②③3 Z, B i X4 T. J" Z! c* A
- 1
' G+ A3 _. t" P* I) s - 2 : `1 ~, [' R7 d5 K! ]( c6 e
- 3 ) S9 _3 q+ Y4 g4 k) h' ~6 T- a }/ D
- 你可能被吓了一跳,怎么所有的窗户都被关闭了?我忘了告诉您:这些格子是被按了机关的,只要一个窗户被开启或关闭,它的上下左右四扇窗户也会连锁反应,被开启或关闭。7 E# B- Q- q; D! C
- 请输入“11”,试着开启左上角的窗户。"& ^* W* B7 @( G$ d p, s6 w
- " ①②③
! O+ [" Z) n. k - 1■■ ; m6 z* k' r% ?+ w: m* a6 |# Z
- 2■
2 c8 U1 [) _4 m - 3 1 c4 Q4 x! V( ]8 @
- 因为连锁反应,11右边和下面的窗户也被开启了。但因为11在左上角,没有上面和左边,因此这回总共只开启了三扇窗户。6 K1 |. V# }2 v1 ?
- 请输入“13”开启右上角的窗户。"
$ z& k7 Y; y% z- ] - " ①②③
0 R& s1 T1 @0 Z' I - 1■ ■
2 p7 J0 Y$ v) ?4 `3 J6 a* { - 2■ ■
1 {7 Z. Y5 c- h: `' n7 k7 K - 3
! [0 X: x% |. u. T' n - 第1行第2列上的窗户因为本来就是处于开启状态的,这回因为13的连锁反应,又重新被关闭了。9 C5 h" @# @# V8 y6 i" ?1 y
- 请输入“31”开启左下角的窗户。"
5 A4 R5 h7 c) b - " ①②③( ^* Z, j- z( a' ?$ K& v& p
- 1■ ■
6 q) `4 t: i$ |3 s6 v - 2 ■9 e$ S7 N8 ~( u
- 3■■ 2 [; ^0 p* Y) W8 A$ j8 {8 @: e
- 此时,总共有5扇窗户被开启了。. k' m3 s7 {0 S; @" T. o0 M
- 请输入“33”开启右下角的窗户。"0 x4 d0 o2 v. K$ ~* e1 F) X/ n9 N- }
- " ①②③0 n: d' e& x$ R X
- 1■ ■- O+ x8 w/ r' {$ o+ \ i
- 2 . ?7 p0 g$ A5 `' ^* t( G2 B
- 3■ ■; j6 K. p# Z$ @' n3 N! n( ~
- 现在,只有四个角落的窗户被打开。5 {1 T2 A) F" w) S' m$ J4 s
- 请输入“22”完成最后一击!"2 d: t: \' B3 _* w7 i
- " ①②③
! C# u. c. k4 o" b& j - 1■■■
1 ^. ]+ L0 ~( H) y - 2■■■
2 ~" Z1 }/ @" \! | - 3■■■$ z( b+ N0 `$ [4 \! x' `
- 您已完成教程的所有内容,输入任意内容返回大厅,开始您的开窗之旅!")
C/ o* L' T% q; |
/ x/ q6 z r2 E1 X- ;;; 棋盘6 a: [* J6 _' \. c( U0 x% B0 w6 t
- (defconst *wechat-5x5-white-chess* 12288
" B/ O1 ]5 E# i9 x8 e0 }2 O' C% L - " ")
6 H+ {9 V! Y: N5 `3 ?
: N3 N' R) N1 e& f# `- (defconst *wechat-5x5-black-chess* 9632
" w3 [8 o" _% N8 j - "■")* z- `2 X# b, a3 E9 ~) |0 P
- - [% P2 d* _8 L8 s/ a
- (defmacro with-board (&rest body)
7 A! Y% a8 h: o; w; ]; d' t+ V$ { - `(with-temp-buffer
$ Z: n/ }) E. L7 m( c - (unwind-protect
& }+ g: [" k* D - (progn
I8 d9 n$ a5 A* k: J3 o - (if (session "board")
. T. W+ r0 M# B3 E - (insert (session "board")))
" l1 f( F+ r2 u$ ^ - ,@body), y! ]/ @3 D& E" N0 |
- (session "board" (buffer-string)))))( | E$ O3 u$ R8 p$ d
- 3 {! p' m. a; H1 @$ T: r; l
- (defun board-init (size)
* x" I9 I% {1 a7 `. x: X. u - (session "size" size)& f4 A; e9 T Q+ d4 s3 J
- (session "step" 0)
: d2 U" U3 f x% c& h - (erase-buffer)1 d0 D: [( F! A n5 D& N$ C5 s
- (insert (format (format " %%.%ds\n" size) "①②③④⑤⑥⑦⑧⑨"))9 t. ?/ s3 k* k% S3 D( i
- (dotimes (row size)
2 p8 W t0 P! D* p, c0 B - (insert (format "%d%s\n" (1+ row) (make-string size *wechat-5x5-white-chess*)))))" Z, G! [" T7 _# I# a6 t
; V# Y% z, Q2 H1 C1 a" H- (defun board-contains-p (y x)
1 k' z/ g0 ~9 f$ l. L - (let ((size (session "size")))5 ~+ g$ r$ G/ }8 _0 X# @2 r4 I( e& X7 H
- (and (<= 1 y) (<= y size)+ ]+ q" L! l$ R. Q
- (<= 1 x) (<= x size))))
. S( o; i4 b8 {- a - 2 b. W) S9 g& A. o% G2 E2 K7 s1 j$ ~
- (defun board-toggle (y x)
$ m8 Y0 V4 @$ r: @* \) N8 q `3 g) [ - (when (board-contains-p y x)0 \4 C4 @& x# p! Z( S2 T& Y, e; x$ r+ ~
- (goto-line (1+ y))
) }; R! A# b; G! s( M. X- E - (beginning-of-line)) G' q7 S9 ]7 H/ n, F0 G' O& E
- (forward-char x)
! Y- A% M* l- w" F2 S - (insert (if (= *wechat-5x5-white-chess* (following-char))
" f+ s- \% u1 B5 S* T - *wechat-5x5-black-chess*. O! T3 @5 A" V Y- Q
- *wechat-5x5-white-chess*)) k" k" f) X j1 U! T0 C3 j
- (delete-char 1)))
0 _/ ]4 j L# i% d! K: r5 p - 2 I* {' A1 a; ?3 c' m T( h
- (defun board-put (y x)
r9 j- Z0 E% D1 y6 y6 S - (dolist (dir '((-1 0) (0 -1) (0 0) (0 1) (1 0)))2 k5 Q. e" G% h' X5 Q
- (board-toggle (+ y (first dir))
O/ F0 z7 e4 Q- \6 {% n - (+ x (second dir)))))
5 r9 s# k4 H' x" v2 ^3 G! e) F
! j3 c* ? I! g/ C- (defun game-over-p ()8 J I& s* T4 ]+ D9 \3 V% U- e
- (beginning-of-buffer)
M7 x) Z, t6 O - (not (search-forward (string *wechat-5x5-white-chess*) nil t)))
! t- `% S1 ^& F q7 ]
8 K& ~: R6 J* q. G- (defun board-show ()4 F5 D9 A" e9 H9 Q8 B
- (with-board
( \2 E; j: |) J5 f/ i! p - (concat (buffer-string)
' y& Q2 _# ~! \# E - (if (game-over-p)2 E- D2 }. ]6 K L1 F: m) d# M) h
- (format "共%d步,输入任意内容返回大厅" (session "step"))
4 v3 B8 m5 k. T7 o1 [ - (format "第%d步" (1+ (session "step")))))))6 T5 s- X0 h$ E! A" s/ _% G
* f, \* ?7 f1 ]( Y2 M D0 C% R0 |- (defun board-position-parse (cmd)
7 ^9 N1 P6 Z7 D - (if (= (length cmd) 2)
& A _( G% Y' `) ? m$ ~ - (list (string-to-int (substring cmd 0 1))
4 w3 y) u3 p1 ~% n - (string-to-int (substring cmd 1 2)))& y5 e& M& }% ~) \4 r
- '(0 0)))
9 V& Y y1 E- U/ E! [ - 5 x Y& m( W4 u- M. [+ p0 ?
- ;;; 游戏房间& L8 x4 y- \: I9 H: O/ ?
- (defun game-room-init (cmd)
$ I3 o, ~5 D% l - (let* ((middle (string-to-int cmd))- n7 g3 W" l8 @
- (size (1- (* 2 middle))))
8 @) ^: ~8 @1 U/ G8 t6 l' ? - (with-board7 U" D/ x( i2 [! K' `" K. r
- (board-init size)
]* }% _. O3 n$ b* s# N; F - (board-put middle middle)))
3 N6 B5 M8 {9 ~0 |( c; m - 'game-room)( v. x$ ^4 d7 t5 x& R
5 a3 m/ \8 \4 V4 p- (def-room game-room! _* `4 @1 n& ^4 W F% @7 r- r
- #'board-show
3 {0 A4 m4 q3 _$ K: O - (t (lambda (cmd)5 {: e2 R! `7 T: E) V+ ]' W& I, s0 t
- (with-board
6 _! ?% E7 L0 n8 d- F" h Q - (if (game-over-p)
" {9 @9 [1 M( U# c; r- | - 'living-room' R' i/ i; }: ?. J" _
- (destructuring-bind (y x) (board-position-parse cmd)
' y6 Q: e4 E) H& d+ H# [ { - (when (board-contains-p y x)
9 I$ Y/ T0 O' e" s9 ?* `% Y - (board-toggle y x)
! }( \& u8 k3 l' y" g% B6 ~ - (session "step" (1+ (session "step"))))
' b: e c% l" W; H% p - 'game-room))))))</pre>
复制代码 |
上一篇:微信扫描登录下一篇:微信红包
|