diff --git a/advocate.html.pm b/advocate.html.pm
index dd9ae0e..67286c0 100644
--- a/advocate.html.pm
+++ b/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)
diff --git a/concourse.html.pm b/concourse.html.pm
index b9d47be..37b32f5 100644
--- a/concourse.html.pm
+++ b/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)
diff --git a/equity.html.pm b/equity.html.pm
index d0169d7..b482aba 100644
--- a/equity.html.pm
+++ b/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)
diff --git a/ie.css.pp b/ie.css.pp
new file mode 100644
index 0000000..d009abb
--- /dev/null
+++ b/ie.css.pp
@@ -0,0 +1,7 @@
+#lang pollen
+
+◊; show ie-specific things
+
+.ie {
+ display: block; !important
+}
\ No newline at end of file
diff --git a/pollen.rkt b/pollen.rkt
index 74b3cc3..a553765 100644
--- a/pollen.rkt
+++ b/pollen.rkt
@@ -1,9 +1,16 @@
-#lang racket/base
-(require "scribblings/pollen-rkt.scrbl")
+#lang pollen/mode racket/base
+(require "scribblings/pollen-rkt.scrbl" pollen/tag)
(provide (all-from-out "scribblings/pollen-rkt.scrbl"))
(module setup racket/base
(provide (all-defined-out)) ;; <- don't forget this line in your config submodule!
(require pollen/setup racket/path)
(define (omitted-path? p) (path-has-extension? p #"sh"))
- (define publish-directory "~/Dropbox/dropbox_xray/typographyforlawyers.com/public/"))
\ No newline at end of file
+ (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.}})
\ No newline at end of file
diff --git a/styles.css.pp b/styles.css.pp
index d87da71..7d2cb9f 100644
--- a/styles.css.pp
+++ b/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;
+}
+
diff --git a/template.html.p b/template.html.p
index 9cce86d..e7500ae 100644
--- a/template.html.p
+++ b/template.html.p
@@ -57,6 +57,18 @@ var isFirefox = typeof InstallTrigger !== 'undefined';
if (isFirefox) {
document.write('');
}
+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('');
+}
+