<commit_before>! Copyright (C) 2006, 2009 <NAME>.
! See http://factorcode.org/license.txt for BSD license.
USING: memory system kernel vocabs.refresh ui.tools.operations
ui.tools.listener ui.tools.browser ui.tools.common ui.tools.error-list
ui.tools.walker ui.commands ui.gestures ui ui.private ;
IN: ui.tools

MAIN: listener-window

\ refresh-all H{ { +nullary+ t } { +listener+ t } } define-command

\ save H{ { +nullary+ t } } define-command

: com-exit ( -- ) 0 exit ;

\ com-exit H{ { +nullary+ t } } define-command

tool "tool-switching" f {
    { T{ key-down f { A+ } "l" } show-listener }
    { T{ key-down f { A+ } "L" } listener-window }
    { T{ key-down f { A+ } "b" } show-browser }
    { T{ key-down f { A+ } "B" } browser-window }
} define-command-map

tool "common" f {
    { T{ key-down f { A+ } "w" } close-window }
    { T{ key-down f { A+ } "F" } toggle-fullscreen }
    { T{ key-down f { A+ } "q" } com-exit }
    { T{ key-down f f "F2" } refresh-all }
    { T{ key-down f f "F3" } show-error-list }
} define-command-map<commit_msg>ui.tools: make refresh-all command interruptible with Ctrl-Break<commit_after>! Copyright (C) 2006, 2009 <NAME>.
! See http://factorcode.org/license.txt for BSD license.
USING: kernel listener memory system ui ui.commands ui.gestures
ui.private ui.tools.browser ui.tools.common ui.tools.error-list
ui.tools.listener ui.tools.operations ui.tools.walker
vocabs.refresh ;
IN: ui.tools

MAIN: listener-window

: refresh-all-cmd ( -- ) [ refresh-all ] with-ctrl-break ;

\ refresh-all-cmd H{ { +nullary+ t } { +listener+ t } } define-command

\ save H{ { +nullary+ t } } define-command

: com-exit ( -- ) 0 exit ;

\ com-exit H{ { +nullary+ t } } define-command

tool "tool-switching" f {
    { T{ key-down f { A+ } "l" } show-listener }
    { T{ key-down f { A+ } "L" } listener-window }
    { T{ key-down f { A+ } "b" } show-browser }
    { T{ key-down f { A+ } "B" } browser-window }
} define-command-map

tool "common" f {
    { T{ key-down f { A+ } "w" } close-window }
    { T{ key-down f { A+ } "F" } toggle-fullscreen }
    { T{ key-down f { A+ } "q" } com-exit }
    { T{ key-down f f "F2" } refresh-all-cmd }
    { T{ key-down f f "F3" } show-error-list }
} define-command-map
{'fraction_non_alphanumeric': 0.17412712623097581, 'fraction_numerical': 0.009847806624888093, 'mean_word_length': 2.768971332209106, 'pattern_counts': {'":': 0, '<': 5, '<?xml version=': 0, '>': 5, 'https://': 0, 'lorem ipsum': 0, 'www.': 0, 'xml': 0}, 'pii_count': 0, 'substrings_counts': 0, 'word_list_counts': {'cursed_substrings.json': 0, 'profanity_word_list.json': 0, 'sexual_word_list.json': 0, 'zh_pornsignals.json': 0}}
{'dir': 'git-commits-cleaned', 'id': '2982930', 'n_tokens_mistral': 865, 'n_tokens_neox': 843, 'n_words': 233}