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
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
|
(ept-page
(ept-align-center
(ept-text '("\n\n\n\nElpoint" . ept-title-face))
(ept-text "\n\n\n$B;{@>M50l(B Yuuichi Teranishi\nteranisi@gohome.org\n")
(ept-text '("\n\nSPC $B%-!<$r2!$7$F$/$@$5$$(B" . ept-highlight-face))))
(ept-page
(ept-title "$B;H$$J}(B")
(ept-itemize
(ept-item "1 $B%Z!<%8?J$`(B")
(ept-itemize
(ept-item "$B1&%\%?%s(B")
(ept-item "SPC"))
(ept-item "1 $B%Z!<%8La$k(B")
(ept-itemize
(ept-item "$B:8%\%?%s(B")
(ept-item "DEL"))
(ept-item "Elpoint $B$N:F@8$r=*N;$9$k(B")
(ept-itemize
(ept-item "q")))
(ept-align-center
(ept-text "\n$B$=$l$G$OFCD'$r$_$F$$$-$^$7$g$&(B")))
(ept-page
(ept-title "$B%&%$%s%I%&(B")
(ept-itemize
(ept-item "$BDL>o$OA42hLL$r;H$$$^$9(B")
(ept-item "$B2hLL$NBg$-$5$r<+F0H=Dj$7$FI=<($G$-$^$9(B"))
(ept-text "
(setq ept-play-frame-width 100
ept-play-frame-height 35)
$B$NMM$KBg$-$5$N;XDj$b$G$-$^$9(B"))
(ept-page
(ept-title "$BI=<(0LCV@)8f(B")
(ept-itemize
(ept-item "$BI=<($N0LCV$r@)8f$G$-$^$9(B"))
(ept-align-center (ept-text "$B%;%s%?%j%s%0(B\n"))
(ept-text "$B:84s$;(B\n")
(ept-align-right (ept-text "$B1&4s$;(B\n"))
(ept-text "
$BJ8;zNs$r$=$N$^$^I=<($5(B
$B$;$i$l$^$9$N$G#2%+%i%`(B
$B$K$9$k$3$H$b$G$-$^$9!#(B"))
(ept-page
(ept-title "$BJ8;z$NBg$-$5$H?'(B")
(ept-item "$BJ8;z$K$O$5$^$6$^$J(B face $B$r@_Dj$G$-$^$9(B")
(ept-text "\n\n " '("$BK\F|$O@2E7$J$j(B\n" . 'ept-title-face))
(ept-text " " '("$BK\F|$O@2E7$J$j(B\n" . 'ept-item-point-face))
(ept-text " " '("$BK\F|$O@2E7$J$j(B\n" . 'ept-highlight-face))
(ept-text " " '("$BK\F|$O@2E7$J$j(B\n" . 'underline)))
(ept-page
(ept-title "$B9TFb$G$N(B face $BJQ99(B")
(ept-item "$B9T$NESCf$G$b(B face $B$rJQ$($i$l$^$9(B")
(ept-text " $B;d$NL>A0$O(B" '("$B;{@>(B" . ept-highlight-face) "$B$G$9(B"))
(ept-page
(ept-title "$B9T$N@^$j6J$2(B")
(ept-itemize
(ept-item "$B$3$s$J$U$&$K$H$F$bD9$$9T$b$-$A$s$H@^6J$2$FI=<($7$F$$$^$9!#%=!<%9%3!<%I$NCf$G$O$3$3$O(B1$B9T$H$7$F=q$+$l$F$$$^$9(B")
(ept-itemize
(ept-item "$B$3$3$,<!$N9T$G$9!#CJ$,?<$/$F$b$[$iBg>fIW!#(B\
Emacs $B$H$$$&$/$i$$$G!"J8;zNs$N9T$O%P%C%/%9%i%C%7%e$GO"7k$G$-$^$9(B"))
(ept-item "A quick brown fox jumps over the lazy dog. A quick brown fox jumps over the lazy dog.")
(ept-item "$B$^$@9TKv6XB'(B($B!V!#!W$H$+$r9TF,$K$@$5$J$$(B)$B=hM}$7$F$^$;$s!#1Q8l$bC18l$G2~9T$7$^$;$s(B(TODO)")))
(ept-page
(ept-title "$B2hA|(B")
(ept-item "$B%$%a!<%8!&%U%!%$%k$rI=<($G$-$^$9(B")
(insert " ")
(ept-inline "logo.png")
(ept-text "
$B$3$l$O(B gimp $B$5$s$G@8@.$7$^$7$?(B
$B$"$j$,$H$&(B"))
(ept-page
(ept-title "$BBP1~$7$F$$$k2hA|(B")
(ept-item "$B$"$J$?$N(B Emacs $B$,I=<(2DG=$J%$%a!<%8!&%U%)!<%^%C%H$O0J2<$NDL$j$G$9(B")
(ept-text (mapconcat
(lambda (type)
(concat " " (symbol-name type)))
image-types
"\n")))
(ept-page
(ept-title "$B$3$s$J$3$H$b(B...")
(ept-slide-text '("$BK\F|$O@2E7$J$j(B\n" . ept-title-face))
(ept-slide-text '("$BK\F|$O@2E7$J$j(B\n" . ept-item-face))
(ept-slide-text "$BK\F|$O@2E7$J$j(B\n"))
(ept-page
(ept-title "$B0l9T$:$DI=<((B")
(ept-item "SPC $B$r(B 2 $B2s2!$7$F$/$@$5$$(B"))
(ept-pause
(ept-text " $BK\F|$O@2E7$J$j(B\n"))
(ept-pause
(ept-text " $BK\F|$O@2E7$J$j(B\n"))
(ept-page
(ept-title "$B%"%K%a!<%7%g%s(B")
(ept-item "SPC $B$r2!$7$F$/$@$5$$(B")
(insert " ") (ept-inline "logo.png"))
(ept-pause
(let ((pos (point)))
;; $B$&$%$`(B
(beginning-of-line)
(delete-region (point) pos)
(setq pos (point))
(insert " ") (ept-inline "logo2.png")
(sit-for 0.1)
(delete-region pos (point))
(setq pos (point))
(insert " ") (ept-inline "logo3.png")
(sit-for 0.1)
(delete-region pos (point))
(setq pos (point))
(insert " ") (ept-inline "logo.png")))
(ept-page
(ept-title "$B4X?t$N=PNO(B")
(ept-item "$B4X?t$NJV$jCM$rI=<($G$-$^$9(B\n")
(ept-text " (current-time-string)\n\n"
(cons (current-time-string) 'ept-highlight-face)
"\n\n\n"
" (char-list-to-string
(nreverse
(string-to-char-list \"this is test\")))\n\n"
(cons (char-list-to-string
(nreverse (string-to-char-list "this is test")))
'ept-highlight-face)))
(ept-page
(ept-title "$B@hFI$_5!G=(B")
(ept-item "Emacs $B<+?H$N%-%c%C%7%e5!G=$K$h$j0lEY:F@8$9$k$H#22sL\0J9_$N2hA|I=<($OB.$/$J$j$^$9!#(B"))
(ept-page
(ept-title "$B$*$7$^$$(B")
(ept-text " $B%"%C%W%G!<%H$J$I$N>pJs$O(B
"
'(" http://www.gohome.org/elpoint/" . 'ept-highlight-face)
"
$B$K7G<($5$l$^$9$N$G8fMw$/$@$5$$(B
$B%3%a%s%H$,$"$l$P(B
"
'(" teranisi@gohome.org" . 'ept-highlight-face)
"
$B$^$GAw$C$F2<$5$$(B\n\n")
(ept-align-center (ept-inline "logo.png")))
|
