Skip to content

Instantly share code, notes, and snippets.

@bennn

bennn/stack-screenshot.rkt

Created December 16, 2016 17:29
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save bennn/db6801105abdaea8355ef39ae8693652 to your computer and use it in GitHub Desktop.
Save bennn/db6801105abdaea8355ef39ae8693652 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
stack-screenshot.rkt
#lang racket
(require file/glob pict racket/draw)
(define (path->pict path)
(bitmap (make-object bitmap% path 'png)))
(define p
(parameterize (#;[current-directory (build-path "Users" "ben" "Desktop")])
(apply vc-append 20 (map path->pict (glob "/Users/ben/Desktop/Screen*png")))))
(define b (pict->bitmap p))
(send b save-file "brueggers.png" 'png)
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment