>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.
I think it should be quite safe.
>在 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
