spdegabrielle

#lang racket/base

;;; License: MIT/Apache2.0

(require browser/external
         quickscript)

(script-help-string "Opens racket-stories.com in the browser.")

; Launch https://racket-stories.com in browser

spdegabrielle

#lang racket/base

;;; License: MIT/Apache2.0

(require browser/external
         quickscript)

(script-help-string "Racket news and events.")

; Launch https://racket-news.com in browser

spdegabrielle

#lang racket/base
(require browser/external
         quickscript)
(script-help-string "Opens racket-news.com in the browser.")
; Launch https://racket-news.com in browser
(define-script racket-news
  #:label "Racket News (browser)"
  #:menu-path ("&News")
  #:help-string "Opens racket-news.com."
  (λ (str) 

spdegabrielle

#lang racket/base
(require browser/external
         quickscript)
(script-help-string "Opens racket-news.com in the browser.")
; Launch https://racket-news.com in browser
(define-script racket-news
  #:label "Racket News (browser)"
  #:menu-path ("&News")
  #:help-string "Opens racket-news.com."
  (λ (str) 

spdegabrielle

#lang racket/base
(require browser/external
         quickscript)
(script-help-string "Opens racket-news.com in the browser.")
; Launch https://racket-news.com in browser
(define-script racket-news
  #:label "Racket News (browser)"
  #:menu-path ("&News")
  #:help-string "Opens racket-news.com."
  (λ (str) 

spdegabrielle

#lang racket/gui
(require quickscript)

;;; License: MIT/Apache2.0

(define (eye-canvas-mixin %)
  (class %
    (init-field (eye-diameter 100))
    (inherit refresh get-dc client->screen screen->client get-top-level-window)
    (define pupil-diameter (/ eye-diameter 3))

spdegabrielle

#lang racket/gui

(define (eye-canvas-mixin %)
  (class %
    (init-field (eye-diameter 100))
    (inherit refresh get-dc client->screen screen->client get-top-level-window)
    (define pupil-diameter (/ eye-diameter 3))
    (define pupil-r (* 1/2 pupil-diameter))
    (define r (/ eye-diameter 2))
    (define eye-x r)

spdegabrielle

#lang racket/base

(require quickscript
         racket/gui)

;;;
;;; BREAKOUT
;;;

; Jens Axel Søgaard, Feb 2014

spdegabrielle

#lang racket/gui

(define things
  '(["cat" "cat command"]
    ["cow" "moo"]
    ["sheep" "baa"]
    ["dog" "woof"]
    ["bunny" "..."]
    ["cat" "cat command"]
    ["cow" "moo"]

spdegabrielle

#lang racket/base
(provide match-url)
(define (match-url str)
  (regexp-match-positions* #px"https?\\://\\S+" str))