You cannot select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
53 lines
1.5 KiB
Common Lisp
53 lines
1.5 KiB
Common Lisp
(cl:in-package #:lispos-interaction)
|
|
|
|
(clim:define-presentation-method clim:present
|
|
(object
|
|
(type person)
|
|
stream
|
|
(view clim:textual-view)
|
|
&key acceptably for-context-type)
|
|
(declare (ignore acceptably for-context-type))
|
|
(format stream "Person ~a" (name object)))
|
|
|
|
(clim:define-presentation-method clim:present
|
|
(object
|
|
(type text-document)
|
|
stream
|
|
(view clim:textual-view)
|
|
&key acceptably for-context-type)
|
|
(declare (ignore acceptably for-context-type))
|
|
(format stream "Text ~a ~a"
|
|
(name (author object))
|
|
(substitute #\Space #\Newline (subseq (contents object) 0 20))))
|
|
|
|
(clim:define-presentation-method clim:present
|
|
(object
|
|
(type music)
|
|
stream
|
|
(view clim:textual-view)
|
|
&key acceptably for-context-type)
|
|
(declare (ignore acceptably for-context-type))
|
|
(format stream "Music ~a ~a"
|
|
(name (composer object))
|
|
(name (performer object))))
|
|
|
|
(clim:define-presentation-method clim:accept
|
|
((type class)
|
|
stream
|
|
(view clim:textual-view)
|
|
&key)
|
|
(multiple-value-bind (object success string)
|
|
(clim:complete-input
|
|
stream
|
|
(lambda (so-far action)
|
|
(clim:complete-from-possibilities
|
|
so-far
|
|
(loop for class-name in '(object person music text-document)
|
|
collect `(,(string-downcase class-name)
|
|
,(find-class class-name)))
|
|
'()
|
|
:action action))
|
|
:partial-completers '(#\Space))
|
|
(declare (ignore success string))
|
|
object))
|