View svn-blame-stats.lisp
(defpackage #:blame-stats | |
(:use #:cl)) | |
(in-package blame-stats) | |
(ql:quickload '(alexandria cl-fad str lparallel) | |
:silent t) | |
(defun merge-hash-table-into (left right) | |
"Merges values from right hash map into the left" |
View travis-badges.lisp
;; Run (ql:quickload :cl-yaml) before loading this script | |
(defpackage #:travis-badges | |
(:use #:cl) | |
(:import-from #:cl-yaml) | |
(:export | |
#:make-badges)) | |
(in-package travis-badges) | |
View weblocks-toast.lisp
(ql:quickload '(:weblocks :weblocks-lass :weblocks-navigation-widget :weblocks-ui :find-port)) | |
(defpackage app-package | |
(:use #:cl | |
#:weblocks-ui/form | |
#:weblocks/html) | |
(:import-from #:parenscript #:ps #:chain) | |
(:import-from #:weblocks-navigation-widget #:defroutes) | |
(:import-from #:weblocks/routes #:reset-routes) | |
(:import-from #:weblocks/session #:*session*) |
View lw-current-lang.lisp
#+cocoa | |
(defun current-language () | |
(let ((lang (objc:with-autorelease-pool () | |
(objc:invoke-into | |
'string | |
(objc:invoke | |
(objc:invoke "NSUserDefaults" "standardUserDefaults") | |
"objectForKey:" "AppleLanguages") | |
"objectAtIndex:" 0)))) | |
;; 2019-04-29 |
View weblocks-autocomplete.lisp
;; This example illustrates how to call actions from JS and update the widget in response. | |
;; It is incomplete but could be refactored into reusable library. | |
;; Hope, somebody will do this some day. | |
(defpackage #:weblocks-autocomplete | |
(:use #:cl)) | |
(in-package weblocks-autocomplete) | |
(ql:quickload '(weblocks log4cl)) |
View jinja2-python2.7.py
# Test for this post: | |
# https://40ants.com/lisp-project-of-the-day/2020/09/0188-zenekindarl.html | |
Python 2.7.16 (default, Apr 17 2020, 18:29:03) | |
Type "copyright", "credits" or "license" for more information. | |
IPython 5.10.0 -- An enhanced Interactive Python. | |
? -> Introduction and overview of IPython's features. | |
%quickref -> Quick reference. | |
help -> Python's own help system. |
View lack-server-side-events.lisp
;; This example was created to help the author of this thread: | |
;; https://www.reddit.com/r/Common_Lisp/comments/hu019r/what_is_the_recommended_way_to_readunderstand/ | |
;; Before loading this code, do this in the REPL: | |
;; (ql:quickload '(log4cl spinneret clack lack)) | |
(defpackage #:server-side | |
(:use #:cl)) | |
(in-package server-side) |
View fixed-transform-function-definer-options.lisp
(defun transform-function-definer-options (options) | |
(bind ((debug-level (normalize-debug-level | |
(getf options :debug (max #+sbcl (sb-c::policy-quality sb-c::*policy* 'debug) | |
(or (production-only* 0) | |
1)))))) | |
(when (> debug-level 0) | |
(remove-from-plistf options :inline :optimize)) | |
(list* :debug debug-level | |
(remove-from-plist options :debug)))) |
View covid-19.xlsx
<?xml version="1.0" encoding="UTF-8"?> | |
<?mso-application progid="Excel.Sheet"?><ss:Workbook xmlns:ss="urn:schemas-microsoft-com:office:spreadsheet"><ss:Styles><ss:Style ss:Name="Normal" ss:ID="Default"><ss:Alignment ss:Horizontal="Left" ss:Vertical="Bottom"/><ss:Font xmlns:x="urn:schemas-microsoft-com:office:excel" ss:Color="#000000" ss:Size="11" x:Family="Swiss" ss:FontName="Arial"/></ss:Style><ss:Style ss:Parent="Default" ss:ID="String"><ss:NumberFormat ss:Format="@"/></ss:Style><ss:Style ss:Parent="String" ss:ID="Notes"><ss:Font xmlns:x="urn:schemas-microsoft-com:office:excel" ss:Color="#666666" ss:Size="9" x:Family="Swiss" ss:FontName="Arial"/></ss:Style><ss:Style ss:Parent="String" ss:ID="HyperLink"><ss:Font ss:Underline="Single" ss:Color="#0000FF"/></ss:Style><ss:Style ss:Parent="Default" ss:ID="ShortDate"><ss:NumberFormat ss:Format="Short Date"/></ss:Style><ss:Style ss:Parent="Default" ss:ID="Currency"><ss:NumberFormat ss:Format="_("$"* #,##0.00_);_("$"* (#,##0.00);_("$"* |
NewerOlder