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:
Vincent Ambo 2021-12-15 20:22:41 +03:00 committed by tazjin
parent 743bee8686
commit d292f899f9
5 changed files with 103571 additions and 65 deletions

View file

@ -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

View file

@ -1,11 +0,0 @@
{ depot, ... }:
depot.nix.buildLisp.library {
name = "f";
deps = with depot.users.wpcarro.lisp; [
prelude
];
srcs = [
./main.lisp
];
}

View file

@ -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)

View file

@ -1,3 +1,2 @@
/elm-stuff
/Main.min.js
/output.css

File diff suppressed because it is too large Load diff