mason.twitter: deleted since it stopped working

diff --git a/extra/mason/notify/notify.factor b/extra/mason/notify/notify.factor
index e668b92b39767c902f6dc532a918933196169598..a2e350f2deb92dbac359e16531a3947d5e0ce246 100644 (file)
--- a/extra/mason/notify/notify.factor
+++ b/extra/mason/notify/notify.factor
@@ -2,7 +2,7 @@
 ! See https://factorcode.org/license.txt for BSD license.
 USING: accessors continuations debugger http.client io
 io.encodings.utf8 io.files kernel make mason.common mason.config
-mason.email mason.twitter namespaces sequences ;
+mason.email namespaces sequences ;
 IN: mason.notify
 
 : status-notify? ( -- ? )
@@ -70,6 +70,5 @@ IN: mason.notify
     f f "finish" status-notify ;
 
 : notify-release ( archive-name -- )
-    [ "Uploaded " prepend [ print-timestamp ] [ mason-tweet ] bi ]
-    [ f swap "release" status-notify ]
-    bi ;
+    [ "Uploaded " prepend print-timestamp ]
+    [ f swap "release" status-notify ] bi ;

diff --git a/extra/mason/twitter/authors.txt b/extra/mason/twitter/authors.txt
deleted file mode 100644 (file)
index 1901f27..0000000
--- a/extra/mason/twitter/authors.txt
+++ /dev/null
@@ -1 +0,0 @@
-Slava Pestov

diff --git a/extra/mason/twitter/twitter.factor b/extra/mason/twitter/twitter.factor
deleted file mode 100644 (file)
index 9125601..0000000
--- a/extra/mason/twitter/twitter.factor
+++ /dev/null
@@ -1,7 +0,0 @@
-! Copyright (C) 2009, 2010 Slava Pestov.
-! See https://factorcode.org/license.txt for BSD license.
-USING: debugger kernel namespaces twitter ;
-IN: mason.twitter
-
-: mason-tweet ( message -- )
-    twitter-access-token get [ '[ _ tweet ] try ] [ drop ] if ;

diff --git a/extra/webapps/mason/version/version.factor b/extra/webapps/mason/version/version.factor
index a21a62b12b5b065db643a8e221d3a3211c3e4894..f89077baf666523caab23b4cb3ad553dac6dba86 100644 (file)
--- a/extra/webapps/mason/version/version.factor
+++ b/extra/webapps/mason/version/version.factor
@@ -1,11 +1,10 @@
 ! Copyright (C) 2010 Slava Pestov.
 ! See https://factorcode.org/license.txt for BSD license.
-USING: accessors bitly combinators db.tuples debugger
-grouping io io.streams.string kernel make sequences
-threads mason.email mason.twitter webapps.mason.backend
-webapps.mason.version.common webapps.mason.version.data
-webapps.mason.version.files webapps.mason.version.source
-webapps.mason.version.binary ;
+USING: accessors bitly combinators db.tuples debugger grouping
+io io.streams.string kernel make sequences threads mason.email
+webapps.mason.backend webapps.mason.version.common
+webapps.mason.version.data webapps.mason.version.files
+webapps.mason.version.source webapps.mason.version.binary ;
 IN: webapps.mason.version
 
 : check-releases ( builders -- )
@@ -17,12 +16,6 @@ IN: webapps.mason.version
     [ "mkdir -p " % "" release-directory remote-directory % "\n" % ] "" make
     execute-on-server ;
 
-: tweet-release ( version announcement-url -- )
-    [
-        "Factor " %
-        [ % " released -- " % ] [ shorten-url % ] bi*
-    ] "" make mason-tweet ;
-
 :: (do-release) ( version announcement-url -- )
     [
         builder new select-tuples :> builders
@@ -34,7 +27,6 @@ IN: webapps.mason.version
         version builders update-binary-releases
         version git-id do-source-release
         version git-id announcement-url update-version
-        version announcement-url tweet-release
 
         "Done." print flush
     ] with-mason-db ;