[Last updated: <2012/04/03 01:17:19 +0900>]
xyzzy �́A00README.html �ɂ��ƁA
xyzzy��Windows NT 4.0�AWindows 2000�AWindows XP�AWindows 95�AWindows 98�AWindows Me(���Ԃ�B�������Ƃ��Ȃ�����)�A�����Windows NT 3.51(�ꕔ�@�\�ɐ�������B�ŋߎ����ĂȂ��̂œ������ǂ����s��)�œ��삷����{��e�L�X�g�G�f�B�^�̂悤�Ȃ��̂ł��B
�炵���A�T�䂳���́A�����ėL�u�̕��X�ɂ���Čp���J������Ă��Ă���ACommon Lisp �ɂ���Ċg���\�� MIT ���C�Z���X�̃e�L�X�g�G�f�B�^�ł��B
�ƂĂ��֗��ŁA���Ȃ肨���b�ɂȂ��Ă��܂��B
�����ɂ����Ă�����̂͂��܂�s�V���悭�Ȃ��͋Z�ŏ�����Ă��邱�Ƃ������̂ŁA����Ȃ�ɓ��삳���邽�߂ɂ� byte-compile ���K�{�ł��B�����B(�����āA���Ȃ������ƂɃ}���`�t���[���łɂ͑Ή��ł��Ă��܂��� :-P)
[�_�E�����[�h]
[outline-tree2]
(2012/04/03)
[�C���X�g�[��]
treeview ���C�u������ buf2html �����O�ɓ�������Ă��Ȃ���Ȃ�܂���B
[����] kazu.y ����� TreeView.dll ��p���āA�o�b�t�@���X�g�̃c���[�\���A�o�b�t�@���̃A�E�g���C���\�����s���܂��B �o���邱�ƁF
[�f��] |
[ChangeLog]
[�_�E�����[�h]
[browserex]
(2005/10/08)
[����] �R�{�O����� html+-mode ���� s.oowada ����� browser.dll�A ���܂������������ browser.dll �g���� ��֗��Ɏg�킹�Ă��炤�B browser.l �Ɠ��l�� browser.dll ���g�p���邽�߂̃T���v�� Lisp �t�@�C���ł��B��� HTML �t�@�C���̃v���r���[�A�Ƃ��� browser.dll �𗘗p���邱�Ƃ�z�肵�Ă��܂��B �o���邱�ƁF
���ɐݒ��Ƃ��ċL�ڂ��Ă�����e(�̈ꕔ)�B
|
|
[ChangeLog]
#\RBtnUp
�ɐݒ肵�ĉ������B�摜�̕\���Ɏg������B(delete '*browser-position* ed::*history-variable-list* :test #'eq) (delete-command-bar 'browser-tool-bar)��]�����Ă��� xyzzy ���ă_���v�A�ċN�����Ă����Ă��������B
[�ݒ��]
(require "browserex") (setq bx:*browser-width* 300) (setq bx:*browser-height* 200) (setq bx:*browser-start-page* "http://www.google.com/search?hl=ja&lr=lang_ja&num=100&q=") (setq bx:*browser-temp-file* (merge-pathnames "tmp/browser-temp.html" (si:system-root)));(setq bx:*browser-syslistview-style* bx:LVS_LIST);(setq bx:*browser-use-refresh* t) (global-set-key #\M-F9 'bx:navigate-current-buffer) (set-function-bar-label #\M-F9 "OpenBrowser") (global-set-key #\M-F10 'bx:navigate-current-buffer-directory) (set-function-bar-label #\M-F10 "OpenDir") (global-set-key #\M-F11 'bx:rotate-browser) (set-function-bar-label #\M-F11 "RotateBrowser") (global-set-key #\M-F12 'bx:close-browser) (set-function-bar-label #\M-F12 "CloseBrowser");(global-set-key #\RBtnUp 'bx:browserex-mouse-menu-popup);(global-set-key #\Apps 'bx:browserex-apps-popup);; ndiary-mode ����q�B (require "wip/winapi") (defun toggle-navigate-current-buffer () (interactive) (cond ((bx:browser-open-p) (bx:close-browser) (winapi:ShowWindow (get-window-handle) 9)) (t (winapi:ShowWindow (get-window-handle) 3) (bx:navigate-current-buffer :position bx:XPIS_LEFT :size 480)))) (global-set-key #\M-F8 'toggle-navigate-current-buffer) (set-function-bar-label #\M-F8 "ToggleBrowser") (global-set-key #\M-Up 'bx:browserex-scroll-up) (global-set-key #\M-Down 'bx:browserex-scroll-down) (global-set-key #\M-Left 'bx:browserex-scroll-left) (global-set-key #\M-Right 'bx:browserex-scroll-right) (global-set-key #\M-PageUp #'(lambda () (interactive) (bx:browserex-scroll-up :unit :page))) (global-set-key #\M-PageDown #'(lambda () (interactive) (bx:browserex-scroll-down :unit :page))) (global-set-key #\M-Home #'(lambda () (interactive) (bx:browserex-scroll-up :unit :all))) (global-set-key #\M-End #'(lambda () (interactive) (bx:browserex-scroll-down :unit :all))) ;; ���܂������� ����g���� (global-set-key #\M-F7 'bx:show-location-browser) (set-function-bar-label #\M-F7 "ShowLocation") (global-set-key #\S-M-Left 'bx:go-back-browser) (global-set-key #\S-M-Right 'bx:go-forward-browser) (global-set-key #\S-M-Home 'bx:go-home-browser) ;; browser.l ���ǂ��ݒ�B (defun navigate (url) (interactive "sURL: ") (bx:navigate url)) (defun refresh-browser () (interactive) (bx:refresh-browser)) (defun close-browser () (interactive) (bx:close-browser)) (defun my-html+-mode-hook () ; ------------------------------------------------------------ ;; browser ���J���Ă����猻�݂̃t�@�C����\�� (bx:navigate-current-buffer-if-open) ;; �ۑ��Ɠ����� navigate ;; auto-time-stamp.l �� save-buffer-with-time-stamp ���g���Ă���ꍇ�ɑΉ� (define-key ed::*html+-mode-map* '(#\C-x #\C-s) #'(lambda () (interactive) (if (fboundp 'save-buffer-with-time-stamp) (save-buffer-with-time-stamp) (save-buffer)) (bx:navigate-current-buffer-if-open))) ; ------------------------------------------------------------ ; html+-mode �� htmllint ���g���č\���`�F�b�N (CGI) (defvar *htmllint-url* "http://localhost/htmllint/htmllint.cgi?V;X=w3m;URL=") (defun htmllint-cgi () (interactive) (let ((file (get-buffer-file-name))) (when file (bx:close-browser) (bx:navigate (concat *htmllint-url* file))))) (define-key ed::*html+-mode-map* '(#\C-c #\C-l) 'htmllint-cgi) (define-key ed::*html+-mode-map* #\M-F7 'htmllint-cgi) (set-function-bar-label #\M-F7 "htmllint") ; ------------------------------------------------------------ ; html+-mode �� htmllint ���g���č\���`�F�b�N (defvar *htmllint-file* "C:/httpd/htdocs/htmllint/htmllint") (defun htmllint-exec () (interactive) (let ((file (get-buffer-file-name))) (when file (pipe-command (format nil "perl \"~A\" \"~A\"" (map-slash-to-backslash *htmllint-file*) (map-slash-to-backslash file)))))) (define-key ed::*html+-mode-map* '(#\C-c #\l) 'htmllint-exec)) (add-hook 'ed::*html+-mode-hook* 'my-html+-mode-hook)
[�_�E�����[�h]
[topmost]
(2005/10/08)
[����]
xyzzy �̍őO�ʕ\���̐ݒ�E�������s���܂��B
|
[ChangeLog]
[�_�E�����[�h]
[explorer]
(2005/10/08)
[����]
explorer ���N�����܂��B
|
[ChangeLog]
[�_�E�����[�h]
[toggle-gates]
(2005/10/08)
[����]
�W���L�[�o�C���h�� Windows �L�[�o�C���h���ւ��܂��B
|
[ChangeLog]
[�_�E�����[�h]
[chini]
(2005/10/08)
[����]
xyzzy.ini �ڑ��삵�ݒ��ύX���܂��B
�E����ݒ�̕ۑ�/�Ǎ�(�ؑ�) �E�t�@�C���ݒ�̕ۑ�/�Ǎ�(�ؑ�) �E�o�b�t�@�Z���N�^�ݒ�̕ۑ�/�Ǎ�(�ؑ�) �EMisc�ݒ�̕ۑ�/�Ǎ�(�ؑ�) �E�t�H���g�ݒ�̕ۑ�/�Ǎ�(�ؑ�) �E�F�ݒ�̕ۑ�/�Ǎ�(�ؑ�) |
|
[Usage]
[ChangeLog]
[�g�p��]
(require "chini") (setq *chini-directory* (append-trail-slash (merge-pathnames ".chini" (user-config-path)))) (setq *chini-font-directory* (append-trail-slash (merge-pathnames "font" *chini-directory*))) (setq *chini-color-directory* (append-trail-slash (merge-pathnames "color" *chini-directory*))) (setq *chini-print-directory* (append-trail-slash (merge-pathnames "print" *chini-directory*))) (setq *chini-filer-directory* (append-trail-slash (merge-pathnames "filer" *chini-directory*))) (setq *chini-bufselector-directory* (append-trail-slash (merge-pathnames "buffer-selector" *chini-directory*))) (setq *chini-misc-directory* (append-trail-slash (merge-pathnames "misc" *chini-directory*))) (setq *chini-backup-config-file-directory* (append-trail-slash (merge-pathnames "backup" *chini-directory*))) (add-hook '*init-app-menus-hook* #'(lambda () ;; �t�H���g ;(chini-font-insert-menu-items :head-sep t) ;; �F ;(chini-color-insert-menu-items :head-sep t) ;; ��� (chini-print-insert-menu-items :pre-tag 'ed::print-selected-buffer-dialog) ;; �t�@�C�� ;(chini-filer-insert-menu-items :head-sep t) ;; �o�b�t�@�Z���N�^ ;(chini-bufselector-insert-menu-items :head-sep t) ;; Misc ;(chini-misc-insert-menu-items :head-sep t) ;; *chini-popup-menu* (chini-insert-menu-items :head-sep t)) t)
[�_�E�����[�h]
[buf2html-0.0.0.15]
(2006/01/29)
[����]
�Ȃ�ׂ��o�b�t�@�̕\�����Č�����悤�� HTML �����܂��B
��s���]�\���ȊO�́A�L�[���[�h�E���K�\���L�[���[�h�Etext-attribute �ɑΉ����Ă��܂��B
�i�Â���������Ȃ��jbuf2html.l ���g�� buf2html �������ʁB
|
[ChangeLog]
[�ݒ��]
;; http://ohkubo.s53.xrea.com/xyzzy/index.html#buf2html (require "buf2html") (buf2html-set-app-menu) (buf2html-set-app-popup-menu) (setq *buf2html-auto-mode-parameter-string* "Mode: html+") (setq *buf2html-date-format* "%a, %d %b %Y %H:%M:%S %Z") (setq *buf2html-time-stamp-start* "Time-stamp: <") (setq *buf2html-time-stamp-end* ">") (setq *buf2html-css-list* '("xyzzy.css" "konata.css")) (setq *buf2html-region-css-class-list* '("bgcolor" "border")) (setq *buf2html-ignore-paren-highlight* t) (setq *buf2html-anchor-url* t) (setq *buf2html-lower-case* t) (setq *buf2html-internal-css-alist* '(("A.buf2html" . ("text-decoration: none" "background: #ffe0e0")) ("A.buf2html:active" . ("background: #ffaaaa")) ("A.buf2html:hover" . ("background: #ffaaaa")))) ; symbol �̏Փ˂�����ł��Ȃ��ꍇ�� (require "html+-mode") ���s������� (setq *buf2html-mode-function* 'ed::html+-mode)
[�_�E�����[�h]
[re-builder-20050608]
(2005/06/08)
[����]
���K�\���̍쐬�E�m�F���s���܂��B
emacs �p�� re-builder.el �� xyzzy �ɈڐA���܂����B �g�p����V���^�b�N�X�ɉ����� [lisp-re] [sregex] [rx] �� require ���܂��B [�g�p���@]
M-x re-builder
[�L�[�o�C���h]
|
[ChangeLog]
[�ݒ��]
(require "re-builder") (setq *reb-re-syntax* 'ed::string) (setq *reb-match-attributes* '((:bold t :foreground 1 :background 2) (:bold t :foreground 1 :background 3) (:bold t :foreground 1 :background 4) (:bold t :foreground 1 :background 5) (:bold t :foreground 1 :background 6) (:bold t :foreground 1 :background 7) (:bold t :foreground 1 :background 8) (:bold t :foreground 1 :background 9) (:bold t :foreground 1 :background 10) (:bold t :foreground 1 :background 11)) (define-key ed::*reb-mode-map* #\F5 'ed::reb-next-match) (define-key ed::*reb-mode-map* #\S-F5 'ed::reb-prev-match) (define-key ed::*reb-subexp-mode-map* #\F5 'ed::reb-next-match) (define-key ed::*reb-subexp-mode-map* #\S-F5 'ed::reb-prev-match)
[�_�E�����[�h]
[popup-mode-memo-0.0.0.3]
(2005/10/08)
[����]
���[�h���̃L�[�o�C���f�B���O�⎩���Őݒ肵�������� popup �\�����܂��B
���[�h���̃L�[�o�C���f�B���O��������ƒ��ׂ����M���ɁB (�����̌��������������ꍇ�� TAB �������֗��ł�) |
[ChangeLog]
[�ݒ��]
(require "popup-mode-memo") ; C-F12 �ŕ\�� (global-set-key #\C-F12 'popup-mode-memo) (set-function-bar-label #\C-F12 "memo") ; minor mode �� binding ��\�� (setq *popup-mode-memo-view-minormode-bindings* t) ; local mode �� binding ��\�� (setq *popup-mode-memo-view-local-bindings* t) ; global �� binding ��\�� (setq *popup-mode-memo-view-global-bindings* nil) ; t ���ƃ���������ꍇ *popup-mode-memo-view-local-bindings* �� t �ł� ; local mode �� binding ��\�����Ȃ� (setq *popup-mode-memo-one-side-local* nil) (popup-mode-memo-add-new 'lisp-interaction-mode ; buffer-mode �Ŏw�� (ESC ESC buffer-mode) "F1: info-modoki" "F5: �J���Ă���t�@�C���� byte-compile" "F10: load-library ���̏�ʼn����ƑΏۃt�@�C�����J��" "C-c b: siteinit.l ���R���p�C�����A�_���v�t�@�C��������" "C-x C-e: �Ō�̃Z���e���X��]�� (eval-last-sexp)" ) (popup-mode-memo-add-new 'editor::diff-mode ; buffer-mode �Ŏw�� (ESC ESC buffer-mode) "n: diff-forward" "ESC Down: diff-forward" "p: diff-backward" "ESC Up: diff-backward" "m: diff-merge (�V�����Ƀ}�[�W)" "r: diff-merge-reverse (����V�Ƀ}�[�W)" "u: diff-undo" "q: diff-quit" ) (popup-mode-memo-add-new "Lisp" ; mode-name �Ŏw�� (ESC ESC mode-name) "F1: info-modoki" "C-x C-e: �Ō�̃Z���e���X��]�� (eval-last-sexp)" )
[�_�E�����[�h]
[clickable-uri]
(2005/10/08)
[����]
���_�u���N���b�N�ɂ�� WEB �u���E�U�A���[���[���̋N�����\�ɂ��܂��B
URI (Uniform Resource Identifier) �����\�����s���܂��B |
[ChangeLog]
[�ݒ��]
(require "clickable-uri") ;; �����\���́u�����F4(��)�v�{�u�A���_�[���C���v (setq *clickable-uri-keyword-color* '(:color 4 0 :underline)) ;; �I�[�v�����̋����\���́u�����F4(��)�v�u�A���_�[���C���v�u�{�[���h�v (setq *clickable-uri-open-attribute* '(:foreground 4 :underline t :bold t)) ;; �I�[�v�����̋����\�����Ԃ� 0.2 �b (setq *clickable-uri-open-attribute-timeout* 0.2) ;; URI �\�������ƌ��Ȃ��������g�� (setq *clickable-uri-chars* "-a-zA-Z0-9_/~.@?&=;+(),'$!*:#%|�O-�X�`-�y��-����-��@-����-�") ;; http: https: scheme ���I�[�v������R�}���h���w�� (push '("^https?:" . "D:/utils/sleipnir/Sleipnir.exe") *clickable-uri-open-command-alist*) ;; Nami2000, kie ;; <file@...> (push "<file@.+>" *clickable-uri-special-regexp-list*) (push (cons "^<file@.+>$" #'(lambda (uri) (string-matchp "<file@\\(.+\\)>$" uri) (ed::clickable-uri-find-file (match-string 1)))) *clickable-uri-open-command-alist*) ;; <node@...> �ŊK�w���e�L�X�g�̃^�C�g���ɔ�� (push "<node@.+>" *clickable-uri-special-regexp-list*) (push (cons "^<node@.+>$" #'(lambda (uri) (let (goto-point node-str) (string-matchp "<node@\\(.+\\)>$" uri) (setq node-str (regexp-quote (match-string 1))) (save-excursion (goto-char (point-min)) (when (scan-buffer (concat "^\\.+" node-str " *$") :regexp t) (setq goto-point (point)))) (when goto-point (goto-char goto-point))))) *clickable-uri-open-command-alist*) (defvar *my-isbn-url* "http://bookweb.kinokuniya.co.jp/guest/cgi-bin/wshosea.cgi?W-ISBN=") ;; urn:isbn: (push "urn:isbn" *clickable-uri-scheme-list*) (push (cons "^urn:isbn:" #'(lambda (uri) (string-matchp "^urn:isbn:\\(.*\\)" uri) (concat *my-isbn-url* (match-string 1)))) *clickable-uri-modify-uri-alist*) ;; <%=isbn_image "isbn" "comment" %> (push "<%=isbn_image +\"[0-9A-Za-z]+\".+?%>" *clickable-uri-special-regexp-list*) (push (cons "^<%=isbn[_a-zA-Z]+ +\"\\([0-9A-Za-z]+\\)" #'(lambda (uri) (string-matchp "<%=isbn[_a-zA-Z]+ +\"\\([0-9A-Za-z]+\\)" uri) (concat *my-isbn-url* (match-string 1)))) *clickable-uri-modify-uri-alist*) ;; wnet#://host/dir (push "wnet#" *clickable-uri-scheme-list*) (push (cons "^wnet#:" #'(lambda (uri) (string-matchp "^wnet#:\\(.+\\)" uri) (ed::clickable-uri-find-file (match-string 1)))) *clickable-uri-open-command-alist*) ;; �ݒ�ύX�f (clickable-uri-set-regexp) (global-set-key #\C-l 'clickable-uri-recenter) (global-set-key '(#\C-c #\C-l) 'clickable-uri-emphasis-force) (global-set-key '(#\C-c #\C-o) 'clickable-uri-open)
[�_�E�����[�h]
[pickup-pattern-0.0.0.6]
(2005/10/08)
[����]
����������/�w�肵���p�^�[���������\�����܂��B
�I���p�^�[��/�S�p�^�[���̋����\���̉����A�ĕ`�悪�\�ł��B ����������J����Ă��镶����F�Â� lisp �̈�ł��B �֘A lisp �� Yamamoto Shinji ����ɂ�� [xyzzy:05281] �� colorstring.l, strcolor, Toy ����ɂ�� toy-color.l �Ȃǂ�����܂��B |
[ChangeLog]
[�ݒ��]
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; pickup-pattern ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;; --- ��{�ݒ� --- (require "pickup-pattern") (global-set-key '(#\C-c #\p #\s) 'pickup-pattern-set-input) (global-set-key '(#\C-c #\p #\C-s) 'pickup-pattern-set-input-detail) (global-set-key '(#\C-c #\p #\r) 'pickup-pattern-refresh-select) (global-set-key '(#\C-c #\p #\C-r) 'pickup-pattern-refresh-all) (global-set-key '(#\C-c #\p #\u) 'pickup-pattern-unset-select) (global-set-key '(#\C-c #\p #\C-u) 'pickup-pattern-unset-all) (global-set-key '(#\C-c #\p #\d) 'pickup-pattern-delete-select) (global-set-key '(#\C-c #\p #\C-d) 'pickup-pattern-delete-all) (global-set-key '(#\C-c #\p #\l) 'pickup-pattern-list-show) ;; pickup �����p�^�[���̕\�����@ (setq *pickup-pattern-fg* 1) (setq *pickup-pattern-bg* 3) (setq *pickup-pattern-bold* t) (setq *pickup-pattern-underline* nil) (setq *pickup-pattern-strike-out* nil) ;; pickup ����p�^�[���̌������@ ;; re-search-forward-pickup, re-search-backward-pickup �ł͖�������܂� (setq *pickup-pattern-regexp* t) (setq *pickup-pattern-overlap* nil) ;;; --- �����ݒ� --- ;;; ����������� pickup (������ pickup-pattern-unset-all ����) ;; �����O�� pickup �\����S�ĉ��� (setq *pickup-pattern-pre-search-unset* t) ;; ��������������X�g�ɒlj� (setq *pickup-pattern-search-pattern-add* nil) ;; (���K�\��)������������͎��̂ݐF�Â��������ꍇ�͂������̊��� (global-set-key #\M-s 're-search-forward-pickup) (global-set-key #\M-C-s 're-search-backward-pickup) ;; repeat-forward-search, repeat-backward-search ���A�ǂ̌������ɂ��F�Â������� ;; �ꍇ�͏�̂łȂ��A�����̊��� hook �Ɉ���������B(����F�Â�����̂Œx������) ;(add-hook '*show-match-hook* 'pickup-pattern-last-search) ;;; --- �t�b�N�ݒ� --- ;; pickup ���� paren �����ʂ݂̂� (�쑽���� paren.l) (add-hook '*pickup-pattern-set-hook* #'(lambda () (setq *paren-highlight-only-paren* t))) (add-hook '*pickup-pattern-unset-all-hook* #'(lambda () (setq *paren-highlight-only-paren* nil)))
[�_�E�����[�h]
[ggrep]
(2005/10/08)
[����]
Grep �ގ��̍s�w���������s���܂��B
|
[�R�}���h]
������������������������������������������������������������������ ���R�}���h�� ���p�^�[�����Ώ� ���Ώ�(C-u) �� �� �������������������������������������������������� �� ������ �� ������������������������������������������������������������������ ��ggrep �����K�\�����o�b�t�@���X�g ���J�����g�o�b�t�@�� �� �������������������������������������������������� �� ��AND/OR ���� �� ������������������������������������������������������������������ ��fggrep �������� ���o�b�t�@���X�g ���J�����g�o�b�t�@�� �� �������������������������������������������������� �� ��AND/OR ���� �� ������������������������������������������������������������������ ��ggrep-and �����K�\�����o�b�t�@���X�g ���J�����g�o�b�t�@�� �� �������������������������������������������������� �� ��AND ���� �� ������������������������������������������������������������������ ��fggrep-and �������� ���o�b�t�@���X�g ���J�����g�o�b�t�@�� �� �������������������������������������������������� �� ��AND ���� �� ������������������������������������������������������������������ ��ggrep-or �����K�\�����o�b�t�@���X�g ���J�����g�o�b�t�@�� �� �������������������������������������������������� �� ��OR ���� �� ������������������������������������������������������������������ ��fggrep-or �������� ���o�b�t�@���X�g ���J�����g�o�b�t�@�� �� �������������������������������������������������� �� ��OR ���� �� ������������������������������������������������������������������ ��ggrep-narrow �����K�\����grep ���ʃo�b�t�@ �� �� �� �������������������������������������������������� �� ���i������(�o�b�t�@����͍s�ԍ����̂ݎ擾) �� ������������������������������������������������������������������ ��fggrep-narrow �������� ��grep ���ʃo�b�t�@ �� �� �� �������������������������������������������������� �� ���i������(�o�b�t�@����͍s�ԍ����̂ݎ擾) �� ������������������������������������������������������������������ ��xggrep �����K�\�����f�B���N�g�� �� �� �� �������������������������������������������������� �� �������f�B���N�g���w�茟�� �� ������������������������������������������������������������������ ��zggrep �����K�\�����t�@�C�� �� �� �� �������������������������������������������������� �� �������t�@�C���w�茟�� �� ������������������������������������������������������������������ ��ggrep-contents�����K�\�����J�����g�o�b�t�@ ���w��o�b�t�@ �� �� �������������������������������������������������� �� ���i������(�w��o�b�t�@���R���e���c�݂̂Ō���)�� ������������������������������������������������������������������ ��ggrep-buffer �����K�\�����J�����g�o�b�t�@ ���w��o�b�t�@ �� �� �������������������������������������������������� �� ��ggrep / ggrep-narrow / ggrep-contents �� ������������������������������������������������������������������ ��ggrep-detail �� �� �� �� �� �������������������������������������������������� �� ��minibuffer ����S�Ă��w�肵�Č��� �� ������������������������������������������������������������������ ��ggrep-dialog �� �� �� �� �� �������������������������������������������������� �� ��dialog ����S�Ă��w�肵�Č��� �� ������������������������������������������������������������������
Usage: A: �o�b�t�@�S�̂𐳋K�\���Ō��� 1. M-x ggrep B: �o�b�t�@�S�̂���Ō��� 1. M-x fggrep C: ���݂̃o�b�t�@���������� 1. C-u M-x ggrep D: �w��f�B���N�g���ȉ��̃t�@�C�������� 1. M-x xggrep E: �w��t�@�C�������� 1. M-x zggrep F: �i������ 1 1. A�`E �Ō��� 2. A�`E �̌����Ɍ���������lj����āA�V���Ɍ��� G: �i������ 2 1. A�`E �Ō��� 2. 1. �̌��ʂ����� M-x ggrep-narrow �ōi������ H: �i������ 3 1. M-x ggrep-contents �Ńo�b�t�@������ 2. 1. �̌��ʃo�b�t�@��ōēx M-x ggrep-contents �Ō��� I: �o�b�t�@�ɍ��킹�����@�Ō��� 1. M-x ggrep-buffer �Ō��� - �ʏ�o�b�t�@��Ȃ�� C-u M-x ggrep �Ɠ��l�̕��@�Ō��� - ggrep-contents ���ʃo�b�t�@��Ȃ�A�ēx M-x ggrep-contents �Ɠ��l�̕��@�Ō��� - ���̑� ggrep ���ʃo�b�t�@��Ȃ�AM-x ggrep-narrow �� ���l�̕��@�Ō��� 2. 1. �̌��ʃo�b�t�@��ōēx M-x ggrep-buffer �Ō��� J: minibuffer ����ׂ����w�肵�Č��� 1. M-x ggrep-detail K: �_�C�A���O���猟�� a. �_�C�A���O�̕\�� - [����]-[GGrep] ��I�� - [�\��]-[�c�[���o�[]-[GGrep] �Ńc�[���o�[��\��������ŁA ggrep �c�[���o�[(�{�^��) ��I�� - M-x ggrep-dialog �����s b. �������s 1. �������@���_�C�A���O�Őݒ肷�� 2. �u�����v�{�^�������� c. �����ݒ�̕ۑ� 1. �u�ݒ�v�t�B�[���h�ɐݒ薼����͂��� 2. �u�ۑ��v�{�^�������� d. �����ݒ�̓Ǎ� 1. �u�ݒ�v�t�B�[���h�Őݒ薼��I��/���͂��� 2. �u�Ǎ��v�{�^�������� e. �����ݒ�̍폜 1. �u�ݒ�v�t�B�[���h�Őݒ薼��I��/���͂��� 2. �u�폜�v�{�^��������
[ChangeLog]
[�_�E�����[�h]
[multiple-replace]
(2005/04/13)
[����]
����������̒u�����s���܂��B
|
[ChangeLog]
[�_�E�����[�h]
[diff-detail]
(2006/03/30)
[����]
diff �̍X�V�s���A���K�\���܂��͊��Ŏw�肵���g�[�N���P�ʂōēx��r���܂��B
;;
;; 1. ���s
;; 1.1 diff �܂��� diff-detail �����s
;; M-x diff
;; or
;; M-x diff-detail
;;
;; 1.2. �ڍו\�� (token �Ƃ��鐳�K�\���̕ύX)
;; "." �L�[ (M-x diff-detail-change-grain)
;;
;; 2. �ړ�
;; n: diff-mode �� n �Ɠ���
;; p: diff-mdoe �� p �Ɠ���
;;
;; N: ���̕ύX�ʒu�ֈړ�
;; P: �O�̕ύX�ʒu�ֈړ�
;;
;; TAB: ��r�o�b�t�@�̑Ή�����ύX�ʒu�ֈړ�
;;
;; 3. �����ҏW
;; m: diff-mode �� m �Ɠ���
;; r: diff-mode �� r �Ɠ���
;; u: diff-mode �� u �Ɠ���
;;
;; M: diff-detail ������ merge
;; R: diff-detail ������ merge-reverse
;; U: diff-detail ������ undo
;;
;; 4. ���̑�
;; c: diff ��ʂ̏c�������̐�ւ�
;; SPC: ��r�o�b�t�@�̑Ή�����ύX�͈͂������\��
;; v: HTML �ɕϊ��������ʂ�\��
;; C-c C-h: HTML �ɕϊ�
;; C-c RET: �^�K��(Manued)�ɕϊ�
;;
|
[ChangeLog]
[�_�E�����[�h]
[sort-line]
(2005/10/08)
[����] �C�ӂ̃J�����ȍ~���L�[�Ƃ��āA�o�b�t�@�S�́^�I��͈͂̍s�̃\�[�g���s���܂��B �I��͈͂̐擪�s�ɂ��ẮA�J�[�\������`�I���̉E��̏ꍇ�������A�s�S�̂��܂܂�Ă��Ȃ��Ƃ��\�[�g�͈͂Ƃ݂Ȃ��܂��B�I��͈̖͂����s�ɂ��ẮA�J�[�\�����s���̏ꍇ�A��`�I���̍����̏ꍇ�������\�[�g�͈͂Ƃ݂Ȃ��܂��B ������g��Ȃ��ŕ��ʂɃ\�[�g����ꍇ�́A�Ώ۔͈͂� region �w�肵�� C-x | sort�ƃ^�C�v���ĊO���R�}���h�Ń\�[�g���܂��B |
[ChangeLog]
[�_�E�����[�h]
[csv-0.0.3.0]
(2006/10/21)
[����]
CSV, TSV �t�@�C�� (*.csv, *.tsv) �p���[�h�ł��B
���܂�傫�ȃt�@�C���̕ҏW�ɂ͓K���Ă��܂���B [�L�[�o�C���h]
|
[ChangeLog]
[�ݒ��]
(export 'ed::csv-mode "ed") (autoload 'csv-mode "csv-mode" t) (autoload 'tsv-mode "csv-mode" t) (pushnew '("\\.csv$" . csv-mode) *auto-mode-alist* :test 'equal) (pushnew '("\\.tsv$" . csv-mode) *auto-mode-alist* :test 'equal) ;; �\�[�g���@�̒lj� (defun my-csv-mode-hook () (pushnew (list "�������̏��Ȃ���" #'(lambda (str-a str-b) (let ((len-a (length str-a)) (len-b (length str-b))) (cond ((< len-a len-b) -1) ((= len-a len-b) 0) (t 1))))) ed::*csv-sort-method-list* :test #'(lambda (a b) (string= (car a) (car b))))) (add-hook 'ed::*csv-mode-hook* 'my-csv-mode-hook)
[�_�E�����[�h]
[mayu-0.0.0.6]
(2005/10/08)
[����]
�u���g���̗J�T�v�̐ݒ�t�@�C�� (*.mayu) �p���[�h�ł��B
[�L�[�o�C���h]
|
[ChangeLog]
[�_�E�����[�h]
[bat-0.0.0.4]
(2005/10/08)
[����]
�o�b�`�t�@�C�� (*.bat) �p���[�h�ł��B
[�L�[�o�C���h]
|
[ChangeLog]
[�_�E�����[�h]
[ini-0.0.0.4]
(2005/10/08)
[����]
INI �t�@�C�� (*.ini) �p���[�h�ł��B
[�L�[�o�C���h]
|
[ChangeLog]
[�_�E�����[�h]
[manued-0.0.2.0]
(2005/10/08)
[����]
Manued �t�@�C����ҏW���邽�߂̃}�C�i�[/���W���[���[�h�ł��B ���^�K�� (Manued : Manuscript Editing language) ������@�\
[�L�[�o�C���h]
;; ��manued-minor-mode
;;
;; M-n ���̃R�}���h�ֈړ�
;; M-p �O�̃R�}���h�ֈړ�
;; M-N �����x���̎��̃R�}���h�ֈړ�
;; M-P �����x���̑O�̃R�}���h�ֈړ�
;; M-] �Ή�����R�}���h�J������ֈړ�
;; C-l ��ʕ\���̍X�V
;; C-c C-m e �����G���[�ʒu�ֈړ�
;; C-c C-m C-e ���O�̃R�}���h��]��
;;
;; C-c C-m C-d ���[�W������ delete �R�}���h�ɕϊ�
;; C-c C-m C-s ���[�W������ swap �R�}���h�ɕϊ�
;; C-c C-m C-c ���[�W������ comment �ɕϊ�
;;
;; C-c C-m d delete �R�}���h�̕ҏW
;; C-c C-m s swap �R�}���h�̕ҏW
;; C-c C-m c �R�����g�̕ҏW
;; C-c C-m C-m �ɉ������R�}���h/�R�����g�̕ҏW
;;
;; S-Apps Manued ���j���[ (Selection �p)
;; S-�E�N���b�N Manued ���j���[ (Selection �p)
;;
;;
;; ��manued-mode
;;
;; M-n ���̃R�}���h�ֈړ�
;; M-p �O�̃R�}���h�ֈړ�
;; M-N �����x���̎��̃R�}���h�ֈړ�
;; M-P �����x���̑O�̃R�}���h�ֈړ�
;; M-] �Ή�����R�}���h�J������ֈړ�
;; C-l ��ʕ\���̍X�V
;; C-c C-m e �����G���[�ʒu�ֈړ�
;; C-c C-m C-e ���O�̃R�}���h��]��
;;
;; C-c C-m C-d ���[�W������ delete �R�}���h�ɕϊ�
;; C-c C-m C-s ���[�W������ swap �R�}���h�ɕϊ�
;; C-c C-m C-c ���[�W������ comment �ɕϊ�
;;
;; C-\ undo (manued-mode �Ȃ�� read-only �ł� undo)
;; C-w ���[�W������ delete �R�}���h�ɕϊ� (C-c C-m C-d �Ɠ���)
;; C-d �Z���N�V�����܂��͌��݈ʒu�� delete �R�}���h�ɕϊ�
;; Delete ����
;; C-h �Z���N�V�����܂��͒��O�ʒu�� delete �R�}���h�ɕϊ�
;; C-k ���݈ʒu����s�����܂ł� delete �R�}���h�ɕϊ�
;;
;; C-c C-m d delete �R�}���h�̕ҏW
;; d ����
;; C-c C-m s swap �R�}���h�̕ҏW
;; s ����
;; C-c C-m c �R�����g�̕ҏW
;; c ����
;; C-c C-m C-m �ɉ������R�}���h/�R�����g�̕ҏW
;; C-m ����
;;
;; S-Apps Manued ���j���[ (Selection �p)
;; S-�E�N���b�N Manued ���j���[ (Selection �p)
[�d�l]
;; ��manued-mode.l ver. 0.0.1.0 �ł̏C���L����`�R�}���h (defcommand)
;;
;; defparentheses [ ]
;; defdelete /
;; defswap |
;; defcomment ;
;; defescape ~
;; deforder older-first
;; defversion 0.0.1.0-manued-mode_for_xyzzy
;;
;; ��manued-mode.l ver. 0.0.1.0 �ł� Manued �R�}���h (manued-command)
;;
;; Manued �R�}���h�� default �̋L����p���Đ�������B
;;
;; �E[A/B]
;; A���������AB��}������B
;;
;; [A/] : A �������B(A �����Œu��������)
;; [/A] : A ��}������B(���� A �Œu��������)
;;
;; �E[A|B|C]
;; A��C�̈ʒu����ꊷ���ACBA�̕��тŏo�͂���B
;;
;; [A||C] A��C����ꊷ����B
;;
;; �E[; comment ]
;; ; ���� ] �܂ł̓R�����g�ƂȂ�B
;;
;; ��manued-mode.l �ł̏C���L����`�R�}���h�̋L�q�\�ꏊ
;;
;; buffer �̐擪����̂݁B
;; narrowing ���Ă���ꍇ�ł��Abuffer �擪�̏C���L����`�R�}���h�݂̂�
;; �]������B
|
[ChangeLog]
[�_�E�����[�h]
[box-fixation-mode]
(2005/10/08)
[����]
�r�����ҏW���s�����߂̃}�C�i�[/���W���[���[�h�ł��B
�r�����[�h (box-drawings-mode) �ŋL�q�����r����ACSV���[�h�ŕϊ������r���̈ʒu���Œ肵�ҏW���s���ꍇ�Ɏg�p���܂��B �r���Ԃ͈̔͂߂�����͂��s�����ꍇ�A���ߕ������s�ɓ��͂��܂��B�r�������Ă��莟�s�ɓ��͂ł��Ȃ��ꍇ�́A�r���̌p���s��lj�������Œ��ߕ�����͂��܂��B [�L�[�o�C���h]
��box-fixation-mode
�L�[�o�C���h�Ȃ� |
������������������������������������������������������������ �� ��Description: �r�����ҏW���s �� �� �������߂̃}�C�i�[/���W���[�� �� �� ���[�h�ł��B�r�����[�h (box-dr�� ������������������������������awings-mode) �ŋL�q�����r�� �� ����ACSV���[�h�ŕϊ������r���̈ʒu���� �������������������� ���肵�ҏW���s���ꍇ�Ɏg�p���܂��B�r�� �� �������������������������������Ԃ͈̔͂��� �� �� �����߂�����̈́� �� �� ���������������������������s�������������������� �� �� �������ꍇ�A���ߕ������s�� �� �� ���ɓ��͂����������������� �� �� ���܂��B�r�������Ă��脫 �� �� �����s�ɓ��͂ł��Ȃ��ꍇ�� �� �� ���́A�r���̌p���s��lj��� �� �� ��������Œ��ߕ�����͂��� �� �� ���܂��B �� ������������������������������������������������������������ |
[ChangeLog]
[�_�E�����[�h]
[keep-window-line-mode]
(2005/10/08)
[����]
�E�B���h�E�s���Œ肷��}�C�i�[���[�h�ł��B
�E�B���h�E���X�N���[�����Ă��A�J�[�\���s�̕\���ʒu��ύX�������Ȃ��ꍇ�Ɏg�p���܂��B |
[ChangeLog]
[�_�E�����[�h]
[function-bar-label]
(2005/10/08)
[����]
builtin �� set-function-bar-label ���g�����Aget-function-bar-label �ł� label �擾���\�ɂ��܂��B
|
|
[ChangeLog]
[�g�p��]
(require "function-bar-label") ;; �~�j�o�b�t�@�ł̓t�@���N�V�����L�[�ŌŒ蕶�����}�� ;; F1: �f�X�N�g�b�v ;; F2: xyzzy/site-lisp/ ;; F3: xyzzy/.xyzzy ;; F4: xyzzy/site-lisp/siteinit.l ;; F5: My Documents (dolist (keymap (list minibuffer-local-map minibuffer-local-completion-map minibuffer-local-command-line-map minibuffer-local-must-match-map)) (define-key keymap #\F1 #'(lambda () (interactive) (delete-region (point-min) (point-max)) (insert (append-trail-slash (map-backslash-to-slash (get-special-folder-location :desktop)))))) (define-key keymap #\F2 #'(lambda () (interactive) (delete-region (point-min) (point-max)) (insert (append-trail-slash (merge-pathnames "site-lisp" (si:system-root)))))) (define-key keymap #\F3 #'(lambda () (interactive) (delete-region (point-min) (point-max)) (insert (merge-pathnames ".xyzzy" (user-homedir-pathname))))) (define-key keymap #\F4 #'(lambda () (interactive) (delete-region (point-min) (point-max)) (insert (merge-pathnames "site-lisp/siteinit.l" (si:system-root))))) (define-key keymap #\F5 #'(lambda () (interactive) (delete-region (point-min) (point-max)) (insert (append-trail-slash (map-backslash-to-slash (get-special-folder-location :personal))))))) (let (function-bar-label-map) (defun enter-minibuffer-function-bar-label-map (buffer history) (setq function-bar-label-map (get-function-bar-label-map)) (set-function-bar-label #\F1 "�f�X�N�g�b�v") (set-function-bar-label #\F2 "site-lisp") (set-function-bar-label #\F3 ".xyzzy") (set-function-bar-label #\F4 "siteinit.l") (set-function-bar-label #\F5 "MyDocuments") (set-function-bar-label #\F6 "") (set-function-bar-label #\F7 "") (set-function-bar-label #\F8 "") (set-function-bar-label #\F9 "") (set-function-bar-label #\F10 "") (set-function-bar-label #\F11 "") (set-function-bar-label #\F12 "")) (defun exit-minibuffer-function-bar-label-map (buffer contents) (when (keymapp function-bar-label-map) (set-function-bar-label-map function-bar-label-map) (setq function-bar-label-map nil)))) (add-hook '*enter-minibuffer-hook* 'enter-minibuffer-function-bar-label-map) (add-hook '*exit-minibuffer-hook* 'exit-minibuffer-function-bar-label-map)
[�_�E�����[�h]
[win-window]
(2005/10/08)
[����]
Windows �� window �̃T�C�Y�̎擾�A�ݒ���s���܂��B
browserex ���� require ����܂��B |
[ChangeLog]
[�_�E�����[�h]
[lisp-re-20050519]
(2005/05/19)
[����]
Lisp���\�L�ŋL�q�������K�\������ɕϊ����܂��B
emacs �p�� lisp-re.el �� xyzzy �ɈڐA���܂����B re-builder ���� require ����܂��B |
[ChangeLog]
[�_�E�����[�h]
[sregex-20050520]
(2005/05/20)
[����]
symbolic regular expressions
emacs �p�� sregex.el �� xyzzy �ɈڐA���܂����B re-builder ���� require ����܂��B |
[ChangeLog]
[�_�E�����[�h]
[rx-20050608]
(2005/06/08)
[����]
sexp notation for regular expressions
emacs �p�� rx.el �� xyzzy �ɈڐA���܂����B re-builder ���� require ����܂��B |
[ChangeLog]
[�_�E�����[�h]
[insert-directory-tree]
(2005/10/19)
[����]
�����ƕK�v�ɂȂ�A�f�B���N�g���[�c���[���o�͂��܂��B
[�o�͗�] D:/utils/xyzzy/ �� .abbrev_defs �� .cftp �� .www �� .xyzzy �� xyzzy.exe �� XYZZY.w98 �� xyzzycli.exe �� xyzzyenv.exe �� _katexrc �� �� .ilogic/ �� �� config.l �� �� �� �� data/ �� �� �� �� 2ch/ �� �� �� 00000001.dat �� �� �� �� convert/ �� �� �� �� �� �� �p�Y���p���X/ �� �� �� 0001.dat �� �� �� 0002.dat �� �� �� 0003.dat �� �� �� 0004.dat ... |
[ChangeLog]
[�_�E�����[�h]
[ilogic-0.0.0.4]
(2001/10/10)
[����]
�u�C���X�g���W�b�N�v��u�̂̂���ށv�ƌĂ��p�Y���̖��̓��́E�쐬�E�������s���܂��B
�t���� makefile �� ilogic-make (byte-compile) �����Ȃ��Ɠ��삪�x�����܂��B [�L�[�o�C���h]
���ł��肢���܂��B
�Ƃ肠���� [SPACE]�A[TAB]�A���ꂩ�� [Enter] �ŁB |
[ChangeLog]
[�_�E�����[�h]
[2ch-dialog]
(2005/10/08)
[����]
���������J�������
2ch-mode �Ɏ��
AA �p�̃_�C�A���O�̋@�\��lj����܂��B
[2ch-0.0.0.9] (2002/02/02 08:05:03) �œ���m�F�B �Ə����Ƒ��������܂��B [�L�[�o�C���h]
2ch-mode �ւ̒lj��L�[�o�C���h
[�X��]
|
[ChangeLog]
[�_�E�����[�h]
[2ch-browser-wrap]
(2002/03/08)
[����] 2ch-mode �� browser.dll ��֗��Ɏg�킹�Ă��炢�AAscii Art �������菑�����肵�Ă݂�B (���ɗ����܂���B)
�Ƃ肠�����A�X�L�[�A�[�g��������悢�A�Ƃ������炢�̂ւȂ��傱�R�[�h�ł��B �Ə����Ƒ��������܂��B [�L�[�o�C���h]
2ch-mode �ւ̒lj��^�ύX�L�[�o�C���h
[�X��]
|
|
[ChangeLog]
[�_�E�����[�h] [����] popup-string �ŕ\�������ꏊ�Ƀ}�E�X�J�[�\��������Ƃ����ɏ����Ă��܂����肷��̂ŁApopup-string ���Ƀ}�E�X�J�[�\���� xyzzy ��ɂ�������K���ɂǂ����Ă݂�B���̋�̗�� 2ch-mode ��ł���Ă݂��B 2ch-modification.l �� konata-mouse.l �� xyzzy/site-lisp/ ������ɒu���āA xyzzy/.2ch/config.l �� (require "2ch-modification")
�Ə����Ƒ��������܂��B
�Ӗ����Ȃ��ǂ��납�]�v�����Ƃ�������������܂���B |
[ChangeLog]
[�_�E�����[�h]
[colortest.l]
(2001/12/10)
[����]
�F�ݒ�͂��Ƃ悭����̂ŃJ���[�e�X�g��\�����Ă݂�B
2ch �� xyzzy �X���b�h 383 �Ԃ����ɏ����Ă݂��B �F�ݒ肪�K���ł����o�͂� HTML �����Ă݂܂����B ����Ȃ̂��o�b�t�@�ɕ\������܂��B �������߂̐F�ݒ��N���B |
[����]
load-library �̍s�̏��
�팩����̃T�C�g��lisp���[�h�̃J�X�^�}�C�Y��ɂ���uload-library �̍s�̏�� ���ۂ� xyzzy ���T�����ԂƂ� .lc ����ɂ���_�ňقȂ�܂��B [�R�[�h] ;; F10 �� load-library ���̑Ώۃt�@�C�����J�� (defun open-load-library-file () (interactive) (let (file fullpath) (save-excursion (scan-buffer "(" :reverse t) (if (or (looking-at "(si:\\*load-library[ \t\n]+\"\\([^\"]+\\)\"") (looking-at "(load-library[ \t\n]+\"\\([^\"]+\\)\"") (looking-at "(require[ \t\n]+\"\\([^\"]+\\)\"") (looking-at "(autoload[ \t\n]+[^\"]+\"\\([^\"]+\\)\"")) (setq file (match-string 1)))) (when file (dolist (path *load-path*) (setq fullpath (merge-pathnames file path)) (when (and (file-exist-p fullpath) (not (file-directory-p fullpath))) (find-file fullpath) (return-from open-load-library-file)) (setq fullpath (concat fullpath ".l")) (when (and (file-exist-p fullpath) (not (file-directory-p fullpath))) (find-file fullpath) (return-from open-load-library-file)) (setq fullpath (concat fullpath "c")) (when (and (file-exist-p fullpath) (not (file-directory-p fullpath))) (find-file fullpath) (return-from open-load-library-file))) (message "�t�@�C����������܂���: ~A" file)))) (define-key ed::*lisp-mode-map* #\F10 'open-load-library-file) (define-key ed::*lisp-interaction-mode-map* #\F10 'open-load-library-file) |
[����] �w��f�B���N�g���ȉ��̂ݕ����R�[�h�E���s�R�[�h�� SJIS CRLF �Ɏw�� (2001/10/18) ����̃f�B���N�g���ȉ��ŐV�K�t�@�C�����쐬����ہA�����R�[�h�E���s�R�[�h�� SJIS CRLF �Ɏw�肷��B [�R�[�h] ;; �w��f�B���N�g���ȉ��̂ݕ����R�[�h�E���s�R�[�h�� SJIS CRLF �Ɏw�� (defvar *sjis-crlf-directory* '("C:/My Documents/" "C:/utils/eMemoPad/")) (defun set-sjis-crlf-hook () (let ((file (get-buffer-file-name)) dir dir-length) (when (and (zerop (point-max)) (string file)) (setq dir (directory-namestring file)) (dolist (sjis-crlf-dir *sjis-crlf-directory*) (setq dir-length (length sjis-crlf-dir)) (when (and (>= (length dir) dir-length) (string-equal sjis-crlf-dir (subseq dir 0 dir-length))) (set-buffer-fileio-encoding *encoding-sjis*) (set-buffer-eol-code 1) (return)))))) (add-hook '*find-file-hooks* 'set-sjis-crlf-hook) |
OHKUBO Hiroshi <[email protected]> |