-
Notifications
You must be signed in to change notification settings - Fork 0
/
package.lisp
101 lines (93 loc) · 3.25 KB
/
package.lisp
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
;;-*- Mode: LISP; Syntax: COMMON-LISP; Encoding: utf-8; Base: 10; -*-
;;; :FILE image-ops/package.lisp
;;; ==============================
;; (in-package #:image-ops) ;; for Slime
;; *package*
(defpackage #:image-ops (:use #:common-lisp) ;; #+sbcl #:sb-int
(:export
;;
#:*exiftool-path*
#:*image-magick-convert-path*
#:*image-output-default-thumb-type*
#:*valid-image-types*
;;
;; image-ops-specials.lisp
;;
#:*PSD-SCANNER*
#:*JPG-GZ-SCANNER*
#:*JPG-SCANNER*
#:*BMP-SCANNER*
#:*BMP-GZ-SCANNER*
#:*NEF-SCANNER*
#:*TIFF-SCANNER*
#:*EXTENSION-GZ-SCANNER*
;;
#:*BMP-HASH*
#:*BMP-GZ-HASH*
#:*NEF-HASH*
#:*JPG-HASH*
#:*JPG-GZ-SCANNER*
#:*TIFF-HASH*
#:*PSD-HASH*
#:*OTHER-HASH*
#:*SOURCE-DEST-CONVERSION-HASH*
;;
;;
;; image-ops/image-ops-macros.lisp
;;
;; #:with-hash-table-op
;;
;; image-hash-directory-tree.lisp
;;
;; #:%absolute-existent-file-or-directory
;; #:%ensure-simple-namestring
;; #:%walk-directory-filter-ignorables
;; #:%partition-walked-files
#:image-hash-write-to-file
#:image-hash-write-all-to-file
#:image-hash-write-conversion-hash-to-file
#:image-hash-reset-all
#:image-hash-counts-report
#:walk-directory-images-to-hash
#:image-hash-map-conversion-extension
;;
;; image-ops-rotate.lisp
#:verify-image-magic-convert-path
#:verify-image-file-output-type
#:verify-image-file-file-kind
#:unset-special-param-read-image-file-list
#:read-image-file-list-from-file
#:read-image-file-list-from-fprint0-file
#:make-target-pathname-for-image-resize
#:make-pathname-source-destination-resize-pairs
#:write-fprint0-file-for-image-files-in-pathname
#:resize-image-files-in-fprint0-file
#:rotate-image-files-in-dir-list
;; image-ops-iphone.lisp
#:directory-jpg-images
#:translate-pathname-iphone-image
#:translate-pathname-digital-camera-image
#:rename-file-iphone-images-in-directory
#:rename-file-digital-camera-images-in-directory
#:rename-file-numbering-jpgs-in-directory
;;
;; image-ops-nikon-nef.lisp
#:directory-nef-images
#:translate-pathname-nef-image
#:rename-file-nef-images-in-directory
;;
;; image-ops-copy.lisp
#:copy-image-byte-file
;; #:copy-image-cmg-nefs
;;
;; image-ops-docs.lisp
;;
))
;;; ==============================
;; Local Variables:
;; indent-tabs-mode: nil
;; show-trailing-whitespace: t
;; mode: lisp-interaction
;; End:
;;; ==============================
;;; EOF