José Romero avatar José Romero committed 8c1bd81

Added more tags

Comments (0)

Files changed (1)

 
 (setq "css" (car (fish '((X) (= X "css")) html)))
 
+(de <html> Prg
+   (prinl "<!DOCTYPE html>")
+   (prinl "<html>")
+   (run Prg 2)
+   (prinl "</html>") )
+(de <title> Prg (tag 'title NIL 2 Prg))
+(de <head> Prg (tag 'head NIL 2 Prg))
+(de <body> (Attr . Prg) (tag 'body Attr 2 Prg))
+(setq <css> "css")
+(de <javascript> (JS . @)
+   (when JS
+      (prinl "<script type=\"text/javascript\" src=\"" (srcUrl JS) "\"></script>") )
+   (when (rest)
+      (prinl "<script type=\"text/javascript\">" @ "</script>") ) )
+
+
 # Html response
 (de res-html (Ttl Css Attr . Prg)
    (res "text/html; charset=utf-8"
Tip: Filter by directory path e.g. /media app.js to search for public/media/app.js.
Tip: Use camelCasing e.g. ProjME to search for ProjectModifiedEvent.java.
Tip: Filter by extension type e.g. /repo .js to search for all .js files in the /repo directory.
Tip: Separate your search with spaces e.g. /ssh pom.xml to search for src/ssh/pom.xml.
Tip: Use ↑ and ↓ arrow keys to navigate and return to view the file.
Tip: You can also navigate files with Ctrl+j (next) and Ctrl+k (previous) and view the file with Ctrl+o.
Tip: You can also navigate files with Alt+j (next) and Alt+k (previous) and view the file with Alt+o.