HTML

Processing ================================================== my $html-options = GTK::Simple::Grid.new( [0, 0, 1, 1] => GTK::Simple::MarkUpLabel.new( text => '<span foreground="green">HTML options</span>' ), [0, 1, 1, 1] => my $hilite = GTK::Simple::CheckButton.new(:label('')), [1, 1, 1, 1] => GTK::Simple::MarkUpLabel.new(text => 'highlight'), [0, 2, 1, 1] => my $no-css = GTK::Simple::CheckButton.new(:label('')), [1, 2, 1, 1] => GTK::Simple::MarkUpLabel.new(text => 'minimise css, camelia image, and favicon'), [0, 3, 1, 1] => GTK::Simple::MarkUpLabel.new( text => '<span foreground="green">Markdown options</span>' ), [0, 4 , 1, 1] => my $badge = GTK::Simple::CheckButton.new(:label('')), [1, 4, 1, 1] => GTK::Simple::MarkUpLabel.new(text => 'Add github badge'), [0, 5, 1, 1] => GTK::Simple::MarkUpLabel.new( text => 'Github badge path <span foreground="blue">[module name]</span>'), [1, 6, 1, 1] => my $b-path-entry = GTK::Simple::Entry.new( placeholder-text => 'Using default calculated path' ), ); my Bool $highlight-code = $hilite.status = False; my Bool $min-top = $no-css.status = False; my Bool $md-badge = $badge.status = False; $hilite.toggled.tap: -> $b { $highlight-code = !$highlight-code } $no-css.toggled.tap: -> $b { $min-top = !$min-top } $badge.toggled.tap: -> $b { $md-badge = !$md-badge } $b-path-entry.changed.tap: -> $b { $badge-path = $b-path-entry.text } $html-options.column-spacing = 10; # ==================================================================== # =FILE BOX ========================================================== my $files-box = GTK::Simple::Grid.new( [0, 0, 1, 1] => GTK::Simple::MarkUpLabel.new(text => 'convert'), [1, 0, 1, 1] => GTK::Simple::MarkUpLabel.new(text => '<span foreground="blue">path</span>/<span foreground="green" >input filename</span>'), [2, 0, 1, 1] => GTK::Simple::MarkUpLabel.new(text => 'output filename'), [3, 0, 1, 1] => GTK::Simple::MarkUpLabel.new(text => '.md'), [4, 0, 1, 1] => GTK::Simple::MarkUpLabel.new(text => '.html'), ); $files-box.column-spacing = 10; # =========================================================== # =Bottom buttons ============================================ my $buttons = GTK::Simple::HBox.new([ $cancel = GTK::Simple::Button.new(:label<Cancel>), $action = GTK::Simple::Button.new(:label<Convert>) ]); # =============================================================== my $report = GTK::Simple::MarkUpLabel.new; # == Main Contain =============================================== my $convert = GTK::Simple::VBox.new([ { :widget(GTK::Simple::HBox.new([ { :widget(GTK::Simple::MarkUpLabel.new(text => "Select files with POD6 by clicking on the button")) , :padding(15)}, $file-chooser-button])), :!expand }, $html-options, $files-box, { :widget($report), :!expand }, { :widget($buttons), :!expand } ]); # ===============================================================