From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!not-for-mail From: "Mikiya Matsuzaka" Newsgroups: gmane.emacs.devel Subject: Re: Is OpenUsability something for Emacs? Date: Mon, 21 Aug 2006 09:58:24 +0900 Message-ID: <009501c6c4bc$e7905750$1501a8c0@kodama1> NNTP-Posting-Host: main.gmane.org Mime-Version: 1.0 Content-Type: multipart/mixed; boundary="===============0261314234==" X-Trace: sea.gmane.org 1156122041 14827 80.91.229.2 (21 Aug 2006 01:00:41 GMT) X-Complaints-To: usenet@sea.gmane.org NNTP-Posting-Date: Mon, 21 Aug 2006 01:00:41 +0000 (UTC) Original-X-From: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Mon Aug 21 03:00:37 2006 Return-path: Envelope-to: ged-emacs-devel@m.gmane.org Original-Received: from lists.gnu.org ([199.232.76.165]) by ciao.gmane.org with esmtp (Exim 4.43) id 1GEy9b-0000wO-TM for ged-emacs-devel@m.gmane.org; Mon, 21 Aug 2006 03:00:36 +0200 Original-Received: from localhost ([127.0.0.1] helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1GEy9b-0003g4-Dx for ged-emacs-devel@m.gmane.org; Sun, 20 Aug 2006 21:00:35 -0400 Original-Received: from mailman by lists.gnu.org with tmda-scanned (Exim 4.43) id 1GEy9D-0003bJ-0u for emacs-devel@gnu.org; Sun, 20 Aug 2006 21:00:11 -0400 Original-Received: from exim by lists.gnu.org with spam-scanned (Exim 4.43) id 1GEy99-0003Yf-Fa for emacs-devel@gnu.org; Sun, 20 Aug 2006 21:00:10 -0400 Original-Received: from [199.232.76.173] (helo=monty-python.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1GEy99-0003YL-2X for emacs-devel@gnu.org; Sun, 20 Aug 2006 21:00:07 -0400 Original-Received: from [220.111.47.140] (helo=smtp.tiara.ocn.ne.jp) by monty-python.gnu.org with esmtp (Exim 4.52) id 1GEyGP-0001dD-75 for emacs-devel@gnu.org; Sun, 20 Aug 2006 21:07:38 -0400 Original-Received: from kodama1 (p1158-ipbf709osakakita.osaka.ocn.ne.jp [222.147.252.158]) by smtp.tiara.ocn.ne.jp (Postfix) with SMTP id BC32D1BE8 for ; Mon, 21 Aug 2006 09:58:30 +0900 (JST) Original-To: X-Priority: 3 X-MSMail-Priority: Normal X-Mailer: Microsoft Outlook Express 6.00.2900.2869 X-MimeOLE: Produced By Microsoft MimeOLE V6.00.2900.2962 X-BeenThere: emacs-devel@gnu.org X-Mailman-Version: 2.1.5 Precedence: list List-Id: "Emacs development discussions." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Original-Sender: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Errors-To: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Xref: news.gmane.org gmane.emacs.devel:58585 Archived-At: This is a multi-part message in MIME format. --===============0261314234== Content-Type: multipart/alternative; boundary="----=_NextPart_000_0091_01C6C508.575694A0" This is a multi-part message in MIME format. ------=_NextPart_000_0091_01C6C508.575694A0 Content-Type: text/plain; charset="iso-2022-jp" Content-Transfer-Encoding: 7bit Hou about this start with? This might be a kind of talking about usability, although RMS said in mail it seems not good idea to him. The folowing is an experimental implementation of readline- like interface in shell buffer. ;------------------------------------------------------------------------ ;;;; ;;;; C-z (in any buffer) pops up shell buffer. ;;;; C-p, C-n, C-a and C-l, work just like readline in a prompt line. ;;;; C-x f goes to fundamental-mode and C-z restores it again. ;;;; (require 'shell) (global-set-key "\C-z" '(lambda () (interactive) (shell) (shell-mode) (end-of-buffer))) (add-hook 'shell-mode-hook '(lambda () (define-key shell-mode-map "\C-xf" 'fundamental-mode) (define-key shell-mode-map "\C-i" 'comint-dynamic-complete) (define-key shell-mode-map "\C-a" 'comint-bol) (define-key shell-mode-map "\C-p" '(lambda (n) (interactive "p") (comint-previous-input n))) (define-key shell-mode-map "\C-n" '(lambda (n) (interactive "p") (comint-next-input n))) (define-key shell-mode-map "\C-l" '(lambda () (interactive) (recenter 0))))) ;------------------------------------------------------------------------ ------=_NextPart_000_0091_01C6C508.575694A0 Content-Type: text/html; charset="iso-2022-jp" Content-Transfer-Encoding: quoted-printable
Hou about this start = with?
 
This might be a kind of = talking about=20 usability, although
RMS said in mail it seems not good idea to=20 him.
 
The folowing is an = experimental=20 implementation of readline-
like interface in shell = buffer.
 
;---------------------------------------------------------------= ---------
 
;;;;
;;;; C-z (in any = buffer) pops up=20 shell buffer.
;;;; C-p, C-n, C-a and C-l, work just like readline in = a prompt=20 line.
;;;; C-x f goes to fundamental-mode and C-z restores it=20 again.
;;;;
 
(require 'shell)
 
(global-set-key "\C-z" = '(lambda=20 ()
           &= nbsp;           &n= bsp; =20 (interactive)
         &n= bsp;           &nb= sp;   =20 (shell)
          &n= bsp;           &nb= sp;  =20 (shell-mode)
         &nb= sp;           &nbs= p;   =20 (end-of-buffer)))
 
(add-hook=20 'shell-mode-hook
         = ;=20 '(lambda=20 ()
           &= nbsp;=20 (define-key shell-mode-map "\C-xf"   =20 'fundamental-mode)
        &nb= sp;   =20 (define-key shell-mode-map "\C-i"    =20 'comint-dynamic-complete)
       &n= bsp;    =20 (define-key shell-mode-map "\C-a"    =20 'comint-bol)
         &nb= sp;  =20 (define-key shell-mode-map=20 "\C-p"
          &nb= sp;   =20 '(lambda=20 (n)
           =       =20 (interactive=20 "p")
           = ;      =20 (comint-previous-input n)))
 
          &nbs= p; =20 (define-key shell-mode-map=20 "\C-n"
          &nb= sp;   =20 '(lambda=20 (n)
           =       =20 (interactive=20 "p")
           = ;      =20 (comint-next-input n)))
 
          &nbs= p; =20 (define-key shell-mode-map=20 "\C-l"
          &nb= sp;   =20 '(lambda=20 ()
           &= nbsp;     =20 (interactive)
         &n= bsp;       =20 (recenter 0)))))
 
;---------------------------------------------------------------= ---------
------=_NextPart_000_0091_01C6C508.575694A0-- --===============0261314234== Content-Type: text/plain; charset="us-ascii" MIME-Version: 1.0 Content-Transfer-Encoding: 7bit Content-Disposition: inline _______________________________________________ Emacs-devel mailing list Emacs-devel@gnu.org http://lists.gnu.org/mailman/listinfo/emacs-devel --===============0261314234==--