Merge branch 'master' of git://factorcode.org/git/factor
commit
bdcb33acf6
|
@ -1,6 +1,6 @@
|
|||
USING: definitions kernel parser words sequences math.parser
|
||||
namespaces editors io.launcher windows.shell32 io.files
|
||||
io.paths strings unicode.case ;
|
||||
io.paths strings unicode.case make ;
|
||||
IN: editors.editpadpro
|
||||
|
||||
: editpadpro-path
|
||||
|
|
|
@ -1,5 +1,5 @@
|
|||
USING: editors io.files io.launcher kernel math.parser
|
||||
namespaces sequences windows.shell32 ;
|
||||
namespaces sequences windows.shell32 make ;
|
||||
IN: editors.editplus
|
||||
|
||||
: editplus-path ( -- path )
|
||||
|
|
|
@ -1,5 +1,5 @@
|
|||
USING: definitions io.launcher kernel parser words sequences math
|
||||
math.parser namespaces editors ;
|
||||
math.parser namespaces editors make ;
|
||||
IN: editors.emacs
|
||||
|
||||
: emacsclient ( file line -- )
|
||||
|
|
|
@ -1,5 +1,6 @@
|
|||
USING: editors hardware-info.windows io.files io.launcher
|
||||
kernel math.parser namespaces sequences windows.shell32 ;
|
||||
kernel math.parser namespaces sequences windows.shell32
|
||||
make ;
|
||||
IN: editors.emeditor
|
||||
|
||||
: emeditor-path ( -- path )
|
||||
|
|
|
@ -1,6 +1,6 @@
|
|||
USING: io.backend io.files kernel math math.parser
|
||||
namespaces sequences system combinators
|
||||
editors.vim vocabs.loader ;
|
||||
editors.vim vocabs.loader make ;
|
||||
IN: editors.gvim
|
||||
|
||||
SINGLETON: gvim
|
||||
|
|
|
@ -1,5 +1,5 @@
|
|||
USING: editors io.files io.launcher kernel math.parser
|
||||
namespaces sequences windows.shell32 ;
|
||||
namespaces sequences windows.shell32 make ;
|
||||
IN: editors.notepadpp
|
||||
|
||||
: notepadpp-path
|
||||
|
|
|
@ -9,7 +9,7 @@
|
|||
! if not on the path.
|
||||
!
|
||||
USING: io.files io.launcher kernel namespaces math
|
||||
math.parser editors sequences windows.shell32 ;
|
||||
math.parser editors sequences windows.shell32 make ;
|
||||
IN: editors.scite
|
||||
|
||||
: scite-path ( -- path )
|
||||
|
|
|
@ -1,5 +1,5 @@
|
|||
USING: editors io.files io.launcher kernel math.parser
|
||||
namespaces sequences windows.shell32 ;
|
||||
namespaces sequences windows.shell32 make ;
|
||||
IN: editors.ted-notepad
|
||||
|
||||
: ted-notepad-path
|
||||
|
|
|
@ -1,5 +1,5 @@
|
|||
USING: definitions io.launcher kernel math math.parser parser
|
||||
namespaces prettyprint editors ;
|
||||
namespaces prettyprint editors make ;
|
||||
|
||||
IN: editors.textmate
|
||||
|
||||
|
|
|
@ -1,7 +1,7 @@
|
|||
! Copyright (C) 2008 Ben Schlingelhof.
|
||||
! See http://factorcode.org/license.txt for BSD license.
|
||||
USING: definitions io.launcher kernel parser words sequences
|
||||
math math.parser namespaces editors ;
|
||||
math math.parser namespaces editors make ;
|
||||
IN: editors.textwrangler
|
||||
|
||||
: tw ( file line -- )
|
||||
|
|
|
@ -1,5 +1,5 @@
|
|||
USING: editors io.files io.launcher kernel math.parser
|
||||
namespaces sequences windows.shell32 ;
|
||||
namespaces sequences windows.shell32 wne ;
|
||||
IN: editors.ultraedit
|
||||
|
||||
: ultraedit-path ( -- path )
|
||||
|
|
|
@ -1,5 +1,6 @@
|
|||
USING: definitions io io.launcher kernel math math.parser
|
||||
namespaces parser prettyprint sequences editors accessors ;
|
||||
namespaces parser prettyprint sequences editors accessors
|
||||
make ;
|
||||
IN: editors.vim
|
||||
|
||||
SYMBOL: vim-path
|
||||
|
|
|
@ -4,12 +4,18 @@ USING: accessors kernel quotations help.syntax help.markup
|
|||
io.sockets strings calendar ;
|
||||
IN: smtp
|
||||
|
||||
HELP: smtp-domain
|
||||
{ $description "The name of the machine that is sending the email. This variable will be filled in by the " { $link host-name } " word if not set by the user." } ;
|
||||
|
||||
HELP: smtp-server
|
||||
{ $description "Holds an " { $link inet } " object with the address of an SMTP server." } ;
|
||||
|
||||
HELP: smtp-read-timeout
|
||||
{ $description "Holds an " { $link duration } " object that specifies how long to wait for a response from the SMTP server." } ;
|
||||
|
||||
HELP: esmtp?
|
||||
{ $description "Set true by default, determines whether the SMTP client is using the Extended SMTP protocol." } ;
|
||||
|
||||
HELP: with-smtp-connection
|
||||
{ $values { "quot" quotation } }
|
||||
{ $description "Connects to an SMTP server stored in " { $link smtp-server } " and calls the quotation." } ;
|
||||
|
@ -36,5 +42,10 @@ HELP: send-email
|
|||
} ;
|
||||
|
||||
ARTICLE: "smtp" "SMTP Client Library"
|
||||
"Configuring SMTP:"
|
||||
{ $subsection smtp-server }
|
||||
{ $subsection smtp-read-timeout }
|
||||
{ $subsection smtp-domain }
|
||||
{ $subsection esmtp? }
|
||||
"Sending an email:"
|
||||
{ $subsection send-email } ;
|
||||
|
|
|
@ -10,7 +10,7 @@ IN: smtp
|
|||
SYMBOL: smtp-domain
|
||||
SYMBOL: smtp-server "localhost" "smtp" <inet> smtp-server set-global
|
||||
SYMBOL: smtp-read-timeout 1 minutes smtp-read-timeout set-global
|
||||
SYMBOL: esmtp t esmtp set-global
|
||||
SYMBOL: esmtp? t esmtp? set-global
|
||||
|
||||
LOG: log-smtp-connection NOTICE ( addrspec -- )
|
||||
|
||||
|
@ -39,7 +39,7 @@ TUPLE: email
|
|||
: command ( string -- ) write crlf flush ;
|
||||
|
||||
: helo ( -- )
|
||||
esmtp get "EHLO " "HELO " ? host-name append command ;
|
||||
esmtp? get "EHLO " "HELO " ? host-name append command ;
|
||||
|
||||
ERROR: bad-email-address email ;
|
||||
|
||||
|
|
Loading…
Reference in New Issue