有关 Emacs 使用技巧的内容请在这个帖子讨论。

carleo21

C-h k <CR>
RET runs the command comint-send-input

...
(insert "x")
(comint-send-input)
...

lgfang

原帖由 retuor 于 2008-8-18 11:40 发表
我说直接注入的意思是想在一个函数里发送 enther 给一个  buffer.

在快捷键上绑定的函数略大了一些，要进行一些错误处理，所以直接用宏不合适。我在上面把键盘宏缩减到了一个 "\C-m"，然后在需要的时候调用这 ...

1. 
   
2. (defun cmdineshll (cmdstr)
   
3.   (set-buffer "*eshell*")
   
4.   (goto-char (point-max))
   
5.   (insert cmdstr)
   
6.   (eshell-send-input))
   
7. 
   
8. (cmdineshll "cd ..")
   

复制代码

retuor

原帖由 carleo21 于 2008-8-18 12:50 发表
C-h k
RET runs the command comint-send-input

...
(insert "x"
(comint-send-input)
...

你这个方法我还真用过。  , 握手。

不过我这里显示的是：

1. 
   
2. RET runs the command newline, which is an interactive compiled Lisp
   
3. function in `simple.el'.
   
4. 
   
5. It is bound to RET.
   
6. 
   
7. (newline &optional ARG)
   
8. 
   
9. .......
   

复制代码

但 newline 我试过了，不行。

可能是版本不同，我这里没有函数 comint-send-input。后来在 comint 起头的函数里查到一个 comint-send-eof，这个好用了。

谢谢。

retuor

原帖由 lgfang 于 2008-8-18 12:53 发表




(defun cmdineshll (cmdstr)
  (set-buffer "*eshell*")
  (goto-char (point-max))
  (insert cmdstr)
  (eshell-send-input))

(cmdineshll "cd ..")

eshll-send-input 正是我所求，谢谢。在普通 shell 里要用 comint-send-eof。


这里真是个好地方，再次感谢。

retuor

原帖由 retuor 于 2008-8-18 14:08 发表


你这个方法我还真用过。  , 握手。

不过我这里显示的是：


RET runs the command newline, which is an interactive compiled Lisp
function in `simple.el'.

It is bound to RET.

(newlin ...

更正。我看错了，在我的系统上有 comint-send-input 命令。

C-h k 必须在 shell 里执行。我在查找对应关系的时候，是在一个普通文本 buffer 里执行 C-h k 的，所以得到 newline.

retuor

有没人对 emacs lisp 感兴趣？

那个画星星的帖子，看这里－－> http://bbs.chinaunix.net/thread-1249143-1-1.html

用 elisp  实现。 elisp 好像没有内建的 zip，下面那个 zip 是自己实现的。

1. 
   
2. (defun f (n)
   
3.   (cond ((= n 0) '("*"))
   
4.         (t (let* ((old (f (1- n)))
   
5.                   (white (mapcar (lambda (m) (make-string m ? ))
   
6.                                  (number-sequence (1- (expt 2 (1- n))) 0 -1))))
   
7.              (append old (mapcar (lambda (x) (concat (car x) (cadr x) (car x)))
   
8.                                  (zip old white)))))))
   
9. 
   
10. 
    
11. (let ((buf (get-buffer-create "*new*")))
    
12.   (mapcar (lambda (x) (princ (concat x "\n") buf)) (f 4)))
    

复制代码

[ 本帖最后由 retuor 于 2008-8-22 00:45 编辑 ]

retuor

在 *new* buf 中的输出：

lgfang

原帖由 retuor 于 2008-8-22 00:37 发表
有没人对 emacs lisp 感兴趣？

那个画星星的帖子，看这里－－> http://bbs.chinaunix.net/thread-1249143-1-1.html

用 elisp  实现。 elisp 好像没有内建的 zip，下面那个 zip 是自己实现的。


(defu ...

这是我的实现。思路和你的不太一样，我基本上是在对buffer进行操作，而不是进行字符串处理

1. 
   
2. (defun print-sierpinski (n)
   
3.   "Print sierpinski triangle in buffer *sirpinski* --lgfang"
   
4.   (interactive "nInput a number(<=6): ")
   
5.   (if (> n 6) (error "n should be rather small, otherwise can not
   
6.   show the triangle in screen"))
   
7.   (switch-to-buffer (get-buffer-create "*Sierpinski*"))
   
8.   (delete-region (point-min) (point-max))
   
9.   (insert "*")
   
10.   (dotimes (dummy n)
    
11.     (kill-rectangle (point-min) (point-max))
    
12.     (delete-region (point-min) (point-max))
    
13.     (yank-rectangle)
    
14.     (insert "\n")
    
15.     (yank-rectangle)
    
16.     (exchange-point-and-mark)
    
17.     (yank-rectangle))
    
18.   (delete-trailing-whitespace))
    

复制代码

[ 本帖最后由 lgfang 于 2008-8-24 18:13 编辑 ]

retuor

楼上的做法很妙。

我一开始是这样想的：如果用画屏的方法来做，可以把一个矩形区域复制出来，然后在下面粘贴两次。但终端上的文本输出与画屏很不一样，才改了思路。没注意到 emacs 的 rectangle 可以有类似效果。

按你的思路写了一个：

1. 
   
2. (defun f (n)
   
3.   (switch-to-buffer (get-buffer-create "*draw*"))
   
4.   (delete-region (point-min) (point-max))
   
5.   (insert "*")
   
6.   (dotimes (foo (1- n))
   
7.     (let ((p (point-min)) (q (point-max)))
   
8.           (copy-rectangle-to-register ?a p q)
   
9.           (goto-char q)
   
10.           (insert "\n")
    
11.           (insert-register ?a)
    
12.           (insert-register ?a))))
    
13. 
    
14. (f 6)
    

复制代码

retuor

elisp 推广：

用 elisp 来处理这个问题:

http://bbs.chinaunix.net/thread-1253307-1-1.html

1. 
   
2. (setq h (make-hash-table))
   
3. (mapcar (lambda (x) (puthash (expt 2 x) x h))
   
4.           (number-sequence 0 7))
   
5. 
   
6. (gethash 8 h)
   

复制代码