diff --git a/extra/llvm/ffi/ffi.factor b/extra/llvm/ffi/ffi.factor index 5e11cc1d4b..9709dc21c6 100644 --- a/extra/llvm/ffi/ffi.factor +++ b/extra/llvm/ffi/ffi.factor @@ -5,9 +5,10 @@ kernel ldcache system ; IN: llvm.ffi << "llvm" { - { [ os linux? ] [ "LLVM-3.9" find-so [ cdecl add-library ] [ drop ] if* ] } + { [ os linux? ] [ "LLVM-3.9" find-so ] } + { [ os macosx? ] [ "/usr/local/opt/llvm/lib/libLLVM.dylib" ] } [ drop ] -} cond +} cond [ cdecl add-library ] when* >> LIBRARY: llvm diff --git a/extra/webapps/pastebin/pastebin.factor b/extra/webapps/pastebin/pastebin.factor index 4a1f12ffe6..374270e943 100644 --- a/extra/webapps/pastebin/pastebin.factor +++ b/extra/webapps/pastebin/pastebin.factor @@ -2,15 +2,19 @@ ! See http://factorcode.org/license.txt for BSD license. USING: accessors calendar db db.tuples db.types furnace.actions furnace.auth furnace.boilerplate furnace.recaptcha -furnace.redirection furnace.syndication html.forms -http.server.dispatchers http.server.responses kernel math.parser -sequences sorting urls validators xmode.catalog ; +furnace.redirection furnace.syndication furnace.utilities +html.forms http.server.dispatchers http.server.responses kernel +math.parser namespaces present sequences smtp sorting splitting +urls validators xmode.catalog ; IN: webapps.pastebin TUPLE: pastebin < dispatcher ; SYMBOL: can-delete-pastes? +SYMBOL: pastebin-email-from +SYMBOL: pastebin-email-to + can-delete-pastes? define-capability ! ! ! @@ -150,6 +154,18 @@ M: annotation entity-url now >>date { "summary" "author" "mode" "contents" } to-object ; +: email-on-paste ( url -- ) + pastebin-email-to get-global [ + drop + ] [ + + swap >>to + swap adjust-url present >>body + pastebin-email-from get-global >>from + "New paste!" >>subject + send-email + ] if-empty ; + : ( -- action ) [ @@ -168,7 +184,7 @@ M: annotation entity-url f [ deposit-entity-slots ] [ insert-tuple ] - [ id>> paste-url ] + [ id>> paste-url [ email-on-paste ] [ ] bi ] tri ] >>submit ; diff --git a/extra/websites/concatenative/concatenative.factor b/extra/websites/concatenative/concatenative.factor index 1b42c5df21..fa92faa4bc 100644 --- a/extra/websites/concatenative/concatenative.factor +++ b/extra/websites/concatenative/concatenative.factor @@ -95,7 +95,8 @@ SYMBOLS: key-password key-file dh-file ; : ( path -- responder ) swap enable-cgi >>default - url"/gitweb.cgi" "" add-responder ; + url"/gitweb.cgi" "" add-responder + url"/github-sync.cgi" "github-sync" add-responder ; : init-production ( -- ) common-configuration