4d47
/ ministimulus.html
Last active
March 28, 2018 18:37
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
| <!doctype html> | |
| <html> | |
| <head> | |
| <meta charset="utf-8"> | |
| <title></title> | |
| <style> | |
| .clipboard-button { | |
| display: none; | |
| } | |
| .clipboard--supported .clipboard-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
| # Just some meta stuff I found interesting ... | |
| sub meta-method-names { | |
| Metamodel::ClassHOW.^methods>>.name | |
| } | |
| sub core-names { | |
| CORE::.keys | |
| } |
4d47
/ ideal-body-weight-calculator.p6
Created
April 12, 2017 12:32
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
| # 0.25 500$ | |
| # 2000, | |
| use IO::Prompt; | |
| # http://www.builtlean.com/2010/05/04/ideal-body-weight-formula-how-to-calculate-your-ideal-weight/ | |
| sub postfix:<%>(Numeric $x --> Numeric) { | |
| $x / 100 | |
| } |
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
| ;; | |
| ;; emacs -script a.elisp -- a.html 12.1,12.1 | |
| ;; | |
| ;;TODO: Kakoune counts columns from 1, emacs from 0 | |
| ;; | |
| (require 'package) | |
| (package-initialize) | |
| (require 'use-package) | |
| (require 'expand-region) | |
| (require 'html-mode-expansions) |
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
| #!/usr/bin/perl | |
| use strict; | |
| use lib ($ENV{RLWRAP_FILTERDIR} or "."); | |
| use RlwrapFilter; | |
| my $cmd; | |
| my $filter = RlwrapFilter->new; | |
| $filter->help_text("Usage: rlwrap -z setpipe <command>\n" | |
| ."Intercept line starting with | and pipe further output thru it.\n" | |
| ."Use |<ret> to remove previously set pipe commands.\n"); |
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
| use v6; | |
| use Template::Anti; | |
| multi process($root, %data where { .values.all ~~ Cool }) { | |
| # Treat content attribute specially | |
| if %data<content>:exists { | |
| $root.text(%data<content>); # this should be 'content' | |
| %data<content>:delete; | |
| } |
4d47
/ minimal-emacs-mode-line.el
Last active
May 9, 2016 21:28
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
| (setq-default | |
| mode-line-format '("%e %b ܃ " | |
| (:eval | |
| (if (use-region-p) | |
| (if (eq (point) (region-beginning)) | |
| (format "%%l … %d" (line-number-at-pos (region-end))) | |
| (format "%d … %%l" (line-number-at-pos (region-beginning)))) | |
| "%l")) | |
| (:eval | |
| ;; TODO: on click `set-buffer-file-coding-system' |
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
| ### Keybase proof | |
| I hereby claim: | |
| * I am 4d47 on github. | |
| * I am 4d47 (https://keybase.io/4d47) on keybase. | |
| * I have a public key whose fingerprint is 6AAE 2EBD BA82 A9E9 2D46 5C94 330B 912A 6079 0AE2 | |
| To claim this, I am signing this object: |