114 lines
2.8 KiB
Scheme
114 lines
2.8 KiB
Scheme
|
(use-modules (srfi srfi-19)) ; string/date
|
||
|
|
(use-modules (ice-9 ftw))
|
||
|
|
(use-modules (ice-9 format))
|
||
|
|
(use-modules (ice-9 popen))
|
||
|
|
(use-modules (ice-9 rdelim))
|
||
|
|
(use-modules (ice-9 textual-ports)) ; put-string
|
||
|
|
|
||
|
|
(getcwd)
|
||
|
|
(chdir "/home/nixo/memories/inbox/photos/moto/Camera")
|
||
|
|
|
||
|
|
(define (get-creation filename)
|
||
|
|
(if (access? filename R_OK)
|
||
|
|
(let* ((port (open-input-pipe
|
||
|
|
;; FIXME: add "datetimeoriginal" as another option
|
||
|
|
(string-join `("exiftool" "-T" "-createdate" ,filename) " ")))
|
||
|
|
(str (read-line port)))
|
||
|
|
(close-pipe port)
|
||
|
|
(string->date str "~Y:~m:~d ~H:~M:~S")
|
||
|
|
)))
|
||
|
|
|
||
|
|
(system "ls")
|
||
|
|
|
||
|
|
|
||
|
|
;; <YYYY-MM-DD Sun HH:MM>
|
||
|
|
(define (date->org date show-time active)
|
||
|
|
(let* ((brackets (if active '("<" ">")
|
||
|
|
'( "[" "]")))
|
||
|
|
(format (string-append (car brackets) "~Y-~m-~d ~a"))
|
||
|
|
(format (if show-time
|
||
|
|
(string-append format " ~H:~M")
|
||
|
|
format)))
|
||
|
|
(date->string date (string-append format (car (cdr brackets))))))
|
||
|
|
|
||
|
|
(define (link->org lnk description replacespaces)
|
||
|
|
(let* ((lnk (if replacespaces
|
||
|
|
(regexp-substitute/global #f "[ \t]+" lnk
|
||
|
|
'pre "%20" 'post)
|
||
|
|
lnk))
|
||
|
|
(output (if description
|
||
|
|
(string-concatenate `("[[" ,lnk
|
||
|
|
"][" ,description
|
||
|
|
"]]"))
|
||
|
|
(string-concatenate `("[[" ,lnk
|
||
|
|
"]]")))))
|
||
|
|
output))
|
||
|
|
|
||
|
|
(define (make-org-pair p)
|
||
|
|
(string-concatenate `(,(car p) ":" ,(cadr p))))
|
||
|
|
|
||
|
|
(define (format-properties props)
|
||
|
|
(string-join
|
||
|
|
(map (lambda (x) (make-org-pair x)) props)
|
||
|
|
"\n"))
|
||
|
|
|
||
|
|
(define (create-uuid props) "UUID")
|
||
|
|
|
||
|
|
(define (org-properties props)
|
||
|
|
(let ((id (create-uuid props)))
|
||
|
|
(string-concatenate
|
||
|
|
`(
|
||
|
|
":PROPERTIES:\n"
|
||
|
|
,(format-properties props)
|
||
|
|
":ID:" ,id "\n"
|
||
|
|
":END:\n"))))
|
||
|
|
|
||
|
|
(define (image->org filename)
|
||
|
|
(string-concatenate `("* "
|
||
|
|
,(date->org (get-creation filename) #t #t) " "
|
||
|
|
,(link->org (canonicalize-path filename)
|
||
|
|
filename #t)
|
||
|
|
"\n"
|
||
|
|
,(org-properties `(("FILENAME" ,filename))))))
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
(use-modules (ice-9 match))
|
||
|
|
(define remove-stat
|
||
|
|
(match-lambda
|
||
|
|
((name stat) ; flat file
|
||
|
|
name)
|
||
|
|
((name stat children ...) ; directory
|
||
|
|
(list name (map remove-stat children)))))
|
||
|
|
|
||
|
|
(define image-exts '("jpg" "jpeg" "png"))
|
||
|
|
|
||
|
|
;; (make-regexp "\.png" regexp/icase)
|
||
|
|
|
||
|
|
;; (map image-exts)
|
||
|
|
;; (map (lambda (ext) (string-match filename)
|
||
|
|
;; (string-contains-ci "test.png" ext)) image-exts)
|
||
|
|
|
||
|
|
;; (define (image? filename)
|
||
|
|
;; (map (lambda (ext) (string-contains-ci filename ext)) image-exts)
|
||
|
|
;; )
|
||
|
|
|
||
|
|
;; (filter! image? (cadr (remove-stat (file-system-tree "."))))
|
||
|
|
|
||
|
|
;; (let ((dir "."))
|
||
|
|
;; (remove-stat ))
|
||
|
|
|
||
|
|
(let ((output (open-file "example.org" "a")))
|
||
|
|
(put-string output (image->org "IMG_20180520_230823.jpg"))
|
||
|
|
(close-port output))
|
||
|
|
|
||
|
|
|
||
|
|
;; (image-dir->org ".")
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
;; timestamp = OrgFormat.datetime(datetime)
|
||
|
|
;; output = OrgFormat.link(filename, photo_file)
|
||
|
|
;; properties = OrgProperties(photo_file + timestamp)
|