Skip to content

Commit

Permalink
Merge pull request #95 from lehitoskin/application-handler
Browse files Browse the repository at this point in the history 
Looks good.
  • Loading branch information
@IonoclastBrigham
IonoclastBrigham authored Sep 7, 2018
2 parents 327a834 + 8118c20 commit 60cf5ac
Showing 1 changed file with 103 additions and 82 deletions.
185 changes: 103 additions & 82 deletions main.rkt
View file
Original file line number Diff line number Diff line change
Expand Up @@ -2,8 +2,7 @@
#lang racket/base
; main.rkt
; main file for ivy, the taggable image viewer
(require pict
racket/class
(require racket/class
racket/cmdline
racket/gui/base
racket/list
Expand Down Expand Up @@ -54,6 +53,103 @@
; make sure the path provided is a proper absolute path
(define relative->absolute (compose1 simple-form-path expand-user-path))

; resize ivy-frame based on the dimensions of the image
(define (resize-ivy-frame bmp)
; determine the monitor dimensions
(define-values (monitor-width monitor-height) (get-display-size))
; approximate canvas offset
(define canvas-offset 84)
(define max-width (- monitor-width 100))
(define max-height (- monitor-height 100))
(define bmp-width (send bmp get-width))
(define bmp-height (send bmp get-height))

(cond
; all good, let's shrink the frame
[(and (< bmp-width max-width)
(< bmp-height max-height))
(send ivy-frame resize
(inexact->exact (floor bmp-width))
(+ (inexact->exact (floor bmp-height)) canvas-offset))]
; image is the same size as the monitor
[(and (= bmp-width max-width)
(= bmp-height max-height))
(define resized
(let ([scale (/ (- max-height canvas-offset) bmp-height)])
(* bmp-height scale)))
(send ivy-frame resize resized max-height)]
; wide image
[(and (>= bmp-width max-width)
(<= bmp-height max-height))
(define y
(cond [(> bmp-height (- max-height canvas-offset))
max-height]
[(<= bmp-height (- max-height canvas-offset))
(+ bmp-height canvas-offset)]
[else bmp-height]))
(define scale
(let ([scale-w (/ max-width bmp-width)]
[scale-y (/ max-height y)])
(if (<= scale-w scale-y) scale-w scale-y)))
(define resized-height (* y scale))
(send ivy-frame resize
max-width
(+ (inexact->exact (floor resized-height)) canvas-offset))]
; tall image
[(and (<= bmp-width max-width)
(>= bmp-height max-height))
(define resized
(let ([scale (/ (- max-height canvas-offset) bmp-height)])
(* bmp-width scale)))
(send ivy-frame resize (inexact->exact (floor resized)) max-height)]
; both wide and tall
[(and (> bmp-width max-width)
(> bmp-height max-height))
(define scale
(let ([scale-x (/ max-width bmp-width)]
[scale-y (/ (- max-height canvas-offset) bmp-height)])
(if (<= scale-x scale-y) scale-x scale-y)))
(define resized-width (* bmp-width scale))
(send ivy-frame resize (inexact->exact (floor resized-width)) max-height)]))

(define (set-image-paths! paths)
; if there are directories as paths, scan them
(define absolute-paths
(remove-duplicates
(for/fold ([imgs empty])
([ap (map relative->absolute paths)])
; directory?
(if (directory-exists? ap)
(append imgs (dir-files ap))
(append imgs (list ap))))))
(cond [(> (length absolute-paths) 1)
; we want to load a collection
(pfs absolute-paths)]
[else
; we want to load the image from the directory
(define-values (base name dir?) (split-path (first absolute-paths)))
(image-dir base)
; (path-files dir) filters only supported images
(pfs (path-files base))])
(image-path (first absolute-paths)))

; application handler stuff
(application-file-handler
(λ (path)
(when (supported-file? path)
(cond [(equal? (image-path) +root-path+)
; prep work
(set-image-paths! (list path))
; actually load the file
(load-image path)
; only bother resizing ivy-frame if we're starting fresh
(resize-ivy-frame image-bmp-master)
; center the frame
(send ivy-frame center 'both)]
[else
; append image to the collection
(send (ivy-canvas) on-drop-file path)]))))

; accept command-line path to load image
(command-line
#:program "Ivy"
Expand Down Expand Up @@ -149,86 +245,9 @@
(verbose? #t)]
#:args args
; hijack requested-images for -M
(unless (or (not (show-frame?))
(empty? args))
(unless (or (not (show-frame?)) (empty? args))
; if there are directories as paths, scan them
(define absolute-paths
(remove-duplicates
(for/fold ([imgs empty])
([ap (map relative->absolute args)])
; directory?
(if (directory-exists? ap)
(append imgs (dir-files ap))
(append imgs (list ap))))))
(cond [(> (length absolute-paths) 1)
; we want to load a collection
(pfs absolute-paths)]
[else
; we want to load the image from the directory
(define-values (base name dir?) (split-path (first absolute-paths)))
(image-dir base)
; (path-files dir) filters only supported images
(pfs (path-files base))])
(image-path (first absolute-paths))
; resize ivy-frame so that the image isn't horribly squished if it's large
(when (supported-file? (image-path))
; determine the monitor dimensions
(define-values (monitor-width monitor-height) (get-display-size))
; approximate canvas offset
(define canvas-offset 84)
(define max-width (- monitor-width canvas-offset 100))
(define max-height (- monitor-height 100))
(define pct (if (flif? (image-path))
(let ([dimensions (flif-dimensions (image-path))])
(rectangle (first dimensions) (second dimensions)))
(bitmap (image-path))))
(define pct-width (pict-width pct))
(define pct-height (pict-height pct))
(cond
; all good, let's resize the frame
[(and (< pct-width max-width)
(< pct-height max-height))
(send ivy-frame resize
(inexact->exact (floor pct-width))
(+ (inexact->exact (floor pct-height)) canvas-offset))]
; image is the same size as the monitor
[(and (= pct-width max-width)
(= pct-height max-height))
(define resized (scale-to-fit pct
pct-width
(- max-height canvas-offset)))
(send ivy-frame resize
(- (inexact->exact (floor (pict-width resized))) canvas-offset)
max-height)]
; wide image
[(and (>= pct-width max-width)
(<= pct-height max-height))
(define y
(cond [(> pct-height (- max-height canvas-offset))
max-height]
[(<= pct-height (- max-height canvas-offset))
(+ pct-height canvas-offset)]
[else pct-height]))
(define resized (scale-to-fit pct max-width y))
(send ivy-frame resize
max-width
(+ (inexact->exact (floor (pict-height resized))) canvas-offset))]
; tall image
[(and (<= pct-width max-width)
(>= pct-height max-height))
(define resized (scale-to-fit pct
pct-width
(- max-height canvas-offset)))
(send ivy-frame resize
(inexact->exact (floor (pict-width resized)))
max-height)]
; both wide and tall
[(and (> pct-width max-width)
(> pct-height max-height))
(define resized (scale-to-fit pct max-width (- max-height canvas-offset)))
(send ivy-frame resize
(inexact->exact (floor (pict-width resized)))
(+ (inexact->exact (floor (pict-height resized))) canvas-offset))])))
(set-image-paths! args))

(cond
; we aren't search for tags on the cmdline, open frame
Expand All @@ -241,7 +260,9 @@
(send ivy-frame show #t)
; canvas won't resize until the frame is shown.
(when (supported-file? (image-path))
(load-image (image-path)))]
(load-image (image-path))
(resize-ivy-frame image-bmp-master)
(send ivy-frame center 'both))]
; only searching for tags
[(and (search-type)
(not (excluding?))
Expand Down

0 comments on commit 60cf5ac

Please sign in to comment.