webbrowser: move to basis for tools.deploy.unix

diff --git a/basis/webbrowser/authors.txt b/basis/webbrowser/authors.txt
new file mode 100644 (file)
index 0000000..e091bb8
--- /dev/null
+++ b/basis/webbrowser/authors.txt
@@ -0,0 +1 @@
+John Benediktsson

diff --git a/basis/webbrowser/linux/linux.factor b/basis/webbrowser/linux/linux.factor
new file mode 100644 (file)
index 0000000..70a0ee9
--- /dev/null
+++ b/basis/webbrowser/linux/linux.factor
@@ -0,0 +1,9 @@
+! Copyright (C) 2011 John Benediktsson
+! See http://factorcode.org/license.txt for BSD license
+
+USING: io.launcher kernel sequences system webbrowser ;
+
+IN: webbrowser.linux
+
+M: linux open-file ( path -- )
+    { "xdg-open" } swap suffix try-process ;

diff --git a/basis/webbrowser/linux/platforms.txt b/basis/webbrowser/linux/platforms.txt
new file mode 100644 (file)
index 0000000..a08e1f3
--- /dev/null
+++ b/basis/webbrowser/linux/platforms.txt
@@ -0,0 +1 @@
+linux

diff --git a/basis/webbrowser/macosx/macosx.factor b/basis/webbrowser/macosx/macosx.factor
new file mode 100644 (file)
index 0000000..18157df
--- /dev/null
+++ b/basis/webbrowser/macosx/macosx.factor
@@ -0,0 +1,9 @@
+! Copyright (C) 2011 John Benediktsson
+! See http://factorcode.org/license.txt for BSD license
+
+USING: io.launcher kernel sequences system webbrowser ;
+
+IN: webbrowser.macosx
+
+M: macosx open-file ( path -- )
+    { "open" } swap suffix try-process ;

diff --git a/basis/webbrowser/macosx/platforms.txt b/basis/webbrowser/macosx/platforms.txt
new file mode 100644 (file)
index 0000000..6e806f4
--- /dev/null
+++ b/basis/webbrowser/macosx/platforms.txt
@@ -0,0 +1 @@
+macosx

diff --git a/basis/webbrowser/summary.txt b/basis/webbrowser/summary.txt
new file mode 100644 (file)
index 0000000..65e60ae
--- /dev/null
+++ b/basis/webbrowser/summary.txt
@@ -0,0 +1 @@
+Open URLs in your web browser

diff --git a/basis/webbrowser/webbrowser-docs.factor b/basis/webbrowser/webbrowser-docs.factor
new file mode 100644 (file)
index 0000000..264de1d
--- /dev/null
+++ b/basis/webbrowser/webbrowser-docs.factor
@@ -0,0 +1,19 @@
+! Copyright (C) 2011 John Benediktsson
+! See http://factorcode.org/license.txt for BSD license
+
+USING: help.markup help.syntax strings webbrowser ;
+
+IN: webbrowser
+
+HELP: open-file
+{ $values { "path" string } }
+{ $description
+    "Open a specified file or directory using the default "
+    "application, similar to double-clicking the file's icon."
+} ;
+
+HELP: open-url
+{ $values { "url" string } }
+{ $description
+    "Open a specified url in the default web browser."
+} ;

diff --git a/basis/webbrowser/webbrowser.factor b/basis/webbrowser/webbrowser.factor
new file mode 100644 (file)
index 0000000..ba586e4
--- /dev/null
+++ b/basis/webbrowser/webbrowser.factor
@@ -0,0 +1,19 @@
+! Copyright (C) 2011 John Benediktsson
+! See http://factorcode.org/license.txt for BSD license
+
+USING: combinators present system ui.operations urls vocabs ;
+
+IN: webbrowser
+
+HOOK: open-file os ( path -- )
+
+{
+    { [ os macosx?  ] [ "webbrowser.macosx"  ] }
+    { [ os linux?   ] [ "webbrowser.linux"   ] }
+    { [ os windows? ] [ "webbrowser.windows" ] }
+} cond require
+
+: open-url ( url -- )
+    >url present open-file ;
+
+[ url? ] \ open-url H{ } define-operation

diff --git a/basis/webbrowser/windows/platforms.txt b/basis/webbrowser/windows/platforms.txt
new file mode 100644 (file)
index 0000000..8e1a559
--- /dev/null
+++ b/basis/webbrowser/windows/platforms.txt
@@ -0,0 +1 @@
+windows

diff --git a/basis/webbrowser/windows/windows.factor b/basis/webbrowser/windows/windows.factor
new file mode 100644 (file)
index 0000000..1f7448b
--- /dev/null
+++ b/basis/webbrowser/windows/windows.factor
@@ -0,0 +1,9 @@
+! Copyright (C) 2011 John Benediktsson
+! See http://factorcode.org/license.txt for BSD license
+
+USING: system kernel webbrowser windows.shell32 windows.user32 ;
+
+IN: webbrowser.windows
+
+M: windows open-file ( path -- )
+    [ f "open" ] dip f f SW_SHOWNORMAL ShellExecute drop ;

diff --git a/extra/webbrowser/authors.txt b/extra/webbrowser/authors.txt
deleted file mode 100644 (file)
index e091bb8..0000000
--- a/extra/webbrowser/authors.txt
+++ /dev/null
@@ -1 +0,0 @@
-John Benediktsson

diff --git a/extra/webbrowser/linux/linux.factor b/extra/webbrowser/linux/linux.factor
deleted file mode 100644 (file)
index 70a0ee9..0000000
--- a/extra/webbrowser/linux/linux.factor
+++ /dev/null
@@ -1,9 +0,0 @@
-! Copyright (C) 2011 John Benediktsson
-! See http://factorcode.org/license.txt for BSD license
-
-USING: io.launcher kernel sequences system webbrowser ;
-
-IN: webbrowser.linux
-
-M: linux open-file ( path -- )
-    { "xdg-open" } swap suffix try-process ;

diff --git a/extra/webbrowser/linux/platforms.txt b/extra/webbrowser/linux/platforms.txt
deleted file mode 100644 (file)
index a08e1f3..0000000
--- a/extra/webbrowser/linux/platforms.txt
+++ /dev/null
@@ -1 +0,0 @@
-linux

diff --git a/extra/webbrowser/macosx/macosx.factor b/extra/webbrowser/macosx/macosx.factor
deleted file mode 100644 (file)
index 18157df..0000000
--- a/extra/webbrowser/macosx/macosx.factor
+++ /dev/null
@@ -1,9 +0,0 @@
-! Copyright (C) 2011 John Benediktsson
-! See http://factorcode.org/license.txt for BSD license
-
-USING: io.launcher kernel sequences system webbrowser ;
-
-IN: webbrowser.macosx
-
-M: macosx open-file ( path -- )
-    { "open" } swap suffix try-process ;

diff --git a/extra/webbrowser/macosx/platforms.txt b/extra/webbrowser/macosx/platforms.txt
deleted file mode 100644 (file)
index 6e806f4..0000000
--- a/extra/webbrowser/macosx/platforms.txt
+++ /dev/null
@@ -1 +0,0 @@
-macosx

diff --git a/extra/webbrowser/summary.txt b/extra/webbrowser/summary.txt
deleted file mode 100644 (file)
index 65e60ae..0000000
--- a/extra/webbrowser/summary.txt
+++ /dev/null
@@ -1 +0,0 @@
-Open URLs in your web browser

diff --git a/extra/webbrowser/webbrowser-docs.factor b/extra/webbrowser/webbrowser-docs.factor
deleted file mode 100644 (file)
index 264de1d..0000000
--- a/extra/webbrowser/webbrowser-docs.factor
+++ /dev/null
@@ -1,19 +0,0 @@
-! Copyright (C) 2011 John Benediktsson
-! See http://factorcode.org/license.txt for BSD license
-
-USING: help.markup help.syntax strings webbrowser ;
-
-IN: webbrowser
-
-HELP: open-file
-{ $values { "path" string } }
-{ $description
-    "Open a specified file or directory using the default "
-    "application, similar to double-clicking the file's icon."
-} ;
-
-HELP: open-url
-{ $values { "url" string } }
-{ $description
-    "Open a specified url in the default web browser."
-} ;

diff --git a/extra/webbrowser/webbrowser.factor b/extra/webbrowser/webbrowser.factor
deleted file mode 100644 (file)
index ba586e4..0000000
--- a/extra/webbrowser/webbrowser.factor
+++ /dev/null
@@ -1,19 +0,0 @@
-! Copyright (C) 2011 John Benediktsson
-! See http://factorcode.org/license.txt for BSD license
-
-USING: combinators present system ui.operations urls vocabs ;
-
-IN: webbrowser
-
-HOOK: open-file os ( path -- )
-
-{
-    { [ os macosx?  ] [ "webbrowser.macosx"  ] }
-    { [ os linux?   ] [ "webbrowser.linux"   ] }
-    { [ os windows? ] [ "webbrowser.windows" ] }
-} cond require
-
-: open-url ( url -- )
-    >url present open-file ;
-
-[ url? ] \ open-url H{ } define-operation

diff --git a/extra/webbrowser/windows/platforms.txt b/extra/webbrowser/windows/platforms.txt
deleted file mode 100644 (file)
index 8e1a559..0000000
--- a/extra/webbrowser/windows/platforms.txt
+++ /dev/null
@@ -1 +0,0 @@
-windows

diff --git a/extra/webbrowser/windows/windows.factor b/extra/webbrowser/windows/windows.factor
deleted file mode 100644 (file)
index 1f7448b..0000000
--- a/extra/webbrowser/windows/windows.factor
+++ /dev/null
@@ -1,9 +0,0 @@
-! Copyright (C) 2011 John Benediktsson
-! See http://factorcode.org/license.txt for BSD license
-
-USING: system kernel webbrowser windows.shell32 windows.user32 ;
-
-IN: webbrowser.windows
-
-M: windows open-file ( path -- )
-    [ f "open" ] dip f f SW_SHOWNORMAL ShellExecute drop ;