fix(users/wpcarro): Delete and/or fix broken targets
(we're doing this over GVC) Co-Authored-By: William Carroll <wpcarro@gmail.com> Change-Id: I7a65ee8b99c30366f73b4e5f0e22d9c2af6e2f1e Reviewed-on: https://cl.tvl.fyi/c/depot/+/4336 Autosubmit: tazjin <mail@tazj.in> Tested-by: BuildkiteCI Reviewed-by: wpcarro <wpcarro@gmail.com>
This commit is contained in:
parent
743bee8686
commit
d292f899f9
5 changed files with 103571 additions and 65 deletions
|
@ -1,5 +0,0 @@
|
|||
# f.lisp
|
||||
|
||||
In this project, I'm attempting to port the Elisp library [`f.el`][1] to Common Lisp.
|
||||
|
||||
[1]: https://github.com/rejeep/f.el
|
|
@ -1,11 +0,0 @@
|
|||
{ depot, ... }:
|
||||
|
||||
depot.nix.buildLisp.library {
|
||||
name = "f";
|
||||
deps = with depot.users.wpcarro.lisp; [
|
||||
prelude
|
||||
];
|
||||
srcs = [
|
||||
./main.lisp
|
||||
];
|
||||
}
|
|
@ -1,48 +0,0 @@
|
|||
(in-package #:cl-user)
|
||||
(defpackage #:main
|
||||
(:documentation "Modern API for working with files and directories.")
|
||||
(:use #:cl)
|
||||
(:shadow #:type))
|
||||
(in-package #:main)
|
||||
|
||||
;; Common Lisp distinguishes between `namestrings` and `pathnames` as two types
|
||||
;; of filename representations.
|
||||
;;
|
||||
;; A `pathname` is a structured representation of the name of a file, which
|
||||
;; consists of six parts:
|
||||
;; 1. host
|
||||
;; 2. device
|
||||
;; 3. directory
|
||||
;; 4. name
|
||||
;; 5. type
|
||||
;; 6. version
|
||||
|
||||
;; TODO: Should I be using `string` as a type or `namestring`?
|
||||
|
||||
(defmacro type (name in out)
|
||||
`(declaim (ftype (function ,in ,out) ,name)))
|
||||
|
||||
(type join (&rest namestring) pathname)
|
||||
(defun join (&rest args)
|
||||
"Join ARGS to a single path."
|
||||
(apply #'merge-pathnames args))
|
||||
|
||||
(type ext (pathname) string)
|
||||
(defun ext (path)
|
||||
"Return the file extension of PATH."
|
||||
(pathname-type path))
|
||||
|
||||
;; TODO: Define these tests elsewhere.
|
||||
|
||||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||||
;; Tests
|
||||
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
||||
|
||||
;; join
|
||||
(string= (join "path") "path")
|
||||
(string= (join "path" "to") "path/to")
|
||||
(string= (join "/" "path" "to" "heaven") "/path/to/heaven")
|
||||
|
||||
;; ext
|
||||
(string= (ext #p"path/to/file.ext") "ext")
|
||||
(string= (ext #p"path/to/directory") nil)
|
|
@ -1,3 +1,2 @@
|
|||
/elm-stuff
|
||||
/Main.min.js
|
||||
/output.css
|
103571
users/wpcarro/website/sandbox/learnpianochords/output.css
Normal file
103571
users/wpcarro/website/sandbox/learnpianochords/output.css
Normal file
File diff suppressed because it is too large
Load diff
Loading…
Reference in a new issue