Skip to content

Embed URL

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
dsf screen-identifiers
(block nil
;; a very simple example
(setq screens (lambda nil
(block nil
;; start a new screen
(dsf/new-screen 'screen-one 'standard "Screen One")
(dsf/add-action 'goto-two "Go to Screen 2" 'G '(dsf/show-screen 'screen-two))
(dsf/default-action 'goto-two)
;; start another
(dsf/new-screen 'screen-two 'standard "Screen Two")
(dsf/add-action 'goto-one "Go to Screen 1" 'G '(dsf/show-screen 'screen-one))
(dsf/default-action 'goto-one)
;; show screen one
(dsf/show-screen 'screen-one)
)
))
;; a bit more powerful example, showing the use of screen-identifiers
(setq screens-two (lambda nil
(block nil
;; start a new screen again (this wipes out the old one)
(dsf/new-screen 'screen-one) ; defaults to 'standard screen type
(dsf/name "Screen One")
(dsf/add-action 'goto-two "Go to screen two" 'G '(dsf/show-screen 'screen-two))
(dsf/default-action 'goto-two)
;; start another
(dsf/new-screen 'screen-two 'standard "Screen Two")
(dsf/add-action 'goto-one "Go to Screen 1" 'G '(block nil
(dsf/use-screen 'screen-one) ; the next actions we perform will be on screen-one
(dsf/add-action 'new-action "Go to screen three" 'S '(dsf/show-screen 'screen-three))
(dsf/show-screen 'screen-one) ; we could leave out the screen identifier here
))
(dsf/default-action 'goto-one)
;; screen three
(dsf/new-screen 'screen-three) ; defaults to 'standard screen type
(dsf/name "Screen Three")
(dsf/add-action 'exit "Exit" 'E '(dsf/exit))
(dsf/default-action 'exit)
;; show screen one
(dsf/show-screen 'screen-one)
)
))
)
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment
Something went wrong with that request. Please try again.