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(''); +} +