This file contains hidden or 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 datastar.expr | |
| (:require [clojure.string :as str] | |
| [clojure.walk :as walk])) | |
| ;; The motivation here is to provide a *thin* syntactic veneer over constructing strings | |
| ;; representing Datastar expressions (basically JS snippets embedded in DOM attributes) | |
| ;; | |
| ;; Takes inspiration from Scriptjure, but targeted more specifically to the Datastar context, | |
| ;; and does *not* aim to implement Clojure-like truthiness / value semantics (cf. Squint, Clojurescript) | |
| ;; or to enable the writing of arbitrarily nested complex expressions (an antipattern) |
This file contains hidden or 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 app.repro | |
| (:require [hyperlith.core :as h] | |
| [clojure.string :as str])) | |
| (defn render [_req] | |
| (h/html | |
| [:main#morph.main | |
| [:div {:style {:display :grid | |
| :grid-gap :1em | |
| :justify-items :stretch |
This file contains hidden or 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
| ;; Public vars in JVM Clojure (1.11.2) which are missing from Clojurescript (1.11.60, self-hosted via Planck REPL) | |
| ;; and roughly categorized according to their purpose. | |
| ;; Note: Some manual work was involved in sorting out the macros, so there may be omissions or grouping errors | |
| {:dynamic-vars [*agent* | |
| *allow-unresolved-vars* | |
| *clojure-version* | |
| *compile-files* | |
| *compile-path* | |
| *compiler-options* |
This file contains hidden or 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
| ;;; clojure-comment-block.el --- mark comment blocks in the fringe -*- lexical-binding: t; -*- | |
| ;; This is free and unencumbered software released into the public domain. | |
| ;; | |
| ;; Anyone is free to copy, modify, publish, use, compile, sell, or | |
| ;; distribute this software, either in source code form or as a compiled | |
| ;; binary, for any purpose, commercial or non-commercial, and by any | |
| ;; means. | |
| ;; | |
| ;; In jurisdictions that recognize copyright laws, the author or authors |
This file contains hidden or 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
| (defvar evil--refresh-cursor-last-executed 0 | |
| "Unix time of when the evil cursor was last refreshed") | |
| (defvar evil-refresh-cursor-delay 0.1 | |
| "Max delay in seconds between each cursor refresh") | |
| (defvar evil--refresh-cursor-current-timer nil | |
| "Current timer keeping track of cursor refresh changes") | |
| (defvar evil--refresh-cursor-delayed-specs nil | |
| "Cons pair of cursor (state . buffer) to set after the delay") |
This file contains hidden or 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
| (defun clojure--toggle-ignore-next-sexp (&optional n) | |
| "Insert or delete N `#_' ignore macros at the current point. | |
| Point must be directly before a sexp or the #_ characters. | |
| When acting on a top-level form it inserts #_ on a new line | |
| preceding the form." | |
| (let ((rgx (rx-to-string `(repeat ,(or n 1) (seq "#_" (* (in "\r\n" blank))))))) | |
| (backward-prefix-chars) | |
| (skip-chars-backward "#_") | |
| (cond | |
| ((looking-at rgx) ;; point is before #_ |
This file contains hidden or 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
| ;;; Outshine | |
| (defun outshine/init-outshine () | |
| (use-package outshine | |
| :defer t | |
| :commands (outshine-reveal-context outshine-mode) | |
| :init | |
| (progn | |
| ;; Enable outshine-mode for *all* programming buffers. | |
| ;; note - this enables outline-minor-mode at the same time. | |
| (add-hook 'prog-mode-hook 'outshine-mode) |
This file contains hidden or 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
| """ | |
| Adds annotations to internalized input parameters for all components on the canvas. | |
| using the format `X=Y`. Completely reversible via toggling the `enable` input. | |
| Default enabled types are Boolean, Integer, Number, String, Interval, and Plane, | |
| connect a Value List to the `types` input to enable others. | |
| """ | |
| from Grasshopper.Kernel import Types, Parameters, GH_Component | |
| from Grasshopper.Kernel.Special import GH_ValueList, GH_ValueListItem, GH_ValueListMode | |
| this = ghenv.Component |
This file contains hidden or 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
| <?xml version="1.0" encoding="utf-8" standalone="yes"?><Archive name="Root"><!--Grasshopper archive--><!--Grasshopper and GH_IO.dll are copyrighted by Robert McNeel & Associates--><!--Archive generated by GH_IO.dll file utility library {0.2.0002}--><items count="1"><item name="ArchiveVersion" type_name="gh_version" type_code="80"><Major>0</Major><Minor>2</Minor><Revision>2</Revision></item></items><chunks count="1"><chunk name="Clipboard"><items count="1"><item name="plugin_version" type_name="gh_version" type_code="80"><Major>0</Major><Minor>9</Minor><Revision>80</Revision></item></items><chunks count="3"><chunk name="DocumentHeader"><items count="5"><item name="DocumentID" type_name="gh_guid" type_code="9">9a66f130-89e9-4d3d-9fb1-30aaebdeb37d</item><item name="Preview" type_name="gh_string" type_code="10">Shaded</item><item name="PreviewMeshType" type_name="gh_int32" type_code="3">1</item><item name="PreviewNormal" type_name="gh_drawing_color" type_code="36"><ARGB>100;150;0;0</ARGB></item><item name="Previe |