diff --git a/archiver/archiver-gui.rkt b/archiver/archiver-gui.rkt index 6f09cb8..3e476a9 100644 --- a/archiver/archiver-gui.rkt +++ b/archiver/archiver-gui.rkt @@ -14,10 +14,9 @@ racket/gui/easy racket/gui/easy/operator (only-in pict bitmap) - images/icons/arrow + images/icons/style images/icons/control images/icons/stickman - images/icons/style images/icons/symbol "archiver-database.rkt" "archiver.rkt" @@ -116,8 +115,7 @@ (define action-icons (hasheq 'pause (pause-icon #:color syntax-icon-color #:height button-icon-size) - 'resume (play-icon #:color color-green #:height button-icon-size) - 'reset (left-over-arrow-icon #:color halt-icon-color #:height button-icon-size))) + 'resume (play-icon #:color color-green #:height button-icon-size))) (define (bitmap-view @the-bitmap [min-width 1]) (pict-canvas #:min-size (@> (list (max min-width (send @the-bitmap get-width)) (send @the-bitmap get-height))) #;(if min-size (list min-size min-size) #f) @@ -258,12 +256,6 @@ (when th (kill-thread th)) (update-qi @qi [th #f] [st 'paused])) -(define (do-reset-qi @qi) - (define th (qi^-th (obs-peek @qi))) - (when th (kill-thread th)) - (update-qi @qi [th #f] [st 'queued] [stage 0] [progress 0] [max-progress 0]) - (query-exec* "update wiki set progress = 0 where wikiname = ?" (qi^-wikiname (obs-peek @qi)))) - (define (do-try-unpause-next-entry) (define queue (obs-peek @queue)) (define next-qi (for/first ([qi queue] @@ -311,8 +303,6 @@ [else (hash-ref status-icons (qi^-st @qi))]))) (define @is-running? (@> (memq (qi^-st @qi) '(running)))) - (define @is-complete? - (@> (eq? (qi^-st @qi) 'complete))) ;; state icon at the left side (hpanel #:stretch '(#t #f) #:alignment '(left center) @@ -325,10 +315,6 @@ (spacer) (hpanel #:stretch '(#f #f) - (if-view @is-complete? - (button (hash-ref action-icons 'reset) - (λ () (do-reset-qi @qi))) - (spacer)) (if-view @is-running? (button (hash-ref action-icons 'pause) (λ () (do-stop-qi @qi))) diff --git a/static/main.css b/static/main.css index 3d3ed5a..ff18c4b 100644 --- a/static/main.css +++ b/static/main.css @@ -8,9 +8,6 @@ pre, code { font-family: monospace; font-size: 0.85em; } -pre { - overflow-x: auto; -} ul, ol { list-style-type: initial; padding-left: 2em;