1
; -*- Mode: Lisp; Package: editor -*-
4
= rabbit-mode - rabbit �̃t�����g�G���h
6
* Author: MIYAMUKO Katsuyuki ((<URL:mailto:miyamuko (at) mtb.biglobe.ne.jp>))
7
* URL: ((<URL:http://miyamuko.s56.xrea.com/xyzzy/rabbit-mode.html>))
13
Ruby �ŏ����ꂽ�v���[���c�[����
14
((<"rabbit"|URL:http://www.cozmixng.org/~rwiki/?cmd=view;name=Rabbit%3A%3AREADME.ja>))
15
�������֗��Ɏg����悤�ɂ���t�����g�G���h�ł��B
17
rd �t�@�C����ҏW���Ȃ��� xyzzy ���� rabbit ���N���ł��܂��B
21
* rabbit ���t���X�N���[�����[�h�ŋN���ł���B
23
* �^�C�g���y�[�W�̃e���v���[�g��}���ł���B
25
* �t�@�C�������Ȃ��Ă����s�ł���
27
* �X���C�h�ꗗ��\������ jump (list-function)
28
* �X���C�h���Ƃ���\�����X���C�h�P�ʂł̈ړ� (C-M-n, C-M-p)
29
* ��\���X���C�h���g�O��
33
* ���[�W�������̃X���C�h�̂�
34
* �Z���N�V�������̃X���C�h�̂�
35
* �������^�C�g���y�[�W�͊܂܂��B
36
* �X���C�h���w��ŋN���Ƃ��ł��Ȃ�����?
38
== ���Ȃ� (�ł��Ȃ�) ����
42
=== ���ꂩ���邩������Ȃ�����
44
* �T�u�^�C�g���Ƃ��� interactive �ɓ���
47
* tdiary theme ���� rabbit theme �ɕϊ��ł���Ƃ����������B
48
* �w�i�摜�Ƃ��͎w��ł��Ȃ�(?)
50
* �E�E�E���Ă���� lisp ����Ȃ��� ruby �Ŏ������� rabbit �{�̂Ɏ�荞��ł�������ق����悳���B
53
* rd �x���� ruby-doc-minor-mode �ɔC���悤�Ǝv�������ǂ�낤���ȁB
54
* rd �ɓ������� rd-mode �����������ɂ����Ƃ���B
56
* ���� rd ������ rabbit �� (rabbitalize ?)
57
* �ӏ������̃g�b�v���x�����X���C�h�̃^�C�g���ɂ���
58
* ���̕ϊ��� rabbit ���s���ɂ��B
59
* �ӏ�������ϊ�����{�v���r���[,���s}
60
* �ӏ������łЂ����珑�������ꍇ�ɕ֗��B(���Ƃ����� todo ���X�g)
61
* ���o�����x��2 (==) ���X���C�h�̃^�C�g����
63
* �e���v���[�g���w�肵�ĐV�����X���C�h�̍쐬 (C-m)
68
* keep_scale�Arelative_width �Ȃǂ̕⊮
70
* �e���v���[�g�̃e�L�X�g�t�@�C����
71
* �e�L�X�g�t�@�C���ō���Ăǂ����ɒu���ƃ��j���[�ɏo�Ă���B
72
* Sigma: �� sum: �̎��̎Q�ƁiRabbit�Ǝ��g���j�̕⊮
73
* �u�������N���b�N���� xxx ��lj��v�̏�ŃN���b�N����ƂȂɂ��N����B
75
* �K�v�ȃX���C�h�i�� or �ԍ�) ���`���� (�ǂ������? ����ȃR�����g?) ���������X���C�h�V���[
76
* xyzzy �� http �T�[�o�ɂ��� RWiki/Hiki �̂悤�Ƀy�[�W�\�[�X�̒�
77
* �ȉ��̂悤�ȃP�[�X�Ŗ��ɗ��������B
78
* rwiki ���ȒP�ɗ��Ă��Ȃ�
79
* ���\�}�V���� rabbit ����������
80
* �X���C�h�쐬�}�V���Ɣ��\�}�V�����Ⴄ (�쐬: Win, ���\: Linux �Ƃ�)
82
* RWiki �݊��ɂ���ꍇ soap.l �����Ȃ��Ƃ��߂���
83
* rabbit-mode �̂Ƃ��̂݃��j���[�\��
84
* rd-mode ���}�C�i�[���[�h�ɂ��� rabbit-mode �����W���[���[�h
85
* rd-mode �����W���[���[�h�ɂ��� rabbit-mode �̓��[�h�p��
86
* xyzzy ���� rabbit �̑���
87
* rabbit �� FindWindow ���� SendMessage ����(?)
89
* �X���C�h�P�ʂňړ������ꍇ�͎����I�� SendKey ����
90
* �y�[�W���� 2 ������ꍇ�͖��� (?)
93
* zphoto �Ȃǂ̊O���c�[���Ƃ̘A�g
96
* rabbit-theme-browser
100
((<NetInstaller|URL:http://www7a.biglobe.ne.jp/~hat/xyzzy/ni.html>)) �ŃC���X�g�[�������ꍇ��
103
(1) �A�[�J�C�u���_�E�����[�h���܂��B
105
((<URL:http://miyamuko.s56.xrea.com/xyzzy/archives/rabbit-mode.zip>))
107
(2) �A�[�J�C�u��W�J���āA$XYZZY/site-lisp �z���Ƀt�@�C�����R�s�[���܂��B
109
(3) ~/.xyzzy �܂��� $XYZZY/site-lisp/siteinit.l �Ɉȉ��̃R�[�h��lj����܂��B
112
(require "rabbit-mode")
113
(pushnew '("\\.rd$" . rabbit-mode) *auto-mode-alist* :test 'equal)
115
(4) �ݒ�f������ɂ� xyzzy ���ċN�����Ă��������B
117
��siteinit.l �ɋL�q�����ꍇ�ɂ͍ă_���v���K�v�ł��B
119
(5) ruby.exe �Ƀp�X��ʂ��Ă��Ȃ��ꍇ�� ((<*rabbit-command*>)) ��ݒ肵�܂��B
121
(6) rd �t�@�C�����J�����j���[���� rabbit ���N�������������B
130
�X���C�h�V���[���J�n���܂��B
134
�J�[�\�����̃X���C�h���i���[�C���O���܂��B
138
�J�[�\�����̃X���C�h�̕\���E��\�����g�O�����܂��B
142
�J�[�\�����̃X���C�h���R�s�[���đ}�����܂��B
146
�X���C�h�ꗗ����I�������X���C�h���R�s�[���đ}�����܂��B
150
���̃X���C�h�Ɉړ����܂��B
154
�O�̃X���C�h�Ɉړ����܂��B
158
���݂̃X���C�h�� kill ���܂��B
162
���݂̃X���C�h���ЂƂ�Ɉړ����܂��B
166
���݂̃X���C�h���ЂƂ��Ɉړ����܂��B
170
���݂̃X���C�h���}�[�N���܂��B
175
rabbit �����s����R�}���h���w�肵�܂��B�f�t�H���g�� (({ruby -S rabbit})) �ł��B
177
ruby.exe �Ƀp�X��ʂ��Ă��Ȃ��ꍇ��I�v�V�������w�肵�����ꍇ��
181
(setf *rabbit-command* "C:/ruby184/bin/ruby.exe -S rabbit")
183
�p�X���ɋ����������Ă���Ƃ��܂������Ȃ��Ǝv���܂��B
186
--- *rabbit-institution*
187
rabbit-insert-title-template �Ń^�C�g���y�[�W��}������Ƃ���
188
��� (author) �� ���� (institution) ���w�肵�܂��B
191
== �֘A���邩������Ȃ��y�[�W
194
((<URL:http://www.cozmixng.org/~rwiki/?cmd=view;name=Rabbit%3A%3AREADME.ja>))
196
: Ruby-GNOME2 Project Website
197
((<URL:http://ruby-gnome2.sourceforge.jp/ja/index.html>))
200
((<URL:http://raa.ruby-lang.org/project/rabbit/>))
203
((<URL:http://raa.ruby-lang.org/project/ruby-gnome2/>))
208
rabbit-mode �͏C�� BSD ���C�Z���X�Ɋ�Â��ė��p�\�ł��B
210
Copyright (C) 2004-2006 MIYAMUKO Katsuyuki. All rights reserved.
212
Redistribution and use in source and binary forms, with or without
213
modification, are permitted provided that the following conditions are
216
1 Redistributions of source code must retain the above copyright notice,
217
this list of conditions and the following disclaimer as the first lines
218
of this file unmodified.
220
2 Redistributions in binary form must reproduce the above copyright
221
notice, this list of conditions and the following disclaimer in the
222
documentation and/or other materials provided with the distribution.
224
THIS SOFTWARE IS PROVIDED BY THE AUTHOR AND CONTRIBUTORS ``AS IS'' AND
225
ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
226
IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
227
ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE
228
FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
229
DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
230
OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
231
HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
232
LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
233
OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
237
(provide "rabbit-mode")
238
(in-package "editor")
240
(export '(rabbit-slide-show
242
rabbit-preview-current-slide
243
rabbit-preview-region
244
rabbit-preview-selection
245
rabbit-preview-begin-end
247
rabbit-insert-title-template
248
rabbit-toggle-hide-slide
250
rabbit-narrow-to-slide
252
rabbit-move-down-slide
254
rabbit-copy-current-slide
257
rabbit-backward-slide
264
*rabbit-mode-syntax-table*
268
(defvar *rabbit-command* "ruby -S rabbit")
270
;; �R�����g�A�E�g���ꂽ��\���X���C�h���l��
271
(defvar *rabbit-slide-header-regexp* "^#*=[ \t]*\\(.*\\)")
273
(defvar *rabbit-author* "���")
274
(defvar *rabbit-institution* "����")
275
(defvar *rabbit-title-template* (format nil
276
"= �������N���b�N���ă^�C�g�������
282
" *rabbit-author* *rabbit-institution*))
284
(defvar *rabbit-menu* nil)
285
(defvar *rabbit-menu-name* "&Rabbit")
286
(defvar *rabbit-menu-position* 'ed::help)
288
(defvar *rabbit-mode-hook* nil)
289
(defvar *rabbit-comment-column* 0)
291
(defvar *rabbit-mode-syntax-table* nil)
292
(unless *rabbit-mode-syntax-table*
293
(setf *rabbit-mode-syntax-table* (make-syntax-table))
294
(do ((x #x21 (1+ x)))((>= x #x7f))
295
(let ((c (code-char x)))
296
(unless (alphanumericp c)
297
(set-syntax-punctuation *rabbit-mode-syntax-table* c))))
298
(set-syntax-start-comment *rabbit-mode-syntax-table* #\#)
299
(set-syntax-end-comment *rabbit-mode-syntax-table* #\LFD)
302
(defvar *rabbit-mode-map* nil)
303
(unless *rabbit-mode-map*
304
(setf *rabbit-mode-map* (make-sparse-keymap))
305
(define-key *rabbit-mode-map* '#\F5 'rabbit-slide-show)
306
(define-key *rabbit-mode-map* '(#\C-c #\n) 'rabbit-narrow-to-slide)
307
(define-key *rabbit-mode-map* '(#\C-c #\h) 'rabbit-toggle-hide-slide)
308
(define-key *rabbit-mode-map* '(#\C-c #\c) 'rabbit-copy-slide)
309
(define-key *rabbit-mode-map* '(#\C-c #\C-c) 'rabbit-copy-current-slide)
310
(define-key *rabbit-mode-map* #\C-M-n 'rabbit-forward-slide)
311
(define-key *rabbit-mode-map* #\C-M-p 'rabbit-backward-slide)
312
(define-key *rabbit-mode-map* #\C-M-k 'rabbit-kill-slide)
313
(define-key *rabbit-mode-map* #\C-M-Up 'rabbit-move-up-slide)
314
(define-key *rabbit-mode-map* #\C-M-Down 'rabbit-move-down-slide)
315
(define-key *rabbit-mode-map* #\M-NUL 'rabbit-mark-slide)
322
(defvar *rabbit-regexp-keyword-list* nil)
323
(setf *rabbit-regexp-keyword-list*
324
(compile-regexp-keyword-list
326
("^\\(=\\(?:begin\\|end\\)\\)" t ((1 . (:color 7 4))))
327
("^=\\{1,4\\} +\\([^ \t\r\f\n].*\\)$" t ((1 . (:keyword 0))))
328
("^\\+\\{1,2\\} +\\([^ \t\r\f\n].*\\)$" t ((1 . (:keyword 0))))
329
("^ *\\(:\\|---\\) *\\([^ \t\r\f\n].*\\)$" t ((2 . (:color 0 0 :underline))))
330
("^ *\\(\\*\\)" t ((1 . (:keyword 0))))
331
("^ *\\(([0-9]+)\\)" t ((1 . (:keyword 0))))
332
("(([-*{|%:<'].*?[-*}|%:>']))" t ((0 . (:keyword 1))))
339
(defun rabbit-executable-p ()
341
(if (rabbit-buffer-filename)
342
(< 0 (file-length (rabbit-buffer-filename)))
343
(< 0 (buffer-size))))
345
(unless *rabbit-menu*
346
(setf *rabbit-menu* (copy-menu-items
348
(:item nil "�X���C�h�V���[(&W)" 'rabbit-slide-show
349
#'(lambda () (unless (rabbit-executable-p) :disable)))
350
(:item nil "�v���r���[(&V)" 'rabbit-preview
351
#'(lambda () (unless (rabbit-executable-p) :disable)))
352
(:popup nil "�v���r���["
353
(:item nil "���݂̃X���C�h���v���r���[(&C)" 'rabbit-preview-current-slide
354
#'(lambda () (unless (rabbit-executable-p) :disable)))
355
(:item nil "���[�W�������v���r���[(&R)" 'rabbit-preview-region
356
#'(lambda () (unless (rabbit-executable-p) :disable)))
357
(:item nil "�I��̈���v���r���[(&S)" 'rabbit-preview-selection
358
#'(lambda () (unless (rabbit-executable-p) :disable)))
359
(:item nil "=begin����=end���v���r���[(&E)" 'rabbit-preview-begin-end
360
#'(lambda () (unless (rabbit-executable-p) :disable))))
362
(:item nil "�摜�ŕۑ�����(&S)" 'rabbit-save-as-image
363
#'(lambda () :disable))
365
(:item nil "���̃X���C�h(&N)" 'rabbit-forward-slide)
366
(:item nil "�O�̃X���C�h(&P)" 'rabbit-backward-slide)
367
(:item nil "�X���C�h�ꗗ(&D)" 'list-function)
369
(:item nil "�X���C�h��..." 'rabbit-copy-slide)
370
(:item nil "���݂̃X���C�h��" 'rabbit-copy-current-slide)
371
(:item nil "�X���C�h���폜" 'rabbit-kill-slide)
372
(:item nil "�X���C�h���}�[�N" 'rabbit-mark-slide)
374
(:item nil "��\���X���C�h�ɐݒ�(&H)" 'rabbit-toggle-hide-slide
375
#'(lambda () (when (rabbit-hide-slide-p) :check)))
377
(:popup nil "�e���v���[�g(&I)"
378
(:item nil "�^�C�g���y�[�W(&T)" 'rabbit-insert-title-template))
380
(create-menu 'rabbit))))
382
(defun insert-rabbit-menu (&key (menu (current-menu))
383
(position *rabbit-menu-position*)
384
(menu-name *rabbit-menu-name*))
386
(setq menu (copy-menu-items menu (create-menu 'rabbit)))
387
(delete-rabbit-menu menu)
389
((and (numberp position) (integerp position))
390
(insert-popup-menu menu position *rabbit-menu* menu-name))
391
((and (symbolp position) (get-menu-position menu position))
392
(insert-popup-menu menu (get-menu-position menu position)
393
*rabbit-menu* menu-name))
395
(add-popup-menu menu *rabbit-menu* menu-name)))
396
(use-local-menu menu)))
398
(defun delete-rabbit-menu (&optional (menu (current-menu)))
401
(while (delete-menu menu 'ed::rabbit)
405
(defun insert-rabbit-menu-all-buffers ()
407
(dolist (buffer (buffer-list))
409
(when (eq buffer-mode 'rabbit-mode)
410
(insert-rabbit-menu)))))
413
(add-hook '*post-startup-hook* 'insert-rabbit-menu-all-buffers))
419
(defun rabbit-slide-show (&optional theme)
421
(rabbit-execute-rabbit (rabbit-buffer-filename) (buffer-fileio-encoding) theme
424
(defun rabbit-preview (&optional theme)
426
(rabbit-execute-rabbit (rabbit-buffer-filename) (buffer-fileio-encoding) theme))
428
(defun rabbit-preview-current-slide (&optional theme)
430
(rabbit-funcall-with-current-point 'rabbit-preview-region))
432
(defun rabbit-preview-selection (&optional theme)
434
(selection-start-end (beg end)
435
(rabbit-preview-region beg end)))
444
(defun rabbit-preview-begin-end (&optional theme)
448
(goto-char (point-min))
449
(while (scan-buffer "^=begin\n" :regexp t :tail t)
450
(push (buffer-substring (point) (progn
451
(or (scan-buffer "^=end\n" :regexp t) (end-of-buffer))
455
(plain-error "�X���C�h���Ȃ��ł��B"))
456
(rabbit-execute-rabbit-argf (format nil "~{~A~%~}" (reverse slides))
457
(buffer-fileio-encoding) theme)))
459
(defun rabbit-preview-region (beg end &optional theme)
461
(if (< end beg) (rotatef beg end))
464
(narrow-to-region beg end)
466
(rabbit-forward-slide nil)
469
(plain-error "�X���C�h���Ȃ��ł��B"))
470
(let ((slide) (title ""))
471
(unless (= beg (rabbit-title-slide-point))
472
(setf title (rabbit-title-slide)))
473
(setf slide (concat title (buffer-substring beg end)))
474
(rabbit-execute-rabbit-argf slide (buffer-fileio-encoding) theme)))
476
(defun rabbit-save-as-image (&optional (type "png"))
478
(plain-error "�܂��������Ă��܂���B"))
481
;; rabbit �̎��s (private)
484
(defun rabbit-execute-rabbit (file encoding theme &rest opts)
486
(rabbit-execute-rabbit-file file encoding theme opts)
487
(rabbit-execute-rabbit-argf (buffer-substring (point-min) (point-max))
488
encoding theme opts)))
490
(defun rabbit-execute-rabbit-file (file encoding theme &optional opts)
491
(when (zerop (file-length file))
492
(plain-error (concat "�t�@�C������Ȃ̂� rabbit �����s�ł��܂���: " file)))
493
(rabbit-make-process (format nil "~A ~{~A ~} ~A"
495
(rabbit-option "file" encoding theme opts)
497
(rabbit-init-output-buffer)
500
(defun rabbit-execute-rabbit-argf (str encoding theme &optional opts)
501
(when (zerop (length str))
502
(plain-error "������Ȃ̂� rabbit �����s�ł��܂���"))
503
(let ((proc (rabbit-make-process (format nil "~A ~{~A ~}"
505
(rabbit-option "argf" encoding theme opts))
506
(rabbit-init-output-buffer)
508
(process-send-string proc str)
509
(rabbit-process-send-eof proc)
512
(defun rabbit-process-send-eof (proc)
513
(process-send-string proc (format nil "~c" #\C-z)))
515
(defun rabbit-option (type encoding theme &optional opts)
518
(push (concat "--type " type) result))
520
(push (concat "--theme " theme) result))
521
(when (rabbit-encoding encoding)
522
(push (concat "--encoding " (rabbit-encoding encoding)) result))
529
(defun rabbit-buffer-filename ()
530
(get-buffer-file-name (selected-buffer)))
532
(defun rabbit-encoding (encoding)
533
(let ((enc (char-encoding-name encoding)))
534
(if (string-matchp "^utf" enc)
538
(defmacro rabbit-with-marker-point (marker &rest body)
540
(goto-marker ,marker)
542
(set-marker ,marker (point))))
543
(setf (get 'rabbit-with-marker-point 'lisp-indent-hook) 1)
545
(defmacro rabbit-with-buffer-selected (buffer &rest body)
549
(setf (get 'rabbit-with-buffer-selected 'lisp-indent-hook) 1)
551
(defvar *rabbit-buffer-name* "*rabbit:output*")
552
(defvar *rabbit-buffer* nil)
553
(defun rabbit-make-process (command-line output encoding)
554
(message command-line)
555
(let ((proc (make-process command-line :output output :outcode encoding)))
556
(set-process-filter proc 'rabbit-process-filter)
557
(set-process-sentinel proc 'rabbit-process-sentinel)
558
(rabbit-activate-buffer output)
561
(defun rabbit-init-output-buffer ()
563
(when (or (not *rabbit-buffer*)
564
(deleted-buffer-p *rabbit-buffer*))
565
(let ((buf (get-buffer-create *rabbit-buffer-name*)))
567
(make-local-variable 'need-not-save)
568
(setf need-not-save t)
569
(setf *rabbit-buffer* buf)))
570
(erase-buffer *rabbit-buffer*)
573
(defvar *rabbit-output-buffer-height* 1/10)
574
(defun rabbit-activate-buffer (buf)
575
(unless (zerop (buffer-size buf))
576
(pop-to-buffer buf (if (< *rabbit-output-buffer-height* 1)
577
(ceiling (* (screen-height) *rabbit-output-buffer-height*))
578
*rabbit-output-buffer-height*))))
580
(defun rabbit-process-filter (proc str)
581
(rabbit-with-buffer-selected *rabbit-buffer*
582
(rabbit-with-marker-point (process-marker proc)
584
(rabbit-activate-buffer *rabbit-buffer*))
586
(defun rabbit-process-sentinel (proc)
587
(when (and *rabbit-buffer*
588
(zerop (buffer-size *rabbit-buffer*)))
589
(delete-buffer *rabbit-buffer*)
590
(setf *rabbit-buffer* nil)))
596
(defun rabbit-insert-title-template ()
598
(save-excursion (insert *rabbit-title-template*))
602
;; �X���C�h�P�ʂł̕ҏW�Ƃ�
605
(defun rabbit-mark-slide ()
607
(multiple-value-bind (beg end)
608
(rabbit-current-slide-point)
613
(defun rabbit-toggle-hide-slide ()
614
"rabbit-mode: ��\���X���C�h���g�O������B�P���ɃR�����g�A�E�g���邾��"
616
(multiple-value-bind (beg end)
617
(rabbit-current-slide-point)
620
(narrow-to-region beg (1- end)) ; end �͎��̃X���C�h�̍s��
622
(if (rabbit-hide-slide-p)
623
(replace-buffer "^#" "" :regexp t)
624
(replace-buffer "^" "#" :regexp t))))))
626
(defun rabbit-hide-slide-p ()
627
"rabbit-mode: ��\���X���C�h�Ȃ� non-nil�B"
629
(goto-char (rabbit-current-slide-point))
630
(char= #\# (following-char))))
632
(defun rabbit-move-up-slide ()
633
"rabbit-mode: �X���C�h����Ɉړ�����B"
635
(let ((slide (rabbit-current-slide)))
637
(rabbit-backward-slide)
638
(rabbit-insert-slide slide)))
640
(defun rabbit-move-down-slide ()
641
"rabbit-mode: �X���C�h�����Ɉړ�����B"
643
(let ((slide (rabbit-current-slide)))
645
(rabbit-forward-slide)
646
(rabbit-insert-slide slide)))
648
(defun rabbit-copy-current-slide ()
649
"rabbit-mode: ���݂̃X���C�h���R�s�[����B"
651
(let ((slide (rabbit-current-slide)))
652
(rabbit-forward-slide)
653
(rabbit-insert-slide slide)))
655
(defun rabbit-copy-slide ()
656
"rabbit-mode: �X���C�h�ꗗ����X���C�h���R�s�[����B"
658
(let ((slide (save-excursion
659
(and (list-function) (rabbit-current-slide)))))
661
(rabbit-forward-slide)
662
(rabbit-insert-slide slide))))
664
(defun rabbit-insert-slide (slide)
665
(unless (bolp) (insert #\LFD))
666
(save-excursion (insert slide)))
668
(defun rabbit-forward-slide (&optional (no-dup t))
670
; forward-paragraph ���ƃ^�C�g���s�̍s���ȊO�ɂ���ꍇ�A�ЂƂO�̃X���C�h�܂Ŗ߂��Ă��܂��B
671
; ���̏ꍇ�s���ɍs���Ăق����B
672
(or (scan-buffer *rabbit-slide-header-regexp* :regexp t :no-dup no-dup)
675
(defun rabbit-backward-slide (&optional (no-dup t))
677
(or (scan-buffer *rabbit-slide-header-regexp* :regexp t :no-dup no-dup :reverse t)
678
(beginning-of-buffer)))
680
(defun rabbit-current-slide ()
681
(rabbit-funcall-with-current-point 'buffer-substring))
683
(defun rabbit-narrow-to-slide ()
685
(rabbit-funcall-with-current-point 'narrow-to-region))
687
(defun rabbit-delete-slide ()
689
(rabbit-funcall-with-current-point 'delete-region))
691
(defun rabbit-kill-slide ()
693
(kill-new (rabbit-current-slide))
694
(rabbit-delete-slide))
696
(defun rabbit-title-slide ()
697
(multiple-value-bind (beg end)
698
(rabbit-title-slide-point)
699
(buffer-substring beg end)))
701
(defun rabbit-title-slide-point ()
703
(goto-char (point-min))
704
(values (progn (rabbit-forward-slide nil) (point))
705
(progn (rabbit-forward-slide) (point)))))
707
(defun rabbit-funcall-with-current-point (fn)
708
(multiple-value-bind (beg end)
709
(rabbit-current-slide-point)
710
(funcall fn beg end)))
712
(defun rabbit-current-slide-point ()
713
(values (save-excursion (rabbit-backward-slide nil) (point))
714
(save-excursion (rabbit-forward-slide) (point))))
717
;; list-function �ŕ\������X���C�h�̈ꗗ
720
(defun rabbit-build-summary-of-function ()
723
(goto-char (point-min))
724
(while (scan-buffer *rabbit-slide-header-regexp* :regexp t :tail t)
725
(push (list (current-line-number) (match-string 1)) result)))
727
(plain-error "�Ȃ�����"))
734
(defvar *rabbit-mode-abbrev-table* nil)
735
(unless *rabbit-mode-abbrev-table*
736
(define-abbrev-table '*rabbit-mode-abbrev-table*))
741
(defun rabbit-mode ()
744
(kill-all-local-variables)
745
(setf mode-name "Rabbit")
746
(setf buffer-mode 'rabbit-mode)
747
(use-syntax-table *rabbit-mode-syntax-table*)
748
(use-keymap *rabbit-mode-map*)
751
(setf *local-abbrev-table* *rabbit-mode-abbrev-table*)
753
(make-local-variable 'paragraph-start)
754
(setf paragraph-start *rabbit-slide-header-regexp*)
755
(make-local-variable 'paragraph-separate)
756
(setf paragraph-separate paragraph-start)
759
(make-local-variable 'build-summary-function)
760
(setf build-summary-function 'rabbit-build-summary-of-function)
762
(setf comment-start "# " comment-end "") ; indent-for-comment�ő}�������z
763
(setf comment-start-skip "#+[ \t]*")
764
(when *rabbit-comment-column*
765
(setf comment-column *rabbit-comment-column*))
768
(make-local-variable 'regexp-keyword-list)
769
(setf regexp-keyword-list *rabbit-regexp-keyword-list*)
771
; ���[�J�����j���[�̐ݒ�
775
(run-hooks '*rabbit-mode-hook*))