Yes, i have tested it by adding it to ~/.stumpwmrc . I want to know
whether it is safe or not to modify user.lisp directly.
在 Tue, 16 Oct 2012 16:50:09 +0800，Michael Raskin <38a93...@rambler.ru>
写道:
I want to use the following function to replace the eval-line in
user.lisp:
(defcommand eval-me (cmd) ((:rest "Eval> "))
(with-output-to-string (*standard-output*)
(handler-case
(format t "~{~a~^~%~}"
(mapcar 'prin1-to-string
(multiple-value-list (eval (read-from-string
cmd)))))
(error (c)
(format t "~A" c))
Tested:
(defcommand
eval-me (cmd) ((:rest "Eval> "))
(message
"~a"
(with-output-to-string (*standard-output*)
(handler-case
(format t "~{~a~^~%~}"
(mapcar 'prin1-to-string
(multiple-value-list (eval (read-from-string cmd)))))
(error (c)
(format t "~A" c))))))
In .stumpwmrc works as you wanted. You can easily rebind it to ":", of
course.
--
使用 Opera 革命性的电子邮件客户程序: http://www.opera.com/mail/
_______________________________________________
Stumpwm-devel mailing list
Stumpwm-devel@nongnu.org
https://lists.nongnu.org/mailman/listinfo/stumpwm-devel
