File manager - Edit - /home/aresglob/public_html/wp/wp-includes/images/smilies/index.html.tar
Back
wp/wp-content/plugins/file-manager-advanced/application/library/codemirror/mode/swift/index.html 0000644 00000004045 15077370524 0034222 0 ustar 00 home/aresglob/public_html <!doctype html> <title>CodeMirror: Swift mode</title> <meta charset="utf-8"/> <link rel=stylesheet href="../../doc/docs.css"> <link rel="stylesheet" href="../../lib/codemirror.css"> <script src="../../lib/codemirror.js"></script> <script src="../../addon/edit/matchbrackets.js"></script> <script src="./swift.js"></script> <style> .CodeMirror { border: 2px inset #dee; } </style> <div id=nav> <a href="http://codemirror.net"><h1>CodeMirror</h1><img id=logo src="../../doc/logo.png"></a> <ul> <li><a href="../../index.html">Home</a> <li><a href="../../doc/manual.html">Manual</a> <li><a href="https://github.com/codemirror/codemirror">Code</a> </ul> <ul> <li><a href="../index.html">Language modes</a> <li><a class=active href="#">Swift</a> </ul> </div> <article> <h2>Swift mode</h2> <form><textarea id="code" name="code"> // // TipCalculatorModel.swift // TipCalculator // // Created by Main Account on 12/18/14. // Copyright (c) 2014 Razeware LLC. All rights reserved. // import Foundation class TipCalculatorModel { var total: Double var taxPct: Double var subtotal: Double { get { return total / (taxPct + 1) } } init(total: Double, taxPct: Double) { self.total = total self.taxPct = taxPct } func calcTipWithTipPct(tipPct: Double) -> Double { return subtotal * tipPct } func returnPossibleTips() -> [Int: Double] { let possibleTipsInferred = [0.15, 0.18, 0.20] let possibleTipsExplicit:[Double] = [0.15, 0.18, 0.20] var retval = [Int: Double]() for possibleTip in possibleTipsInferred { let intPct = Int(possibleTip*100) retval[intPct] = calcTipWithTipPct(possibleTip) } return retval } } </textarea></form> <script> var editor = CodeMirror.fromTextArea(document.getElementById("code"), { lineNumbers: true, matchBrackets: true, mode: "text/x-swift" }); </script> <p>A simple mode for Swift</p> <p><strong>MIME types defined:</strong> <code>text/x-swift</code> (Swift code)</p> </article> wp/wp-content/plugins/file-manager-advanced/application/library/codemirror/mode/julia/index.html 0000644 00000004507 15077370531 0034173 0 ustar 00 home/aresglob/public_html <!doctype html> <title>CodeMirror: Julia mode</title> <meta charset="utf-8"/> <link rel=stylesheet href="../../doc/docs.css"> <link rel="stylesheet" href="../../lib/codemirror.css"> <script src="../../lib/codemirror.js"></script> <script src="julia.js"></script> <style type="text/css">.CodeMirror {border-top: 1px solid black; border-bottom: 1px solid black;}</style> <div id=nav> <a href="http://codemirror.net"><h1>CodeMirror</h1><img id=logo src="../../doc/logo.png"></a> <ul> <li><a href="../../index.html">Home</a> <li><a href="../../doc/manual.html">Manual</a> <li><a href="https://github.com/codemirror/codemirror">Code</a> </ul> <ul> <li><a href="../index.html">Language modes</a> <li><a class=active href="#">Julia</a> </ul> </div> <article> <h2>Julia mode</h2> <div><textarea id="code" name="code"> #numbers 1234 1234im .234 .234im 2.23im 2.3f3 23e2 0x234 #strings 'a' "asdf" r"regex" b"bytestring" """ multiline string """ #identifiers a as123 function_name! #unicode identifiers # a = x\ddot a⃗ = ẍ # a = v\dot a⃗ = v̇ #F\vec = m \cdotp a\vec F⃗ = m·a⃗ #literal identifier multiples 3x 4[1, 2, 3] #dicts and indexing x=[1, 2, 3] x[end-1] x={"julia"=>"language of technical computing"} #exception handling try f() catch @printf "Error" finally g() end #types immutable Color{T<:Number} r::T g::T b::T end #functions function change!(x::Vector{Float64}) for i = 1:length(x) x[i] *= 2 end end #function invocation f('b', (2, 3)...) #operators |= &= ^= \- %= *= += -= <= >= != == % * + - < > ! = | & ^ \ ? ~ : $ <: .< .> << <<= >> >>>> >>= >>>= <<= <<<= .<= .>= .== -> // in ... // := .//= .*= ./= .^= .%= .+= .-= \= \\= || === && |= .|= <: >: |> <| :: x ? y : z #macros @spawnat 2 1+1 @eval(:x) #keywords and operators if else elseif while for begin let end do try catch finally return break continue global local const export import importall using function macro module baremodule type immutable quote true false enumerate </textarea></div> <script> var editor = CodeMirror.fromTextArea(document.getElementById("code"), { mode: {name: "julia", }, lineNumbers: true, indentUnit: 4, matchBrackets: true }); </script> <p><strong>MIME types defined:</strong> <code>text/x-julia</code>.</p> </article> home/aresglob/public_html/wp/wp-content/plugins/wp-file-manager/lib/codemirror/mode/nsis/index.html 0000644 00000003344 15077414351 0027577 0 ustar 00 <!doctype html> <title>CodeMirror: NSIS mode</title> <meta charset="utf-8"/> <link rel=stylesheet href="../../doc/docs.css"> <link rel=stylesheet href=../../lib/codemirror.css> <script src=../../lib/codemirror.js></script> <script src="../../addon/mode/simple.js"></script> <script src="../../addon/edit/matchbrackets.js"></script> <script src=nsis.js></script> <style type=text/css> .CodeMirror {border-top: 1px solid black; border-bottom: 1px solid black;} </style> <div id=nav> <a href="http://codemirror.net"><h1>CodeMirror</h1><img id=logo src="../../doc/logo.png"></a> <ul> <li><a href="../../index.html">Home</a> <li><a href="../../doc/manual.html">Manual</a> <li><a href="https://github.com/codemirror/codemirror">Code</a> </ul> <ul> <li><a href="../index.html">Language modes</a> <li><a class=active href="#">NSIS</a> </ul> </div> <article> <h2>NSIS mode</h2> <textarea id=code> ; This is a comment !ifdef ERROR !error "Something went wrong" !endif OutFile "demo.exe" RequestExecutionLevel user SetDetailsPrint listonly !include "LogicLib.nsh" !include "WinVer.nsh" Section -mandatory Call logWinVer ${If} 1 > 0 MessageBox MB_OK "Hello world" ${EndIf} SectionEnd Function logWinVer ${If} ${IsWin10} DetailPrint "Windows 10!" ${ElseIf} ${AtLeastWinVista} DetailPrint "We're post-XP" ${Else} DetailPrint "Legacy system" ${EndIf} FunctionEnd </textarea> <script> var editor = CodeMirror.fromTextArea(document.getElementById('code'), { mode: 'nsis', indentWithTabs: true, smartIndent: true, lineNumbers: true, matchBrackets: true }); </script> <p><strong>MIME types defined:</strong> <code>text/x-nsis</code>.</p> </article> home/aresglob/public_html/wp/wp-content/plugins/wp-file-manager/lib/codemirror/mode/tcl/index.html 0000644 00000014231 15077414360 0027402 0 ustar 00 <!doctype html> <title>CodeMirror: Tcl mode</title> <meta charset="utf-8"/> <link rel=stylesheet href="../../doc/docs.css"> <link rel="stylesheet" href="../../lib/codemirror.css"> <link rel="stylesheet" href="../../theme/night.css"> <script src="../../lib/codemirror.js"></script> <script src="tcl.js"></script> <script src="../../addon/scroll/scrollpastend.js"></script> <div id=nav> <a href="http://codemirror.net"><h1>CodeMirror</h1><img id=logo src="../../doc/logo.png"></a> <ul> <li><a href="../../index.html">Home</a> <li><a href="../../doc/manual.html">Manual</a> <li><a href="https://github.com/codemirror/codemirror">Code</a> </ul> <ul> <li><a href="../index.html">Language modes</a> <li><a class=active href="#">Tcl</a> </ul> </div> <article> <h2>Tcl mode</h2> <form><textarea id="code" name="code"> ############################################################################################## ## ## whois.tcl for eggdrop by Ford_Lawnmower irc.geekshed.net #Script-Help ## ## ############################################################################################## ## To use this script you must set channel flag +whois (ie .chanset #chan +whois) ## ############################################################################################## ## ____ __ ########################################### ## ## / __/___ _ ___ _ ___/ /____ ___ ___ ########################################### ## ## / _/ / _ `// _ `// _ // __// _ \ / _ \ ########################################### ## ## /___/ \_, / \_, / \_,_//_/ \___// .__/ ########################################### ## ## /___/ /___/ /_/ ########################################### ## ## ########################################### ## ############################################################################################## ## ## Start Setup. ## ## ############################################################################################## namespace eval whois { ## change cmdchar to the trigger you want to use ## ## variable cmdchar "!" ## change command to the word trigger you would like to use. ## ## ## Keep in mind, This will also change the .chanset +/-command ## ## variable command "whois" ## change textf to the colors you want for the text. ## ## variable textf "\017\00304" ## change tagf to the colors you want for tags: ## ## variable tagf "\017\002" ## Change logo to the logo you want at the start of the line. ## ## variable logo "\017\00304\002\[\00306W\003hois\00304\]\017" ## Change lineout to the results you want. Valid results are channel users modes topic ## ## variable lineout "channel users modes topic" ############################################################################################## ## ## End Setup. ## ## ############################################################################################## variable channel "" setudef flag $whois::command bind pub -|- [string trimleft $whois::cmdchar]${whois::command} whois::list bind raw -|- "311" whois::311 bind raw -|- "312" whois::312 bind raw -|- "319" whois::319 bind raw -|- "317" whois::317 bind raw -|- "313" whois::multi bind raw -|- "310" whois::multi bind raw -|- "335" whois::multi bind raw -|- "301" whois::301 bind raw -|- "671" whois::multi bind raw -|- "320" whois::multi bind raw -|- "401" whois::multi bind raw -|- "318" whois::318 bind raw -|- "307" whois::307 } proc whois::311 {from key text} { if {[regexp -- {^[^\s]+\s(.+?)\s(.+?)\s(.+?)\s\*\s\:(.+)$} $text wholematch nick ident host realname]} { putserv "PRIVMSG $whois::channel :${whois::logo} ${whois::tagf}Host:${whois::textf} \ $nick \(${ident}@${host}\) ${whois::tagf}Realname:${whois::textf} $realname" } } proc whois::multi {from key text} { if {[regexp {\:(.*)$} $text match $key]} { putserv "PRIVMSG $whois::channel :${whois::logo} ${whois::tagf}Note:${whois::textf} [subst $$key]" return 1 } } proc whois::312 {from key text} { regexp {([^\s]+)\s\:} $text match server putserv "PRIVMSG $whois::channel :${whois::logo} ${whois::tagf}Server:${whois::textf} $server" } proc whois::319 {from key text} { if {[regexp {.+\:(.+)$} $text match channels]} { putserv "PRIVMSG $whois::channel :${whois::logo} ${whois::tagf}Channels:${whois::textf} $channels" } } proc whois::317 {from key text} { if {[regexp -- {.*\s(\d+)\s(\d+)\s\:} $text wholematch idle signon]} { putserv "PRIVMSG $whois::channel :${whois::logo} ${whois::tagf}Connected:${whois::textf} \ [ctime $signon] ${whois::tagf}Idle:${whois::textf} [duration $idle]" } } proc whois::301 {from key text} { if {[regexp {^.+\s[^\s]+\s\:(.*)$} $text match awaymsg]} { putserv "PRIVMSG $whois::channel :${whois::logo} ${whois::tagf}Away:${whois::textf} $awaymsg" } } proc whois::318 {from key text} { namespace eval whois { variable channel "" } variable whois::channel "" } proc whois::307 {from key text} { putserv "PRIVMSG $whois::channel :${whois::logo} ${whois::tagf}Services:${whois::textf} Registered Nick" } proc whois::list {nick host hand chan text} { if {[lsearch -exact [channel info $chan] "+${whois::command}"] != -1} { namespace eval whois { variable channel "" } variable whois::channel $chan putserv "WHOIS $text" } } putlog "\002*Loaded* \017\00304\002\[\00306W\003hois\00304\]\017 \002by \ Ford_Lawnmower irc.GeekShed.net #Script-Help" </textarea></form> <script> var editor = CodeMirror.fromTextArea(document.getElementById("code"), { theme: "night", lineNumbers: true, indentUnit: 2, scrollPastEnd: true, mode: "text/x-tcl" }); </script> <p><strong>MIME types defined:</strong> <code>text/x-tcl</code>.</p> </article> home/aresglob/public_html/wp/wp-content/plugins/wp-file-manager/lib/codemirror/mode/julia/index.html0000644 00000004507 15077416135 0027733 0 ustar 00 <!doctype html> <title>CodeMirror: Julia mode</title> <meta charset="utf-8"/> <link rel=stylesheet href="../../doc/docs.css"> <link rel="stylesheet" href="../../lib/codemirror.css"> <script src="../../lib/codemirror.js"></script> <script src="julia.js"></script> <style type="text/css">.CodeMirror {border-top: 1px solid black; border-bottom: 1px solid black;}</style> <div id=nav> <a href="http://codemirror.net"><h1>CodeMirror</h1><img id=logo src="../../doc/logo.png"></a> <ul> <li><a href="../../index.html">Home</a> <li><a href="../../doc/manual.html">Manual</a> <li><a href="https://github.com/codemirror/codemirror">Code</a> </ul> <ul> <li><a href="../index.html">Language modes</a> <li><a class=active href="#">Julia</a> </ul> </div> <article> <h2>Julia mode</h2> <div><textarea id="code" name="code"> #numbers 1234 1234im .234 .234im 2.23im 2.3f3 23e2 0x234 #strings 'a' "asdf" r"regex" b"bytestring" """ multiline string """ #identifiers a as123 function_name! #unicode identifiers # a = x\ddot a⃗ = ẍ # a = v\dot a⃗ = v̇ #F\vec = m \cdotp a\vec F⃗ = m·a⃗ #literal identifier multiples 3x 4[1, 2, 3] #dicts and indexing x=[1, 2, 3] x[end-1] x={"julia"=>"language of technical computing"} #exception handling try f() catch @printf "Error" finally g() end #types immutable Color{T<:Number} r::T g::T b::T end #functions function change!(x::Vector{Float64}) for i = 1:length(x) x[i] *= 2 end end #function invocation f('b', (2, 3)...) #operators |= &= ^= \- %= *= += -= <= >= != == % * + - < > ! = | & ^ \ ? ~ : $ <: .< .> << <<= >> >>>> >>= >>>= <<= <<<= .<= .>= .== -> // in ... // := .//= .*= ./= .^= .%= .+= .-= \= \\= || === && |= .|= <: >: |> <| :: x ? y : z #macros @spawnat 2 1+1 @eval(:x) #keywords and operators if else elseif while for begin let end do try catch finally return break continue global local const export import importall using function macro module baremodule type immutable quote true false enumerate </textarea></div> <script> var editor = CodeMirror.fromTextArea(document.getElementById("code"), { mode: {name: "julia", }, lineNumbers: true, indentUnit: 4, matchBrackets: true }); </script> <p><strong>MIME types defined:</strong> <code>text/x-julia</code>.</p> </article> aresglob/public_html/wp/wp-content/plugins/wp-file-manager/lib/codemirror/mode/asterisk/index.html 0000644 00000010757 15077523402 0030375 0 ustar 00 home <!doctype html> <title>CodeMirror: Asterisk dialplan mode</title> <meta charset="utf-8"/> <link rel=stylesheet href="../../doc/docs.css"> <link rel="stylesheet" href="../../lib/codemirror.css"> <script src="../../lib/codemirror.js"></script> <script src="asterisk.js"></script> <style> .CodeMirror {border: 1px solid #999;} .cm-s-default span.cm-arrow { color: red; } </style> <div id=nav> <a href="http://codemirror.net"><h1>CodeMirror</h1><img id=logo src="../../doc/logo.png"></a> <ul> <li><a href="../../index.html">Home</a> <li><a href="../../doc/manual.html">Manual</a> <li><a href="https://github.com/codemirror/codemirror">Code</a> </ul> <ul> <li><a href="../index.html">Language modes</a> <li><a class=active href="#">Asterisk dialplan</a> </ul> </div> <article> <h2>Asterisk dialplan mode</h2> <form><textarea id="code" name="code"> ; extensions.conf - the Asterisk dial plan ; [general] ; ; If static is set to no, or omitted, then the pbx_config will rewrite ; this file when extensions are modified. Remember that all comments ; made in the file will be lost when that happens. static=yes #include "/etc/asterisk/additional_general.conf [iaxprovider] switch => IAX2/user:[key]@myserver/mycontext [dynamic] #exec /usr/bin/dynamic-peers.pl [trunkint] ; ; International long distance through trunk ; exten => _9011.,1,Macro(dundi-e164,${EXTEN:4}) exten => _9011.,n,Dial(${GLOBAL(TRUNK)}/${FILTER(0-9,${EXTEN:${GLOBAL(TRUNKMSD)}})}) [local] ; ; Master context for local, toll-free, and iaxtel calls only ; ignorepat => 9 include => default [demo] include => stdexten ; ; We start with what to do when a call first comes in. ; exten => s,1,Wait(1) ; Wait a second, just for fun same => n,Answer ; Answer the line same => n,Set(TIMEOUT(digit)=5) ; Set Digit Timeout to 5 seconds same => n,Set(TIMEOUT(response)=10) ; Set Response Timeout to 10 seconds same => n(restart),BackGround(demo-congrats) ; Play a congratulatory message same => n(instruct),BackGround(demo-instruct) ; Play some instructions same => n,WaitExten ; Wait for an extension to be dialed. exten => 2,1,BackGround(demo-moreinfo) ; Give some more information. exten => 2,n,Goto(s,instruct) exten => 3,1,Set(LANGUAGE()=fr) ; Set language to french exten => 3,n,Goto(s,restart) ; Start with the congratulations exten => 1000,1,Goto(default,s,1) ; ; We also create an example user, 1234, who is on the console and has ; voicemail, etc. ; exten => 1234,1,Playback(transfer,skip) ; "Please hold while..." ; (but skip if channel is not up) exten => 1234,n,Gosub(${EXTEN},stdexten(${GLOBAL(CONSOLE)})) exten => 1234,n,Goto(default,s,1) ; exited Voicemail exten => 1235,1,Voicemail(1234,u) ; Right to voicemail exten => 1236,1,Dial(Console/dsp) ; Ring forever exten => 1236,n,Voicemail(1234,b) ; Unless busy ; ; # for when they're done with the demo ; exten => #,1,Playback(demo-thanks) ; "Thanks for trying the demo" exten => #,n,Hangup ; Hang them up. ; ; A timeout and "invalid extension rule" ; exten => t,1,Goto(#,1) ; If they take too long, give up exten => i,1,Playback(invalid) ; "That's not valid, try again" ; ; Create an extension, 500, for dialing the ; Asterisk demo. ; exten => 500,1,Playback(demo-abouttotry); Let them know what's going on exten => 500,n,Dial(IAX2/guest@pbx.digium.com/s@default) ; Call the Asterisk demo exten => 500,n,Playback(demo-nogo) ; Couldn't connect to the demo site exten => 500,n,Goto(s,6) ; Return to the start over message. ; ; Create an extension, 600, for evaluating echo latency. ; exten => 600,1,Playback(demo-echotest) ; Let them know what's going on exten => 600,n,Echo ; Do the echo test exten => 600,n,Playback(demo-echodone) ; Let them know it's over exten => 600,n,Goto(s,6) ; Start over ; ; You can use the Macro Page to intercom a individual user exten => 76245,1,Macro(page,SIP/Grandstream1) ; or if your peernames are the same as extensions exten => _7XXX,1,Macro(page,SIP/${EXTEN}) ; ; ; System Wide Page at extension 7999 ; exten => 7999,1,Set(TIMEOUT(absolute)=60) exten => 7999,2,Page(Local/Grandstream1@page&Local/Xlite1@page&Local/1234@page/n,d) ; Give voicemail at extension 8500 ; exten => 8500,1,VoicemailMain exten => 8500,n,Goto(s,6) </textarea></form> <script> var editor = CodeMirror.fromTextArea(document.getElementById("code"), { mode: "text/x-asterisk", matchBrackets: true, lineNumber: true }); </script> <p><strong>MIME types defined:</strong> <code>text/x-asterisk</code>.</p> </article> public_html/wp/wp-content/plugins/wp-file-manager/lib/codemirror/mode/haskell-literate/index.html 0000644 00000022245 15077525655 0032011 0 ustar 00 home/aresglob <!doctype html> <title>CodeMirror: Haskell-literate mode</title> <meta charset="utf-8"/> <link rel=stylesheet href="../../doc/docs.css"> <link rel="stylesheet" href="../../lib/codemirror.css"> <script src="../../lib/codemirror.js"></script> <script src="haskell-literate.js"></script> <script src="../haskell/haskell.js"></script> <style>.CodeMirror { border-top : 1px solid #DDDDDD; border-bottom : 1px solid #DDDDDD; }</style> <div id=nav> <a href="http://codemirror.net"><h1>CodeMirror</h1><img id=logo src="../../doc/logo.png"></a> <ul> <li><a href="../../index.html">Home</a> <li><a href="../../doc/manual.html">Manual</a> <li><a href="https://github.com/codemirror/codemirror">Code</a> </ul> <ul> <li><a href="../index.html">Language modes</a> <li><a class=active href="#">Haskell-literate</a> </ul> </div> <article> <h2>Haskell literate mode</h2> <form> <textarea id="code" name="code"> > {-# LANGUAGE OverloadedStrings #-} > {-# OPTIONS_GHC -fno-warn-unused-do-bind #-} > import Control.Applicative ((<$>), (<*>)) > import Data.Maybe (isJust) > import Data.Text (Text) > import Text.Blaze ((!)) > import qualified Data.Text as T > import qualified Happstack.Server as Happstack > import qualified Text.Blaze.Html5 as H > import qualified Text.Blaze.Html5.Attributes as A > import Text.Digestive > import Text.Digestive.Blaze.Html5 > import Text.Digestive.Happstack > import Text.Digestive.Util Simple forms and validation --------------------------- Let's start by creating a very simple datatype to represent a user: > data User = User > { userName :: Text > , userMail :: Text > } deriving (Show) And dive in immediately to create a `Form` for a user. The `Form v m a` type has three parameters: - `v`: the type for messages and errors (usually a `String`-like type, `Text` in this case); - `m`: the monad we are operating in, not specified here; - `a`: the return type of the `Form`, in this case, this is obviously `User`. > userForm :: Monad m => Form Text m User We create forms by using the `Applicative` interface. A few form types are provided in the `Text.Digestive.Form` module, such as `text`, `string`, `bool`... In the `digestive-functors` library, the developer is required to label each field using the `.:` operator. This might look like a bit of a burden, but it allows you to do some really useful stuff, like separating the `Form` from the actual HTML layout. > userForm = User > <$> "name" .: text Nothing > <*> "mail" .: check "Not a valid email address" checkEmail (text Nothing) The `check` function enables you to validate the result of a form. For example, we can validate the email address with a really naive `checkEmail` function. > checkEmail :: Text -> Bool > checkEmail = isJust . T.find (== '@') More validation --------------- For our example, we also want descriptions of Haskell libraries, and in order to do that, we need package versions... > type Version = [Int] We want to let the user input a version number such as `0.1.0.0`. This means we need to validate if the input `Text` is of this form, and then we need to parse it to a `Version` type. Fortunately, we can do this in a single function: `validate` allows conversion between values, which can optionally fail. `readMaybe :: Read a => String -> Maybe a` is a utility function imported from `Text.Digestive.Util`. > validateVersion :: Text -> Result Text Version > validateVersion = maybe (Error "Cannot parse version") Success . > mapM (readMaybe . T.unpack) . T.split (== '.') A quick test in GHCi: ghci> validateVersion (T.pack "0.3.2.1") Success [0,3,2,1] ghci> validateVersion (T.pack "0.oops") Error "Cannot parse version" It works! This means we can now easily add a `Package` type and a `Form` for it: > data Category = Web | Text | Math > deriving (Bounded, Enum, Eq, Show) > data Package = Package Text Version Category > deriving (Show) > packageForm :: Monad m => Form Text m Package > packageForm = Package > <$> "name" .: text Nothing > <*> "version" .: validate validateVersion (text (Just "0.0.0.1")) > <*> "category" .: choice categories Nothing > where > categories = [(x, T.pack (show x)) | x <- [minBound .. maxBound]] Composing forms --------------- A release has an author and a package. Let's use this to illustrate the composability of the digestive-functors library: we can reuse the forms we have written earlier on. > data Release = Release User Package > deriving (Show) > releaseForm :: Monad m => Form Text m Release > releaseForm = Release > <$> "author" .: userForm > <*> "package" .: packageForm Views ----- As mentioned before, one of the advantages of using digestive-functors is separation of forms and their actual HTML layout. In order to do this, we have another type, `View`. We can get a `View` from a `Form` by supplying input. A `View` contains more information than a `Form`, it has: - the original form; - the input given by the user; - any errors that have occurred. It is this view that we convert to HTML. For this tutorial, we use the [blaze-html] library, and some helpers from the `digestive-functors-blaze` library. [blaze-html]: http://jaspervdj.be/blaze/ Let's write a view for the `User` form. As you can see, we here refer to the different fields in the `userForm`. The `errorList` will generate a list of errors for the `"mail"` field. > userView :: View H.Html -> H.Html > userView view = do > label "name" view "Name: " > inputText "name" view > H.br > > errorList "mail" view > label "mail" view "Email address: " > inputText "mail" view > H.br Like forms, views are also composable: let's illustrate that by adding a view for the `releaseForm`, in which we reuse `userView`. In order to do this, we take only the parts relevant to the author from the view by using `subView`. We can then pass the resulting view to our own `userView`. We have no special view code for `Package`, so we can just add that to `releaseView` as well. `childErrorList` will generate a list of errors for each child of the specified form. In this case, this means a list of errors from `"package.name"` and `"package.version"`. Note how we use `foo.bar` to refer to nested forms. > releaseView :: View H.Html -> H.Html > releaseView view = do > H.h2 "Author" > userView $ subView "author" view > > H.h2 "Package" > childErrorList "package" view > > label "package.name" view "Name: " > inputText "package.name" view > H.br > > label "package.version" view "Version: " > inputText "package.version" view > H.br > > label "package.category" view "Category: " > inputSelect "package.category" view > H.br The attentive reader might have wondered what the type parameter for `View` is: it is the `String`-like type used for e.g. error messages. But wait! We have releaseForm :: Monad m => Form Text m Release releaseView :: View H.Html -> H.Html ... doesn't this mean that we need a `View Text` rather than a `View Html`? The answer is yes -- but having `View Html` allows us to write these views more easily with the `digestive-functors-blaze` library. Fortunately, we will be able to fix this using the `Functor` instance of `View`. fmap :: Monad m => (v -> w) -> View v -> View w A backend --------- To finish this tutorial, we need to be able to actually run this code. We need an HTTP server for that, and we use [Happstack] for this tutorial. The `digestive-functors-happstack` library gives about everything we need for this. [Happstack]: http://happstack.com/ > site :: Happstack.ServerPart Happstack.Response > site = do > Happstack.decodeBody $ Happstack.defaultBodyPolicy "/tmp" 4096 4096 4096 > r <- runForm "test" releaseForm > case r of > (view, Nothing) -> do > let view' = fmap H.toHtml view > Happstack.ok $ Happstack.toResponse $ > template $ > form view' "/" $ do > releaseView view' > H.br > inputSubmit "Submit" > (_, Just release) -> Happstack.ok $ Happstack.toResponse $ > template $ do > css > H.h1 "Release received" > H.p $ H.toHtml $ show release > > main :: IO () > main = Happstack.simpleHTTP Happstack.nullConf site Utilities --------- > template :: H.Html -> H.Html > template body = H.docTypeHtml $ do > H.head $ do > H.title "digestive-functors tutorial" > css > H.body body > css :: H.Html > css = H.style ! A.type_ "text/css" $ do > "label {width: 130px; float: left; clear: both}" > "ul.digestive-functors-error-list {" > " color: red;" > " list-style-type: none;" > " padding-left: 0px;" > "}" </textarea> </form> <p><strong>MIME types defined:</strong> <code>text/x-literate-haskell</code>.</p> <p>Parser configuration parameters recognized: <code>base</code> to set the base mode (defaults to <code>"haskell"</code>).</p> <script> var editor = CodeMirror.fromTextArea(document.getElementById("code"), {mode: "haskell-literate"}); </script> </article> home/aresglob/public_html/wp/wp-content/themes/twentytwentythree/templates/index.html 0000644 00000002526 15077601453 0025452 0 ustar 00 <!-- wp:template-part {"slug":"header","tagName":"header"} /--> <!-- wp:group {"tagName":"main","layout":{"type":"constrained"}} --> <main class="wp-block-group"> <!-- wp:query {"query":{"pages":0,"offset":0,"postType":"post","order":"desc","orderBy":"date","author":"","search":"","exclude":[],"sticky":"","inherit":true,"taxQuery":null,"parents":[]},"displayLayout":{"type":"flex","columns":3},"align":"wide","layout":{"type":"default"}} --> <div class="wp-block-query alignwide"> <!-- wp:post-template {"align":"wide"} --> <!-- wp:post-featured-image {"isLink":true,"width":"100%","height":"clamp(15vw, 30vh, 400px)","align":"wide"} /--> <!-- wp:post-title {"isLink":true,"align":"wide"} /--> <!-- wp:post-excerpt /--> <!-- wp:post-date {"isLink":true} /--> <!-- wp:spacer {"height":"var(--wp--preset--spacing--70)"} --> <div style="height:var(--wp--preset--spacing--70)" aria-hidden="true" class="wp-block-spacer"></div> <!-- /wp:spacer --> <!-- /wp:post-template --> <!-- wp:query-pagination {"paginationArrow":"arrow","align":"wide","layout":{"type":"flex","justifyContent":"space-between"}} --> <!-- wp:query-pagination-previous /--> <!-- wp:query-pagination-next /--> <!-- /wp:query-pagination --> </div> <!-- /wp:query --> </main> <!-- /wp:group --> <!-- wp:template-part {"slug":"footer","tagName":"footer"} /--> home/aresglob/public_html/wp/wp-content/plugins/speedycache-pro/assets/js/index.html 0000644 00000000133 15077742266 0025004 0 ustar 00 <h1>Powered By SpeedyCache</h1> Go to <a href="https://speedycache.com">SpeedyCache.Com</a> home/aresglob/public_html/wp/wp-content/speedycache-config/index.html 0000644 00000000000 15100111446 0022014 0 ustar 00 home/aresglob/public_html/wp/wp-content/uploads/ai-builder/index.html 0000644 00000000000 15100124373 0021763 0 ustar 00 home/aresglob/public_html/wp/wp-content/backuply/backups_info-e6cgzL/index.html 0000644 00000000152 15100424726 0023721 0 ustar 00 <html><body><a href="https://backuply.com" target="_blank">WordPress backups by Backuply</a></body></html> home/aresglob/public_html/wp/wp-content/themes/twentytwentyfive/templates/index.html 0000644 00000000727 15103715703 0025267 0 ustar 00 <!-- wp:template-part {"slug":"header"} /--> <!-- wp:group {"tagName":"main","style":{"spacing":{"margin":{"top":"var:preset|spacing|60"}}},"layout":{"type":"constrained"}} --> <main class="wp-block-group" style="margin-top:var(--wp--preset--spacing--60)"> <!-- wp:pattern {"slug":"twentytwentyfive/hidden-blog-heading"} /--> <!-- wp:pattern {"slug":"twentytwentyfive/template-query-loop"} /--> </main> <!-- /wp:group --> <!-- wp:template-part {"slug":"footer"} /--> home/aresglob/public_html/wp/wp-content/backuply/backups-e6cgzL/index.html 0000644 00000000152 15104242715 0022706 0 ustar 00 <html><body><a href="https://backuply.com" target="_blank">WordPress backups by Backuply</a></body></html> home/aresglob/public_html/wp/wp-content/uploads/astra-sites/index.html 0000644 00000000000 15104773123 0022214 0 ustar 00 home/aresglob/public_html/wp/wp-content/ai1wm-backups/index.html 0000644 00000000032 15105301123 0020743 0 ustar 00 Kangaroos cannot jump here home/aresglob/public_html/wp/wp-content/backuply/backups-e6cgzL/tmp/index.html 0000644 00000000152 15105320330 0023475 0 ustar 00 <html><body><a href="https://backuply.com" target="_blank">WordPress backups by Backuply</a></body></html> home/aresglob/public_html/wp/wp-content/cache/speedycache/aresglobal.com.pk/test/index.html 0000644 00000256425 15105364567 0026147 0 ustar 00 <!DOCTYPE html> <html lang="en-US"> <head> <meta charset="UTF-8" /> <meta name="viewport" content="width=device-width, initial-scale=1"> <link rel="profile" href="https://gmpg.org/xfn/11"> <title>Ares Global</title> <meta name='robots' content='index, follow, max-snippet:-1, max-image-preview:large, max-video-preview:-1' /> <style>img:is([sizes="auto" i], [sizes^="auto," i]) { contain-intrinsic-size: 3000px 1500px }</style> <meta name="google" content="nositelinkssearchbox" ><link rel="canonica
| ver. 1.4 |
Github
|
.
| PHP 8.1.33 | Generation time: 0 |
proxy
|
phpinfo
|
Settings