Documentation

KEY: Say something

M-x openurl help: file://Usersaaamyfilebitbucketstackprojectjupyterlab/jupyterlab.html gx LibraryWebServerDocumentsxfidoimagefoldlistimage.jpg

KEY: Last snippet command is stored in Redis database, last redis cmd

Person to Json object

define record for all the code blocks can not define [TS.Text] => sqlite3 does not support [TS.Text] data CodeBlock = CodeBlock { codeblockId :: Int64 , header :: TS.Text , codeblock :: TS.Text } deriving (Eq, Read, Show)

Create UserInput table in Sqlite

• login database
• sqite3 Usersaaamyfilebitbuckettestfileuserinput.db
• cmdId = pid
• xcmd = input command, e.g. "c ls"

KEY: get the full rootdir

     "Usersaaamyfilebitbucket/haskellwebapp2"
     "Usersaaamyfilemybin/haskellwebapp2Bin"
   

• ------------------------------------------------------------------------------- | Thu Nov 15 13:18:04 2018 | Simple web server for request and response | Handle search code snippet | -------------------------------------------------------------------------------- run.sh => ./wai ghc -i$bhaskelllib --make wai.hs -o wai

Convert [[String]] to ByteString

KEY: apl symbol

DATE: Monday, 24 July 2023 16:42 PDT

APL symbol SEE: UsersaaamyfilebitbucketpublicfileaplSymbol.txt -- FIXED: Remove / from apl code in order to fix URL format -- Unicode code point: 9017 0x2339 ⌹ -- https://unicodeplus.com/U+2339 -- putStrLn "9017"

Fake optional parameter

alternateLineColor2 []
alternateLineColor2 [("background", "green"), ("background", "cyan")]

Hide all the data in TextArea

• IN USE

   action="serverFun.hs" name="someName" method="POST"
   id="ttId" class="text" cols="86" rows ="20" name="textName"/textarea

   type="submit" value="Email" class="submitButton"
   /form

   cols="20" rows="20" id="textArea" style="display:none;font-size:18px;" class="hide"/textarea

   autofocus="true" onfocus="textAreaAdjust(this);"/textarea
   

We update the codeblock according to "header"(use ID?)

TODO1: use Ajax to update codeblock in database See aronlib.js requestPreFromRedis

   data CodeBlock = 
   CodeBlock 
   { id        :: Int64
   , header    :: TS.Text
   , codeblock :: TS.Text
   } deriving (Eq, Read, Show)
   

pid => id => from CodeBlock table from sqlite3

:DATE: 26-10-2020 :NOTE: USE IT NOW ✅ :FIXME: Click hide/show DOES NOT WORK, the click location is off :IMG: file://Usersaaamyfilebitbucketimageclickhide.png

KEY:

    In Java
    Function f = x -> x + 1
    BiFunction f = (x, y) -> x + y
    
    
    foldr(x y -> [div] ++ x ++ [cdiv] ++ brr + y) (0, []) zhtml
    
    The id can be used to for TextArea editor
    e.g.
     onclick="editfun()"/TextArea
    
    script
    function editfun(){
    
    }
    
    /script
    
    See file gf: UsersaaamyfilebitbuckethtmlshowTextAreaOnClick.html
    
    id="3" style="kk" code1 /div 
    id="4" style="kk" code2 /div 
    
    ([[String]] -> [[String]]) 
    stylish allBlock

    Mon Dec  2 12:55:08 2019 
    Fixex issue inside 'stylish allBlock', apply br to stylish allBlock instead of zhtml

    TODO1
    foldListList ::([([String], Integer)]->[([String], Integer)])->[([String], Integer)]->String

   DATE: Mon 28 Nov 18:50:38 2022 
   NOTE: USE IT NOW
   

  [([String], Integer, Integer,  Integer)]
  [(codeBody, pid,      addedtime, score)]

  [
    ( [ "line2" ]         -- [String]
    , 4                   -- pid
    , 8                   -- addedtime
    , 3                   -- score
    )
  ]

  [
       ( "23423"
       ,
           [
               (
                   [ "23423:*:what0000"   -- [String]
                   , "line 4"             
                   ]
               , 117                      -- table pid
               , 1635398867               -- addedtime
               , 33                       -- score
               )
           ,
               (
                   [ "23423:*:test"
                   , "line1000"
                   ]
               , 113
               , 1635380323
               , 0
               )
           ]
       )
   ,
       ( "updat"
       ,
           [
               (
                   [ "test:*: test10, ok, update444"
                   , " line dogcat"
                   , "fac ← {⍵ > 1 : ⍵×fac ⍵ - 1 ⋄ 1}"
                   , "nice"
                   , "update"
                   , "line444"
                   , "line555"
                   ]
               , 35
               , 1635399200
               , 8
               )
           ]
       )
   ]


  

([String

, Integer, Integer, Integer)]

(codeBody, pid, addedtime, score)

↓ ↓ ↓ ↓

Main Application entry

   type Application = Request -> (Response -> IO ResponseReceived) -> IO ResponseReceived
   

• Add *src/aronlib.js* as *Javascript* library which includes all javascript functions
• Copy to clipboard still not working so far.

Here_is_Why

:NOTE: USE IT

NOTE: USE in main.hs

Send pdf file to browser

Send png file, image file to browser

Generate HMap2 from a list of codeblock

Data HMap2 = M.HashMap String [([String], Integer, Integer, Integer)]

User input, autocomplete, search field

snippet?id=queryStr S8.unpack: ByteString to String type Application = Request -> (Response -> IO ResponseReceived) -> IO ResponseReceived anyRoute => Response

:NOTE: Use

• - http://localhost:8080/snippet?id=n%20test
• - ↑
• - + space = %20

http://localhost:8000/up/ | NOTE: file => /upload dir | Plz see uploadPage.html | Usersaaamyfilebitbuckethaskellwebapp2uploadPage.html | responseFile :: H.Status -> H.ResponseHeaders -> FilePath -> Maybe FilePart -> Response

Filter some commands out from a list.

Response JSON record to client side

Response output from shell command

1. The maximum number of lines are 200, " | head -200"

1. Exit code can not be checked, ExitSuccess

Wed May 8 23:10:41 2019 3 Error can be checked in stderr >(e, so, si) <- A.runSh $ toSText (drop 2 ncmd) > if si is NOT empty then there is stderr

type streamBody = (Builder -> IO()) -> IO() -> IO()

Html table contains png/pdf file gallery

Run ghci_stack.sh as a process, return some info

query function info from redis without Html

query_redis = "$HOME/myfile/symbin/RedisQuery "

preKey = "AronModule."  AronModule.hs
preKey = "Aron."        Aron.java

Should use queryLibJavaPackage

NOT BEEN USED

Get java $jlib/AronLib.java without HTML

Get user input: cmd = "s java regex", autocomplete commands

TODO1 add host name here name <- run "uname" ls run "uname">= x -> if len x > 0 then return head x else []

:NOTE: USE in anyRoute2

  data Response
      = ResponseFile H.Status H.ResponseHeaders FilePath (Maybe FilePart)
      | ResponseBuilder H.Status H.ResponseHeaders Builder
      | ResponseStream H.Status H.ResponseHeaders StreamingBody
      | ResponseRaw (IO B.ByteString -> (B.ByteString -> IO ()) -> IO ()) Response
    deriving Typeable

  responseStream::Status -> ResponseHeaders -> StreamingBody -> Response
  type StreamingBody = ( Builder -> IO() ) -> IO () -> IO ()
  

Get user input: cmd = "s java regex", autocomplete commands

1. remove spaces from cmd
2. insert cmd to table: userinput if userinput exists, otherwise create table: userinput
3. sorted all cmd and create Html form with all cmd

4. create Html output from cmd query.

   + store user input commands, autocomplete commands in a table: userinput + if table does not exist, create one, otherwise insert data to table: userinput + autocomplete, query commands from sqlite table

1. No Search field, only query blocks data

:NOTE: USE in anyRoute2

REFNOTE: Usersaaamyfilebitbucketpublicfilenotdelete/codeblock.hs

XXX

Query snippet from HMap2 without Html

:NOTE: USE in anyRoute2

cmd -> "n emacs"

KEY: json snippet, json codeblock

 SEE: $j/HttpRequestJson.java
      $scr/sj.sh

Generate matrix from Json javascript XMLHttpRequest

• See *haskellwebapp2/postMatrix.html*
• postMatrix.html
• Link To Matrix
• Receive request from client
• Decode body
• Pattern matching Record Maybe GeneMatrix
• Construct record MatInt if ncol and nrow are in GeneMatrix, otherwise create an empty MatInt

     MatInt{name="", matrix=[]}
   

Generate HTML Table

Get text color and background color from Redis

• The function will be called from Ajax in aronlib.js
• Click on the background/color => make a Ajax call

        ("getcolor":_)        -> getPreFromRedis request respond -- Send JSON PreColor{color::TS.Text, background::TS.Text} to client side, in aronlib.js
       

aronlib.js => Ajax => getPreFromRedis

getPreStyle::IO [(String, String)]

• send JSON to client

data PreColor = PreColor{color::TS.Text, background::TS.Text}

redis-cli
keys 'HTMLPre.color'
keys 'HTMLPre.background-color'

• Redis KEYS $sel:color:PreColor
• Redis KEYS 'background-color'

KEY: Update snippet from client side

• Need pid from client side

SEE: hiddenForm2 @ Post method action="/update" name="Update" class="hf" id="f123" method="POST"

• - In AronModule.hs data UpdateCodeBlock = UpdateCodeBlock{pid::Integer, newcode::String, begt::Integer, endt::Integer} deriving (GEN.Generic, Show) ↑ + -> Primary Key in TABLE: CodeBlock

Duplicate row id = pid, and set show=0 @

KEY: validate snippet format and padding

• Check whether the input data is valid format
• At least two lines
• First line: a:b:c

   snippet:*: code
   line 1

   a:b:c len ["a", "b", "c"] > 2


   Input:
   dog, cat pig
   line 1

   Padding:
   314:*:dog, cat pig
   line 1
  
   

KEY: insert code block, insert code to database, update prefix map

• It supports command line and Emacs

↓ ↓ ↓ ↓

KEY:

TODO: add root directory config file?

  configFile = "./config.txt"
  data EFileType = EHTML | EPDF | EJSON
  

KEY: todo end point, todo app

click on "compile" goto aronlib.js getElementsById("editor") get latex source code form JSON object => "compile" => latex source code send to Server

Server Side: ("editordata") -> receiveEditorData decode JSON object => "compile" => latex source code => write latex source code to file $b/"latex.tex" => pass path $b/latex.tex to runOnExternalProgram pdflatex compile latex.tex => latex.pdf Either (String String) <= return from runOnExternalProgram

Response to Client side in JSON => ret => True => Compile => OK ret => False => Compile => Error => On Client side aronlib.js => If ret == True

data CommandService = CommandService{cmdServ::String, paramArg::String, inputData::String} deriving (Generic, Show) instance DA.FromJSON CommandService instance DA.ToJSON CommandService where toEncoding = DA.genericToEncoding DA.defaultOptions

KEY: support services from outside browser

   case 1:
      cmdStr = "alignment"
      cmdParam = "="

      a = b
       c  =d
      e = f
        ⇓
      a = b
      c = d
      e = f

   case 2: use space as delimter
      cmdStr = "alignment"
      cmdParam = ""

      a  b
       c  d
      e  f
        ⇓
      a b
      c d
      e f

    Emacs Copy Selected Region
         |
         ↓
    Write to $btmpx.x
         |
         ↓
    Read $btmpx.x
    Http Request => [Send Json]
    $sym/RequestJson  alignment
         |
         ↓
    commandService [Receive Json]
         |
         + → alignment ($btmpx.x inside)
         |
         + → alignmentstr -p kk   (Use pipe instead of file)
         |
         + → commentCode ($btmpx.x inside)
         |
         + → uncommentcode ($btmpx.x inside)
         ↓
    runSh above cmd
         |
         ↓
    Capture STDOUT => Json => ReplyCode{...stdoutx=stdout}
         |
         ↓
    Response JSON ReplyCode{...stdoutx=stdout}

   bitbuckettmpx.x , NOT tmpx.x
   Store all the code to be processed: alignment, alignmentstr, commentCode, uncommentcode

   

type HMap2 = M.HashMap String [([String], Integer)]

redis get, redis set, background color, color

   Redis color/background DB
   HTMLPre.color:#333333
   HTMLPre.background:#AAAAAA
   

getPreStyle

    [txtColor, bgColor]
    =>
    [
        ( "color"
        , "#8c9172"
        )
    ,
        ( "background-color"
        , "#3c6358"
        )
    ]
   

Update background color from user

• See modifycolor.css submitUpdateBackground

• Receive background color from client and decode the JSON string

src/mystyle.css pre { display: block; font-family: monospace; font-size: 14pt; white-space: pre; margin-top: 1px; * margin-right: 1px; * margin-bottom: 1px; * margin-left: 4px; * background: #6b695869; <-- change color border-style: outset; border-width: thin; }

data R1 = R1{name::String} data R2 = R2{name::String}

data RR1 = RR1 Maybe R1 data RR2 = RR2 Maybe R2

   pre{color:#90996c;
      background-color:#000000;
   }
 

getPreStyle

  ------------------------------------styleList-----------------------------------
  [
      ( "color"
      , "#8c9172"
      )
  ,
      ( "background-color"
      , "#3c6358"
      )
  ]
 

Update pre text color

• Receive text color from client and decode the JSON string

• See src/aronlib.js

See updateBackground

NOT USED NOW

response javacript file function

• response aronlib.js to client

KEY: response PDF file, send pdf file to client

  pdfSent::BS.ByteString -> Response
  

response png/PNG file

  pdfSent::BS.ByteString -> Response
  

NOTE: file => /upload dir | Plz see uploadPage.html

Insert name and age to MySqlite-simple file-based database.

http://localhost:8000/insert/

File: insert.html action="/insert" method="POST" enctype="multipart/form-data" Name type="text" name="name"br Age type="text" name="age"br type="submit" value="submit" /form

insert data to table: people
"INSERT INTO people (name, age) VALUES (?,?)" 

   -- defind in AronModule.hs
   data CodeBlock = 
   CodeBlock 
   { codeblockId  :: Int64
   , header       :: TS.Text
   , codeblock    :: TS.Text
   } deriving (Eq, Read, Show)


   Input:
   a:*.hs:c,d
   line 1
   line 2

   mycode <- query_ conn "SELECT id, header, codeblock from CodeBlock" :: IO [CodeBlock]

   id        = 106
   header    = a:*:c
   codeblock = a:*.hs:c,d n line 1 n line 2

   tupleList = [(["a", "c,d"], ["a:*.hs:c", "line 1", "line 2"],    106)
   pplist    = [(["a", "c", "d"], ["a:*.hs:c", "line 1", "line 2"], 106)

   DATE: Thursday, 29 June 2023 00:11 PDT
   Update CodeBlock table with new column: show INTEGER DEFAULT 1
   SET show = 0 to hide the row
   

Create CodeBlock table

NOT USED

NOT USED

NOT USED

Update database table

  data CodeBlock =
      CodeBlock
      { codeBlockId :: Int64
      , header      :: TS.Text
      , codeblock   :: TS.Text
      , addedtime   :: Int64
      , score       :: Int64
      } deriving (Eq, Read, Show)
  

Two Commands only

"upscore" => score += 1 "downscore" => score -= 1

KEY: insert code to database -- data CodeBlock = -- CodeBlock -- { codeblockId :: Int64 -- , header :: TS.Text -- , codeblock :: TS.Text -- } deriving (Eq, Read, Show)

KEY: duplicated row and set show=0

Fake deletion, SET show = 0 in database table 
NOTE: ucode is NOT USED

validate user input and santize me

• ------------------------------------------------------------------------------- | Wed Dec 5 15:06:00 2018 Sat Jun 8 23:42:18 2019 | upload with following POST to upload file to server | -------------------------------------------------------------------------------- action="/upload" method="POST" enctype="multipart/form-data" Upload File: type="file" name="file"br type="submit" value="submit" /form | -------------------------------------------------------------------------------- http://localhost:8000/up/ | File is uploaded to => haskell_web/uploaddir

user input autocomplete

• search field, search input, search form

change background color Javascript

• search form has moved to htmlBody.htmlbs

submitUpdateBackground => aronlib.js

NOTE: NOT USE IT NOW ❌ gf: js/aronlib.js