Browse code
remove unecessary magic from git porcelain
Ed Langley authored on 12/07/2019 08:00:17Showing 1 changed files
| ... | ... |
@@ -18,20 +18,22 @@ |
| 18 | 18 |
|
| 19 | 19 |
(defmacro git:git (&rest commands) |
| 20 | 20 |
`(uiop:nest ,@(reverse |
| 21 |
- (mapcar (serapeum:op (format t "~&~s~%" (symbol-package (car _1))) |
|
| 22 |
- (typecase _1 |
|
| 23 |
- (string `(identity ,_1)) |
|
| 24 |
- (list (case (car _1) |
|
| 25 |
- ((map) (list* 'mapcar (cdr _1))) |
|
| 26 |
- ((unwrap) `(uiop:nest (car) |
|
| 27 |
- (mapcar ,@(cdr _1)))) |
|
| 28 |
- (t (cons (in-git-package (car _1)) |
|
| 29 |
- (cdr _1))))))) |
|
| 21 |
+ (mapcar (serapeum:op |
|
| 22 |
+ (typecase _1 |
|
| 23 |
+ (string `(identity ,_1)) |
|
| 24 |
+ (list (case (in-git-package (car _1)) |
|
| 25 |
+ (git::unwrap `(uiop:nest (car) |
|
| 26 |
+ (mapcar ,@(cdr _1)))) |
|
| 27 |
+ (t (cons (in-git-package (car _1)) |
|
| 28 |
+ (cdr _1))))))) |
|
| 30 | 29 |
commands)))) |
| 31 | 30 |
|
| 32 | 31 |
(defun git::<<= (fun &rest args) |
| 33 | 32 |
(apply #'mapcan fun args)) |
| 34 | 33 |
|
| 34 |
+(defun git::map (fun &rest args) |
|
| 35 |
+ (apply #'mapcar fun args)) |
|
| 36 |
+ |
|
| 35 | 37 |
(defun git:show (object) |
| 36 | 38 |
(babel:octets-to-string |
| 37 | 39 |
(coerce (extract-object (repository *git-repository*) |