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 ([email protected]) | |
| ;; 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) |