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 | ;; ==================================================
;; (backbone)
;; ==================================================
;; ==================================================
;; ==================================================
(defun punch()
(progn
(other-window 1)
)
)
(defun generic(str with)
(progn
(punch)
(query-replace-regexp str
(concat with))))
;; backbone
(defun backbone()
(progn
(generic "||backbone" (concat "alpha\n"
"beta\n"
"theta"))
)
)
|