IE support warning

advocate.html.pm

@@ -29,6 +29,7 @@ States. They shall in all Cases, except}
 advocate
 equity-concourse-triplicate-advocate)]
 
+◊(ie-payment-warning)
 
 ◊font-details{Advocate includes 270 font files:
 = 3 weights (regular, medium, bold)

concourse.html.pm

@@ -30,6 +30,7 @@ equity-concourse-standard
 equity-concourse-triplicate
 equity-concourse-triplicate-advocate)]
 
+◊(ie-payment-warning)
 
 ◊font-details{Concourse Standard includes 162 font files:
 = 6 weights (light, book, medium, semibold, bold, black)

equity.html.pm

@@ -29,7 +29,7 @@ equity-concourse-standard
 equity-concourse-triplicate
 equity-concourse-triplicate-advocate)]
 
-
+◊(ie-payment-warning)
 
 ◊font-details{Equity includes 72 font files:
 = 6 styles (regular, italic, bold, bold italic, regular caps, bold caps)

ie.css.pp

@@ -0,0 +1,7 @@
+#lang pollen
+
+◊; show ie-specific things
+
+.ie { 
+    display: block; !important
+}

pollen.rkt

@@ -1,5 +1,5 @@
-#lang racket/base
+#lang pollen/mode racket/base
-(require "scribblings/pollen-rkt.scrbl")
+(require "scribblings/pollen-rkt.scrbl" pollen/tag)
 (provide (all-from-out "scribblings/pollen-rkt.scrbl"))
 
 (module setup racket/base
@@ -7,3 +7,10 @@
   (require pollen/setup racket/path)
   (define (omitted-path? p) (path-has-extension? p #"sh"))
   (define publish-directory "~/Dropbox/dropbox_xray/typographyforlawyers.com/public/"))
+
+(provide ie-payment-warning)
+(define (ie-payment-warning)
+  (define div (default-tag-function 'div))
+  (define p (default-tag-function 'p))
+  (define strong (default-tag-function 'strong))
+  ◊div[#:class "ie reader-note"]{◊p{Because of security considerations, my payment links ◊strong{do not support Internet Explorer 11 or earlier}. Please use a different browser.}})

styles.css.pp

@@ -442,7 +442,7 @@ margin-top: 0.1rem;
   text-transform: uppercase;
 }
 
-.font-details {
+.font-details, .reader-note {
   padding-top: 0.5rem;
   margin-top: 1.5rem;
   margin-bottom: 1.5rem;
@@ -786,4 +786,8 @@ a.pdf img:hover {
 }
 
 
+.ie {
+  display: none;
+}
+
 

template.html.p

@@ -57,6 +57,18 @@ var isFirefox = typeof InstallTrigger !== 'undefined';
 if (isFirefox) {
 document.write('<link rel="stylesheet" type="text/css" media="all" href="/firefox.css" />');
 }
+var maybe_ie_ua = window.navigator.userAgent;
+ // IE 10
+// maybe_ie_ua = 'Mozilla/5.0 (compatible; MSIE 10.0; Windows NT 6.2; Trident/6.0)';
+
+// IE 11
+// maybe_ie_ua = 'Mozilla/5.0 (Windows NT 6.3; Trident/7.0; rv:11.0) like Gecko';
+
+// 'MSIE' key detects IE10 and before; 'Trident' key detects IE11
+if (maybe_ie_ua.indexOf('MSIE ') > 0 || maybe_ie_ua.indexOf('Trident/') > 0) {
+  document.write('<link rel="stylesheet" type="text/css" media="all" href="/ie.css" />');
+}
+
 </script>
 
 <script type="text/javascript">

triplicate.html.pm

@@ -29,6 +29,7 @@ triplicate
 equity-concourse-triplicate
 equity-concourse-triplicate-advocate)]
 
+◊(ie-payment-warning)
 
 ◊font-details{Triplicate includes 144 font files:
 = 3 weights (light, book, bold)

utility.ptree

@@ -12,6 +12,7 @@ fonts/non-equity.css
 fonts/advocate-extras.css
 
 firefox.css
+ie.css
 bc.html
 
 ◊fonts.html{