search

djjudas21 / photodb-perl

App to manage a collection of film cameras & lenses
https://metacpan.org/pod/App::PhotoDB
GNU General Public License v2.0
1 stars 2 forks source link

Remodel series info #313

Closed djjudas21 closed 5 years ago

djjudas21 commented 5 years ago

Rather than printing the list of models twice, just print it once and use ticks and crosses to show which models we've got. Bonus points if they are in colour.

photodb> series info                                                                                                                                                                                               
View information about a series of camera or lens models
    1   Canon FD T-series
    2   Canon FD A-series
    3   Canon FD F-series
    4   Canon EOS (35mm)
    5   Canon FD
    6   Canon New FD
    7   Canon Canonflex
    8   Canon FL
Please select a series from the list (text) []: 8                                                                                                                                                                  
Now showing camera and lens models in series 'Canon FL'
        Canon TL
        Canon FX
        Canon FP
        Canon FT QL
        Canon Pellix QL
        Canon Pellix
Now showing ones we've got
        Canon FX
        Canon FP
        Canon FT QL
        Canon Pellix QL
        Canon Pellix
Now showing ones we need
        Canon TL
Series 'Canon FL' is 83% complete (got 5, need 1)
djjudas21 commented 5 years ago

Probably need to switch away from &printlist and use &tabulate

djjudas21 commented 5 years ago

Might need to expand &tabulate to accept $cols and $where