This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
;;; | |
;;; Conway's "Game of Life" in Scheme. This version is R7RS and runs | |
;;; with Chibi Scheme. "> chibi-scheme life.scm" | |
;;; | |
(import (scheme base) | |
(scheme write) | |
(only (srfi 18) thread-sleep!) ;; Multi-threading support | |
(srfi 27)) ;; Source of random bits |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
;; | |
;; direct_tty.ss | |
;; | |
;; This is a demonstration program using some of the Chez Scheme FFI | |
;; to put the terminal into "raw" mode, read a line of characters, | |
;; possibly containing control characters that would normally | |
;; terminate input, without echoing the characters typed. Once the | |
;; user presses the line termination character, (user defined, see the | |
;; `quit?` procedure), the program displays the line. | |
;; |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
;; Uncomment the following line to run in racket. | |
;; #lang scheme/base | |
;;;; | |
;;;; A series of sorting algorimthms implemented in Scheme. The work in this | |
;;;; gist was inspired by the article "8 Must-Know Sorting Algorithms" by | |
;;;; Mangabo Kolawole at | |
;;;; https://dev.to/koladev/8-must-know-sorting-algorithms-5ja | |
;;;; | |
;;;; All of the examples shown here are non-destructive, that is, they leave |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
;;;; | |
;;;; This namespace includes utility functions to count the number of words | |
;;;; in a file of Markdown text. | |
(ns cwiki.util.wc | |
(:require [clojure.string :as s])) | |
(defn strip-html-comments | |
"Return a version of the input text with HTML comments removed." | |
[text] |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
;;;; | |
;;;; Utilities to help with determining what if particulare fonts are | |
;;;; installed on the client system. | |
;;;; | |
(ns cwiki-mde.font-detection | |
(:require [clojure.string :as string])) | |
;; Filled in during loading of namespace. | |
(def measured-font-widths (atom {})) |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
package cwiki.extensions; | |
import com.vladsch.flexmark.ext.wikilink.WikiLink; | |
import com.vladsch.flexmark.ext.wikilink.internal.WikiLinkOptions; | |
import com.vladsch.flexmark.html.CustomNodeRenderer; | |
import com.vladsch.flexmark.html.HtmlWriter; | |
import com.vladsch.flexmark.html.renderer.*; | |
import com.vladsch.flexmark.util.options.DataHolder; | |
import com.vladsch.flexmark.util.sequence.BasedSequence; |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
(ns cwiki.test.util.WikiLinkAttributesTest | |
(:require [clojure.test :refer :all] | |
[cwiki.util.wikilink-attributes]) | |
(:import (com.vladsch.flexmark.util.options MutableDataSet) | |
(com.vladsch.flexmark.parser Parser Parser$Builder) | |
(com.vladsch.flexmark.html HtmlRenderer HtmlRenderer$Builder) | |
(com.vladsch.flexmark.ext.wikilink WikiLinkExtension) | |
(cwiki.util WikiLinkAttributeExtension) | |
(java.util ArrayList))) |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
package deletealertdemo; | |
import javafx.application.Application; | |
import javafx.collections.FXCollections; | |
import javafx.collections.ObservableList; | |
import javafx.event.ActionEvent; | |
import javafx.scene.Node; | |
import javafx.scene.Scene; | |
import javafx.scene.control.Alert; | |
import javafx.scene.control.Button; |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
(ns printscaling.core | |
(:gen-class | |
:extends javafx.application.Application) | |
(:import | |
[javafx.application Application] | |
[javafx.beans.value ChangeListener] | |
[javafx.event EventHandler] | |
[javafx.geometry Insets Pos] | |
[javafx.print PrinterJob] | |
[javafx.scene Scene] |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
(ns cljkeycodecombination.core | |
(:gen-class | |
:extends javafx.application.Application) | |
(:import | |
[javafx.application Application Platform] | |
[javafx.event EventHandler] | |
[javafx.scene Scene] | |
[javafx.scene.control Menu MenuBar MenuItem] | |
[javafx.scene.input KeyCode KeyCodeCombination KeyCombination KeyCombination$Modifier] | |
[javafx.scene.layout BorderPane] |
NewerOlder