git checkout -b <branchname>
git add
git commit -m "description of changes"
#lang racket/base | |
;;; License: [Apache License, Version 2.0](http://www.apache.org/licenses/LICENSE-2.0) or | |
;;; [MIT license](http://opensource.org/licenses/MIT) at your option. | |
(require quickscript | |
racket/string | |
racket/file | |
racket/path | |
racket/gui/base |
#lang racket/base | |
(struct %class [parent ivars methods] #:transparent) | |
(struct %object [class ivars] #:transparent) | |
(define (new class vals) | |
(%object class vals)) | |
(define (send obj method-name args) | |
(define method (lookup-method (object-class obj) method-name)) |
#lang racket | |
;; Ishido Game Implementation | |
;; Copyright (c) 2020 Alex Harsányi (AlexHarsanyi@gmail.com) | |
;; Permission is hereby granted, free of charge, to any person obtaining a | |
;; copy of this software and associated documentation files (the "Software"), | |
;; to deal in the Software without restriction, including without limitation | |
;; the rights to use, copy, modify, merge, publish, distribute, sublicense, | |
;; and/or sell copies of the Software, and to permit persons to whom the |
#!/usr/bin/racket | |
#lang racket/base | |
;;; License: [Apache License, Version 2.0](http://www.apache.org/licenses/LICENSE-2.0) or | |
;;; [MIT license](http://opensource.org/licenses/MIT) at your option. | |
;; When installing a new version of Racket, | |
;; running this script setups all existing packages that had been installed | |
;; in the *user* scope. | |
;; |
# encoding: utf-8 | |
# USE AT OWN RISK | |
# | |
# Follow this guide to install Ruby on Windows (step 1 and 2): https://forwardhq.com/support/installing-ruby-windows | |
# Install gems (with admin cmd prompt): | |
# https://rubygems.org/gems/bencode | |
# https://rubygems.org/gems/rest_client | |
# | |
# Edit datpath below to point to your utorrent resume.dat file |
#lang racket/base | |
(require racket/match | |
racket/async-channel | |
net/http-client) | |
(define urls '(["icanhazip.com" "/"] | |
["icanhazepoch.com" "/"] | |
["example.com" "/"])) |
#lang racket/gui | |
(define xmax 200) | |
(define ymax 200) | |
(define seconds-in-loop 3) | |
(define fr (new frame% [label ""])) | |
(define cv (new canvas% [parent fr] [min-width xmax] [min-height ymax])) | |
(define dc (send cv get-dc)) | |
(send fr show #t) |