! Copyright (C) 2008 Slava Pestov.
! See http://factorcode.org/license.txt for BSD license.
USING: threads io.files io.monitors init kernel
tools.browser namespaces continuations ;
IN: vocabs.monitor

! Use file system change monitoring to flush the tags/authors
! cache
SYMBOL: vocab-monitor

: monitor-thread ( -- )
    vocab-monitor get-global next-change 2drop reset-cache ;

: start-monitor-thread
    #! Silently ignore errors during monitor creation since
    #! monitors are not supported on all platforms.
    [
        "" resource-path t <monitor> vocab-monitor set-global
        [ monitor-thread t ] "Vocabulary monitor" spawn-server drop
    ] ignore-errors ;

[ start-monitor-thread ] "vocabs.monitor" add-init-hook