list-t-html-parser 0.2.2.0 → 0.3.0.0
raw patch · 4 files changed
+1152/−27 lines, 4 filesPVP ok
version bump matches the API change (PVP)
API changes (from Hackage documentation)
+ ListT.HTMLParser: properHTML :: Monad m => Parser m Builder
Files
- hspec/Main.hs +57/−3
- hspec/samples/1.html +991/−0
- library/ListT/HTMLParser.hs +101/−23
- list-t-html-parser.cabal +3/−1
hspec/Main.hs view
@@ -5,6 +5,7 @@ import Conversion import Conversion.Text import Data.Text (Text)+import qualified Data.Text.IO import qualified HTMLTokenizer.Parser import qualified ListT.Attoparsec import qualified ListT.HTMLParser@@ -68,10 +69,63 @@ return 2 result <- parse parser text shouldBe result (Right 2)--+ context "HTML with unclosed tags" $ do+ let text = "<a><br><br></a>"+ context "\"html\" parser result" $ do+ result <- runIO $ parse (P.html) text+ it "should not be failure" $ shouldSatisfy result isRight+ it "should be proper" $ shouldBe result (Right "<a><br/><br/></a>")+ context "HTML with deep unclosed tags" $ do+ let text = "<a><b><br><br></b></a>"+ context "\"html\" parser result" $ do+ result <- runIO $ parse (P.html) text+ it "should be proper" $ shouldBe result (Right "<a><b><br/><br/></b></a>")+ context "HTML with repetitive tags" $ do+ let text = "<a><a></a></a>"+ context "\"html\" parser result" $ do+ result <- runIO $ parse (P.html) text+ it "should be proper" $ shouldBe result (Right "<a><a></a></a>")+ context "Broken closing tag" $ do+ let text = "<a></b></a>"+ context "\"html\" parser result" $ do+ result <- runIO $ parse P.html text+ it "should be proper" $ shouldBe result (Right "<a></a>")+ context "Interspersed tag ending" $ do+ let text = "<a><b></a></b>"+ context "\"html\" parser result" $ do+ result <- runIO $ parse (mconcat <$> many P.html) text+ it "should be proper" $ shouldBe result (Right "<a><b/></a>")+ context "Complex HTML" $ do+ let text = "<p>a<strong>b</strong>c<br><br>d<br></p>"+ result <- runIO $ parse (mconcat <$> many P.html) text+ it "should be correct" $ shouldBe result (Right "<p>a<strong>b</strong>c<br/><br/>d<br/></p>")+ context "Complex HTML 2" $ do+ let text = "<a><b>c</b><d><e>f<g><h>i<j>k</j><l></a>"+ result <- runIO $ parse (mconcat <$> many P.html) text+ it "should be correct" $ shouldBe result (Right "<a><b>c</b><d/><e/>f<g/><h/>i<j>k</j><l/></a>")+ context "Unclosed HTML" $ do+ let text = "<p>a<strong>b</strong>c<br><br>d<br>"+ result <- runIO $ parse (mconcat <$> many P.html) text+ it "should be correct" $ shouldBe result (Right "")+ context "Closing tag comming first" $ do+ let text = "</a><b></b>"+ result <- runIO $ parse P.properHTML text+ it "should fail" $ shouldSatisfy result isLeft+ context "HTML sample file #1" $ do+ text <- runIO $ Data.Text.IO.readFile "hspec/samples/1.html"+ it "should parse fine" $ do+ result <- parse (mconcat <$> many P.html) text+ shouldSatisfy result isRight+ context "Doc examples" $ do+ context "I'm not your guy" $ do+ let text = "<ul><li>I'm not your friend, <b>buddy</b>!</li><li>I'm not your buddy, <b>guy</b>!</li><li>He's not your guy, <b>friend</b>!</li><li>I'm not your friend, <b>buddy</b>!</li></ul>"+ it "Single" $ do+ Right result <- parse (P.openingTag *> P.html) text+ shouldBe result "<li>I'm not your friend, <b>buddy</b>!</li>"+ it "Multiple" $ do+ Right result <- parse (P.openingTag *> (mconcat <$> many P.properHTML) <* P.closingTag) text+ shouldBe result "<li>I'm not your friend, <b>buddy</b>!</li><li>I'm not your buddy, <b>guy</b>!</li><li>He's not your guy, <b>friend</b>!</li><li>I'm not your friend, <b>buddy</b>!</li>" --- | Scrape the body of a GET response using an HTML parser. parse :: ListT.HTMLParser.Parser IO a -> Text -> IO (Either Error a) parse parser = fmap (either (Left . parseSomeException) id) . try .
+ hspec/samples/1.html view
@@ -0,0 +1,991 @@++ <!doctype HTML>+ <html class="no-js" lang="no">+ <head>+ <meta charset="utf-8" />+ <meta http-equiv="X-UA-Compatible" content="IE=edge" />+ <meta name="viewport" content="width=device-width, initial-scale=1.0" />+ + <meta name="description" content="Prosjektering av stålkonstruksjoner for seismisk påvirkning i henhold til Eurokode 8 / NS-EN 1998, med eksempler på dimensjonering av bygninger i Norge med hensyn på jordskjelv." />+ ++ <link rel="canonical" href="https://www.tekna.no/kurs/prosjektering-av-stalkonstruksjoner-for-seismisk-pavirkning/" />++ <title> Prosjektering av stålkonstruksjoner for seismisk påvirkning </title>+ + <link rel="stylesheet" href="/Static/build/app.min.css?v=082" />+ <script src="/Static/bower_components/modernizr/modernizr.min.js"></script>+ <link rel="icon" type="image/png" href="/Static/img/favicon.ico" />++ <!--[if lt IE 9]>+ <div class="obsolete__browser">+ + Hei, det ser ut som du bruker en utdatert nettleser. Vi anbefaler at du har siste versjon av nettleseren installert. Tekna.no støtter blant annet Internet Explorer,+ Firefox, Google Chrome, Safari og Opera. Dersom du ikke har mulighet til å oppdatere nettleseren til siste versjon, kan du laste ned andre nettlesere her:+ + <a class="obsolete__browser-link" href="http://browsehappy.com/">http://browsehappy.com</a>+ </div>+ <![endif]-->+++ </head>+ <body>+ + <!-- Google Tag Manager -->+ <noscript>+ <iframe src="//www.googletagmanager.com/ns.html?id=GTM-WSBD"+ height="0" width="0" style="display:none;visibility:hidden"></iframe>+ </noscript>+ <script>+ (function (w, d, s, l, i) {+ w[l] = w[l] || []; w[l].push({+ 'gtm.start':+ new Date().getTime(), event: 'gtm.js'+ }); var f = d.getElementsByTagName(s)[0],+ j = d.createElement(s), dl = l != 'dataLayer' ? '&l=' + l : ''; j.async = true; j.src =+ '//www.googletagmanager.com/gtm.js?id=' + i + dl; f.parentNode.insertBefore(j, f);+ })(window, document, 'script', 'dataLayer', 'GTM-WSBD');</script>+ <!-- End Google Tag Manager -->++ ++ <div class="off-canvas-wrap wrapper" data-offcanvas>+ <div class="inner-wrap">+ +<a id="skiplink" href="#content">Hopp til innhold</a>++<aside id="off-canvas__nav" class="right-off-canvas-menu">++ <nav role="navigation">+ <div class="off-canvas__close-container">+ <div class="exit-off-canvas off-canvas__close"><span class="icon-cross off-canvas__close-icon"></span></div>+ </div>+++ <ul class="off-canvas__container tekna-font-bold">+ <li class="off-canvas__nav-item">+ <a class="off-canvas__nav-link" href="/" title="Forsiden"><span>Forsiden</span></a>+ + + + </li>+ <li class="off-canvas__nav-item">+ <a class="off-canvas__nav-link" href="/kurs/" title="Kurs og arrangementer"><span>Kurs og arrangementer</span></a>+ + + + </li>+ <li class="off-canvas__nav-item">+ <a class="off-canvas__nav-link" href="/medlemsfordeler/"><span>Medlemsfordeler</span></a>+ + + + </li>+ <li class="off-canvas__nav-item">+ <a class="off-canvas__nav-link" href="/lonn-og-arbeidsvilkar/"><span>Lønn og arbeidsvilkår</span></a>+ + + + </li>+ <li class="off-canvas__nav-item">+ <a class="off-canvas__nav-link" href="/fag-og-nettverk/"><span>Fag og nettverk</span></a>+ + + + </li>+ <li class="off-canvas__nav-item">+ <a class="off-canvas__nav-link" href="/karriere/"><span>Karriere</span></a>+ + + + </li>+ <li class="off-canvas__nav-item">+ <a class="off-canvas__nav-link" href="/juridisk-bistand/"><span>Juridisk bistand</span></a>+ + + + </li>+ </ul>++ <ul class="off-canvas__container">+ <li class="off-canvas__nav-item">+ <a class="off-canvas__nav-link" href="/meninger/"><span>Meninger</span></a>+ </li>+ <li class="off-canvas__nav-item">+ <a class="off-canvas__nav-link" href="/om-tekna/"><span>Om Tekna</span></a>+ </li>+ <li class="off-canvas__nav-item">+ <a class="off-canvas__nav-link" href="/aktuelt/"><span>Aktuelt</span></a>+ </li>+ </ul>++ <ul class="off-canvas__container">+ <li class="off-canvas__nav-item">+ <a class="off-canvas__nav-link" href="/tillitsvalgt/"><span>Tillitsvalgt</span></a>+ </li>+ <li class="off-canvas__nav-item">+ <a class="off-canvas__nav-link" href="http://portal.tekna.no/student" title="Student"><span>Student</span></a>+ </li>+ </ul>++ <ul class="off-canvas__container">+ <li class="off-canvas__nav-item">+ <a class="off-canvas__nav-link" href="/om-tekna/organisasjon/avdelingene/"><span>Lokalavdelinger</span></a>+ </li>+ <li class="off-canvas__nav-item">+ <a class="off-canvas__nav-link" href="/kontakt-oss/"><span>Kontakt oss</span></a>+ </li>+ </ul>+ + <ul class="off-canvas__container">+ <li class="off-canvas__nav-item">++ Language:+ <span class="off-canvas__nav-link--selected">no</span> | <a class="off-canvas__nav-link" href="/en"><span>en</span></a>+ </li>+ </ul>++ <ul class="off-canvas__container">+ <li class="off-canvas__nav-item"><a class="button small expand" href="/medlemsfordeler/"><span>Bli medlem</span></a></li>+ </ul>++</nav>++ ++ +++ ++</aside>++ +++++++ <!-- cookie info panel -->+ <div class="cookie-infopanel">+ Denne nettsiden bruker informasjonskapsler (cookies). Ved å fortsette å bruke nettsiden samtykker du i bruken av våre informasjonskapsler. + <a onClick="hideForever();" href="/personvern/" class="link-underline">Les mer her.</a>+ <span onClick="hideForever();" class="cookie-infopanel--close"><span class="cookie-infopanel--close-icon"></span></span>+ </div>+<a class="exit-off-canvas"></a>+++<header class="header">+ <div class="header--center">++ <a href="/">+ <span class="header__logo">+ <span class="hide">Tekna - Norges største fagforening for deg med master i realfag eller teknologi</span> + </span>+ </a>+++ + <a href="#" class="header__nav right-off-canvas-toggle">+ <span class="header__nav-text header__nav-text--menu">Meny <span class="header__nav-icon"></span></span>+ </a>+++ + <div class="show-for-medium-up header__nav">+ <a href="https://portal.tekna.no/dinside" rel="nofollow"><span class="header__nav-text">Login </span><span class="header__login-icon"></span></a>+ </div>+ <div class="hidden-for-medium-up header__nav">+ <a href="https://portal.tekna.no/dinside" rel="nofollow"><span class="header__login-icon"></span></a>+ </div>++ <div class="header__nav search--site-container">+ + <div class="show-for-medium-up search--site-grid">+ <div class="search search--site hide">+ <form action="/sokeside/" method="GET">+ <input id="js-search--site__search__field" name="q" class="search__field" type="search" placeholder='Søk i tekna.no'+ autocomplete="off" autocorrect="off" autocapitalize="off" spellcheck="false">+ <input class="visuallyhidden" type="submit" value='søk'>+ </form>+ </div>+ </div>+ <div id="js-search--site" class="show-for-medium-up"><span class="header__nav-text">Søk </span><span class="header__search-icon"></span></div>++ <div id="js-search--site--mob" class="hide-for-medium-up"><span class="header__search-icon"></span></div>+ </div>++</div>++ + <div class="hide-for-medium-up search--site-grid--mob">+ <div class="search search--site--mob hide">+ <form action="/sokeside/" method="GET">+ <input id="js-search--site__search__field--mob" name="q" class="search__field" type="search" placeholder='Søk i tekna.no'+ autocomplete="off" autocorrect="off" autocapitalize="off" spellcheck="false"> + <input class="visuallyhidden" type="submit" value='søk'>+ </form>+ </div>+ </div>++</header>++++++ <div id="content">+ +++++++++++++++<section role="main" class="main event">+ <div class="row">++ <div class="event__grid">+ + <header>+ <h1 class="event__title">Prosjektering av stålkonstruksjoner for seismisk påvirkning</h1>+ <div class="subtitle margin-bottom-small"></div>+ </header>+ + + <div class="event__time-date">+++ <div class="event__time-date-item"><span class="icon-calendar"></span> 7. mai</div>+ <div class="event__time-date-item"><span class="icon-time"></span> kl 09:00–16:30</div>+ + <div class="event__time-date-item">+ <span class="icon-map-marker"></span><a href="https://www.google.com/maps/@59.91043,10.72528,14z/data=!3m1!4b1!4m2!3m1!1s0x0:0x0" target="_blank">Felix Konferansesenter, OSLO</a>+ </div>+</div>+ + <p class="intro--event">Prosjektering av stålkonstruksjoner for seismisk påvirkning i henhold til Eurokode 8 / NS-EN 1998, med eksempler på dimensjonering av bygninger i Norge med hensyn på jordskjelv.</p>++ + <a href="" id="js-get-signup-url" class="button expand show-for-small-only">Meld meg på</a>++ <div class="row">+ <div class="event__grid-left">+ <!-- Start Second tabs-->+<div id="tabbed-nav">++ <!-- Tab Navigation Menu -->+ <ul>+ <li data-link="om-kurset"><a>Beskrivelse</a></li>+ <li data-link="kursprogram"><a>Program</a></li>++ <li data-link="praktiske-opplysninger"><a>Praktiske opplysninger</a></li>+ + </ul>++ <!-- Content container -->+ <div>+ <div>+ <p>Konstruksjoner på land (og offshore) i Norge skal beregnes og dimensjoneres for jordskjelv. </p>++<p>Dette kurset vil i tillegg til å gi de grunnleggende regler for jordskjelvdimensjonering også gi en mer detaljert innføring i de nye prosjekteringsreglene for laster fra seismiske påvirkninger i henhold til Eurokode 8: NS-EN 1998 Prosjektering av konstruksjoner for seismisk påvirkning. </p>++<p>Prosjektering mhp jordskjelv kan optimaliseres gjennom valg av riktig design og ved å dimensjonere med duktile knutepunkter. Dette er et viktig konkurranseaspekt, og noe som vil gi en rimeligere konstruksjon. </p>++<p>Kurset henvender seg primært til prosjekterende ingeniører og til ingeniører hos byggemyndigheter o.l.</p>++<p><strong><em>Forelesere er Emrah Erduran, NJF/Rambøll Norge <br>og Farzin Shahrokhi, fagsjef jordskjelvgruppe Rambøll Norge </em></strong></p>++ + </div>+ + <div>+ +<div class="event__schedule">+ <div class="event__schedule-grid-main">+ <div class="row">+ <div class="event__schedule-grid">+ <div class="Dag">+ <p class="Tittel">Program</p>+ <div class="Beskrivelse"><p><strong>Part 1 – Rules and seismic analyses</strong><br>+ <br>+ 8:30 Registrering<br>+ <br>+ 09:00 <strong>General design rules & Eurocode 8</strong><br>+ <em>Emrah Erduran, NJF/Rambøll Norge</em><br>+ <br>+ 09:30 <strong>Design principles for seismic resistance structures (conceptual design)</strong><br>+ <em>Emrah Erduran, NJF/Rambøll Norge</em><br>+ <br>+ 10:30 Kaffepause<br>+ <br>+ 10:45 <strong>Calculation of seismic actions according to Eurocode 8</strong><br>+ - Lateral Force Method of Analysis<br>+ - Modal Response Spectrum Analysis<br>+ <em>Emrah Erduran </em><em>NJF/Rambøll Norge</em><br>+ <br>+ 12:00 Lunsj<br>+ <br>+ 13:00 <strong>Design criteria and rules for steel structures in Eurocode 8</strong><br>+ <em>Farzin Shahrokhi, fagsjef jordskjelvgruppe Rambøll Norge</em><br>+ <br>+ 14:30 Kaffepause<br>+ <br>+ <strong>Part 2 – Design of steel buildings in Norway</strong><br>+ <br>+ 14.45 <strong>Case study no. 1</strong><br>+ <em>Farzin Shahrokhi, fagsjef jordskjelvgruppe Rambøll Norge</em><br>+ <br>+ 15:30 <strong>Case study no. 2</strong><br>+ <em>Farzin Shahrokhi, fagsjef jordskjelvgruppe Rambøll Norge</em><br>+ <br>+ 16:15 <strong>Discussion</strong><br>+ <br>+ 16.30 End<br>+ </span> </p></td></p>+</div>++ </div>+ </div>+ </div>+ </div>+</div>++ </div>++ <!-- TODO: http://joelabrahamsson.com/custom-rendering-of-content-areas/ -->++<div>+ <p><b><span style="text-decoration: underline;">Konferanse, deltakeravgifter:</span></b><b><br /></b><span style="text-decoration: underline;">Deltageravgift</span>: (inkl. lunsj og 2 kaffepauser)<br />kr. 6.200 for medlemmer i NFS og Norsk Stålforbund<br />kr. 6.500 for medlemmer i Tekna <br />kr. 6.700 for ikke-medlemmer<br /><br /><b>Kvantumsrabatter: <br /></b>minimum 5 påmeldte: 10% rabatt<br />minimum 10 påmeldte 20% rabatt<br />minimum 15 påmeldte 30% rabatt<br />minimum 20 påmeldte 40% rabatt<a href="mailto:registrering@tekna.no"><br /></a><span style="text-decoration: underline;"><br /><b>Dokumenter: <br /></b></span>Kurskompendium: Kurset inkluderer e-kurskompendium<br />Standarder: Bestilles av den enkelte fra <a href="http://www.standard.no" target="_blank">Standard Norge</a>.</p>+<p><b><span style="text-decoration: underline;">Administrasjon:</span></b><b> <br /></b>Tekna Servicekontoret, Postboks 2312 Solli, 0201 Oslo<br />Telefon: 22 94 75 60/61 - Telefax: 22 94 75 01 <br />E-post: <a href="mailto:registrering@tekna.no">registrering@tekna.no</a> <br /><br /><b><span style="text-decoration: underline;">Avbestilling:</span></b><b><br /></b>Dersom avbestilling skjer etter påmeldingsfristens utløp, må full avgift betales. Kun skriftlig avbestilling, som er bekreftet mottatt av Tekna, godtas. Ved avbestilling pga sykdom, ber vi om at legeattest fremlegges. Hvis ikke, må full avgift betales. </p>+<p><b>Påmeldingsfrist 30. april 2015<br /> <br /> </b></p>+</div>+ + +</div>+</div>+<!-- Zozo Tabs End-->+ </div>++ <aside class="sidebar-grid">+ <div class="sidebar"> <div class="event__data">+ <h2 class="event__data-title">Pris</h2>+ <dl>+ <dt class="event__data-type">Ikke medlem</dt>+ <dd class="event__data-def">+ Kr 6700,-++ + </dd>+ <dt class="event__data-type">Medlem i Tekna</dt>+ <dd class="event__data-def">+ Kr 6500,-++ + </dd>+ <dt class="event__data-type">Medlem i NFS eller Norsk Stålforbund</dt>+ <dd class="event__data-def">+ Kr 6200,-++ + </dd>++ </dl>+ </div>++ <a href="/kurs/prosjektering-av-stalkonstruksjoner-for-seismisk-pavirkning/Enroll/" class="js-signup-url button expand">Meld meg på</a>+<div class="event__data-terms">+ + <p class="event__data-terms-item">+ Kontakt:+ <a href="mailto:Kristian.Ivsett.Johnsen@tekna.no">Ivsett Johnsen Kristian</a>+- +4792019692 </p>++</div>++</div>+ </aside>+ </div>+ </div>++ + <div class="event__grid">+ + + + + </div>+ + <!-- relaterterte kurs-->+ <div class="event__grid">+ <h2 class="margin-bottom__small tekna-font-regular">Andre fag og arrangementer innenfor dette emnet:</h2>+ <div class="row" data-equalizer>+++ <div class="medium-4 large-4 columns">++ <div class="campaign__events panel" data-equalizer-watch>+ <p class="tekna-font-bold">Building and construction</p>+ <p><a class="campaign__events-title" href="/en/events/joints-of-rectangular-hollow-sections/">Joints of Rectangular Hollow Sections</a></p>+ <div class="campaign__events-time-date">+ <span class="icon-calendar"></span><div class="campaign__events-item"> Apr. 29</div>+ <span class="icon-time"></span>+ <div class="campaign__events-item"> 9am – 4pm</div>+ <span class="icon-map-marker"></span>+ <div class="campaign__events-item">+ <a href="https://www.google.com/maps/@59.91043,10.72528,14z/data=!3m1!4b1!4m2!3m1!1s0x0:0x0" target="_blank">Felix Konferansesenter, OSLO</a>+ </div>+ </div>+ </div>++ </div>+ <div class="medium-4 large-4 columns">++ <div class="campaign__events panel" data-equalizer-watch>+ <p class="tekna-font-bold">Bygg og anlegg</p>+ <p><a class="campaign__events-title" href="/kurs/u3--engelsk---betongarbeider---utforelse-av-betongkonstruksjoner-for-produksjonkontrolleder/">(U3) Execution of concrete for supervisors</a></p>+ <div class="campaign__events-time-date">+ <span class="icon-calendar"></span><div class="campaign__events-item"> 4.–8. mai</div>+ <span class="icon-map-marker"></span>+ <div class="campaign__events-item">+ <a href="https://www.google.com/maps/@60.16354,11.16167,14z/data=!3m1!4b1!4m2!3m1!1s0x0:0x0" target="_blank">Quality Airport Hotel Gardermoen, JESSHEIM</a>+ </div>+ </div>+ </div>++ </div>+ <div class="medium-4 large-4 columns">++ <div class="campaign__events panel" data-equalizer-watch>+ <p class="tekna-font-bold">Bygg og anlegg</p>+ <p><a class="campaign__events-title" href="/kurs/nff-temadag-2015/">NFF Temadag 2015</a></p>+ <div class="campaign__events-time-date">+ <span class="icon-calendar"></span><div class="campaign__events-item"> 5. mai</div>+ <span class="icon-time"></span>+ <div class="campaign__events-item"> kl 12:30–18:00</div>+ <span class="icon-map-marker"></span>+ <div class="campaign__events-item">+ <a href="https://www.google.com/maps/@59.91405,10.72713,14z/data=!3m1!4b1!4m2!3m1!1s0x0:0x0" target="_blank">Ingeniørenes Hus, OSLO</a>+ </div>+ </div>+ </div>++ </div>+ </div>++ </div>++ + <div class="event__grid show-for-small-only">+ <span class="icon-angle-left"></span> <a href="/kurs/">Til kursoversikt</a>+ </div>+++ </div>+</section>+++ </div>+ <footer class="footer-container">++ <div class="footer__contact">+ <div class="row">++ <div class="footer__contact__wrapper">++ <div class="footer__contact__icon-bg">+ <span class="footer__contact__icon-contact" aria-hidden="true"></span>+ </div>+ <p class="footer__contact__item">+ Teknas sentralbord<br />+ <span itemprop="telephone"><a class="footer__contact__item-number" href="tel:22 94 75 00">22 94 75 00</a></span>++ </p>+ </div>++ </div>+</div>++ <div class="footer">++ <!--custom grid klasse-->+ <div class="row">+ <div class="footer__grid">+ <div class="row">+ <div><div><div class="footer__grid-sub">+ <div class="footer__nav">+ <h3 class="footer__nav-title"><a class="footer__nav-titlelink" href="/kurs/"> Kurs og arrangementer</a></h3>+ <ul class="footer__nav-list">+ <li>+ <a class="footer__nav-listlink" href="/kurs/prosjektledelse/"><span class="footer__nav-listlink--hover">Teknas prosjektskole</span></a>+ </li>+ <li>+ <a class="footer__nav-listlink" href="/en/events/"><span class="footer__nav-listlink--hover">International Conferences</span></a>+ </li>+ <li>+ <a class="footer__nav-listlink" href="/kurs/kursdagene/"><span class="footer__nav-listlink--hover">Kursdagene</span></a>+ </li>+ <li>+ <a class="footer__nav-listlink" href="/kurs/nettkurs/"><span class="footer__nav-listlink--hover">Nettkurs</span></a>+ </li>+ <li>+ <a class="footer__nav-listlink" href="/video/"><span class="footer__nav-listlink--hover">Video-overførte arrangementer</span></a>+ </li>+ <li>+ <a class="footer__nav-listlink" href="/kurs/"><span class="footer__nav-listlink--hover">Alle kommende arrangementer</span></a>+ </li>+ </ul>+ </div>+</div>+</div><div><div class="footer__grid-sub">+ <div class="footer__nav">+ <h3 class="footer__nav-title"><a class="footer__nav-titlelink" href="/medlemsfordeler/">Medlemskap</a></h3>+ <ul class="footer__nav-list">+ <li>+ <a class="footer__nav-listlink" href="/medlemsfordeler/"><span class="footer__nav-listlink--hover">Medlemsfordeler</span></a>+ </li>+ <li>+ <a class="footer__nav-listlink" href="/medlemsfordeler/kriterier-for-medlemskap/"><span class="footer__nav-listlink--hover">Opptakskriterier</span></a>+ </li>+ <li>+ <a class="footer__nav-listlink" href="/medlemsfordeler/innmelding/"><span class="footer__nav-listlink--hover">Søknad om medlemskap</span></a>+ </li>+ <li>+ <a class="footer__nav-listlink" href="/medlemsfordeler/kontingent/"><span class="footer__nav-listlink--hover">Priser og rabatter</span></a>+ </li>+ <li>+ <a class="footer__nav-listlink" href="/medlemsfordeler/studentmedlemskap/"><span class="footer__nav-listlink--hover">Student</span></a>+ </li>+ <li>+ <a class="footer__nav-listlink" href="/medlemsfordeler/selvstendig-naringsdrivende/"><span class="footer__nav-listlink--hover">Tilbud for selvstendig næringsdrivende</span></a>+ </li>+ </ul>+ </div>+</div>+</div><div><div class="footer__grid-sub">+ <div class="footer__nav">+ <h3 class="footer__nav-title"><a class="footer__nav-titlelink" href="/lonn-og-arbeidsvilkar/">Lønn og arbeidsvilkår</a></h3>+ <ul class="footer__nav-list">+ <li>+ <a class="footer__nav-listlink" href="/lonn-og-arbeidsvilkar/lonnsstatistikk/"><span class="footer__nav-listlink--hover">Lønnsstatistikk</span></a>+ </li>+ <li>+ <a class="footer__nav-listlink" href="/lonn-og-arbeidsvilkar/lonnsforhandlinger/"><span class="footer__nav-listlink--hover">Lønnsforhandlinger</span></a>+ </li>+ <li>+ <a class="footer__nav-listlink" href="/lonn-og-arbeidsvilkar/lonnsforhandlinger/tariffavtaler/"><span class="footer__nav-listlink--hover">Tariffavtaler</span></a>+ </li>+ <li>+ <a class="footer__nav-listlink" href="/lonn-og-arbeidsvilkar/pensjon/"><span class="footer__nav-listlink--hover">Pensjon og forsikringer</span></a>+ </li>+ <li>+ <a class="footer__nav-listlink" href="/lonn-og-arbeidsvilkar/rettigheter/"><span class="footer__nav-listlink--hover">Juss og arbeidsliv</span></a>+ </li>+ </ul>+ </div>+</div>+</div></div>+ </div>+ </div>+ </div>++ <!--custom grid klasse-->+ <div class="row">+ <div class="footer__grid">+ <div class="row">+ <div><div><div class="footer__grid-sub">+ <div class="footer__nav">+ <h3 class="footer__nav-title"><a class="footer__nav-titlelink" href="">Fag og nettverk</a></h3>+ <ul class="footer__nav-list">+ <li>+ <a class="footer__nav-listlink" href="/fag-og-nettverk/bygg-og-anlegg/"><span class="footer__nav-listlink--hover">Bygg og anlegg</span></a>+ </li>+ <li>+ <a class="footer__nav-listlink" href="/fag-og-nettverk/olje-og-gass/"><span class="footer__nav-listlink--hover">Olje og gass</span></a>+ </li>+ <li>+ <a class="footer__nav-listlink" href="/fag-og-nettverk/energi-og-klima/"><span class="footer__nav-listlink--hover">Energi og klima</span></a>+ </li>+ <li>+ <a class="footer__nav-listlink" href="/fag-og-nettverk/miljo-og-biovitenskap/"><span class="footer__nav-listlink--hover">Miljø- og biovitenskap</span></a>+ </li>+ <li>+ <a class="footer__nav-listlink" href="/fag-og-nettverk/samferdsel-og-infrastruktur/"><span class="footer__nav-listlink--hover">Samferdsel og infrastruktur</span></a>+ </li>+ <li>+ <a class="footer__nav-listlink" href="/fag-og-nettverk/realfag-og-utdanning/"><span class="footer__nav-listlink--hover">Realfag og utdanning</span></a>+ </li>+ <li>+ <a class="footer__nav-listlink" href="/fag-og-nettverk/it-og-tele/"><span class="footer__nav-listlink--hover">IT og tele</span></a>+ </li>+ <li>+ <a class="footer__nav-listlink" href="/fag-og-nettverk/forskning-og-innovasjon/"><span class="footer__nav-listlink--hover">Forskning og innovasjon</span></a>+ </li>+ <li>+ <a class="footer__nav-listlink" href="/fag-og-nettverk/ledelse-og-utvikling/"><span class="footer__nav-listlink--hover">Ledelse og utvikling</span></a>+ </li>+ </ul>+ </div>+</div>+</div><div><div class="footer__grid-sub">+ <div class="footer__nav">+ <h3 class="footer__nav-title"><a class="footer__nav-titlelink" href="/om-tekna/organisasjon/avdelingene/">Lokalavdelinger</a></h3>+ <ul class="footer__nav-list">+ <li>+ <a class="footer__nav-listlink" href="/om-tekna/organisasjon/avdelingene/bergen/"><span class="footer__nav-listlink--hover">Bergen</span></a>+ </li>+ <li>+ <a class="footer__nav-listlink" href="/om-tekna/organisasjon/avdelingene/drammen/"><span class="footer__nav-listlink--hover">Drammen</span></a>+ </li>+ <li>+ <a class="footer__nav-listlink" href="/om-tekna/organisasjon/avdelingene/oslo/"><span class="footer__nav-listlink--hover">Oslo</span></a>+ </li>+ <li>+ <a class="footer__nav-listlink" href="/om-tekna/organisasjon/avdelingene/stavanger/"><span class="footer__nav-listlink--hover">Stavanger</span></a>+ </li>+ <li>+ <a class="footer__nav-listlink" href="/om-tekna/organisasjon/avdelingene/telemark/"><span class="footer__nav-listlink--hover">Telemark</span></a>+ </li>+ <li>+ <a class="footer__nav-listlink" href="/om-tekna/organisasjon/avdelingene/tromso/"><span class="footer__nav-listlink--hover">Tromsø</span></a>+ </li>+ <li>+ <a class="footer__nav-listlink" href="/om-tekna/organisasjon/avdelingene/trondheim/"><span class="footer__nav-listlink--hover">Trondheim</span></a>+ </li>+ <li>+ <a class="footer__nav-listlink" href="/om-tekna/organisasjon/avdelingene/vest-agder/"><span class="footer__nav-listlink--hover">Vest-Agder</span></a>+ </li>+ <li>+ <a class="footer__nav-listlink" href="/om-tekna/organisasjon/avdelingene/vestfold/"><span class="footer__nav-listlink--hover">Vestfold</span></a>+ </li>+ <li>+ <a class="footer__nav-listlink" href="/om-tekna/organisasjon/avdelingene/"><span class="footer__nav-listlink--hover">- Vis alle avdelinger -</span></a>+ </li>+ </ul>+ </div>+</div>+</div><div><div class="footer__grid-sub">+ <div class="footer__nav">+ <h3 class="footer__nav-title"><a class="footer__nav-titlelink" href="/kontakt-oss/">Kontakt oss</a></h3>+ <ul class="footer__nav-list">+ <li>+ <a class="footer__nav-listlink" href="/juridisk-bistand/"><span class="footer__nav-listlink--hover">Kontakt juridisk kontor</span></a>+ </li>+ <li>+ <a class="footer__nav-listlink" href="/kontakt-oss/medlemskontor--kontingent/"><span class="footer__nav-listlink--hover">Faktura/kontingent</span></a>+ </li>+ <li>+ <a class="footer__nav-listlink" href="/kontakt-oss/distrikskontorer/"><span class="footer__nav-listlink--hover">Distrikskontorer</span></a>+ </li>+ <li>+ <a class="footer__nav-listlink" href="/kontakt-oss/presserom/"><span class="footer__nav-listlink--hover">Presserom</span></a>+ </li>+ </ul>+ </div>+</div>+</div></div>+ </div>+ </div>+ </div>++ <div class="row">+ <div class="footer__grid"><div class="row">+ <div class="social__grid-sub">+ <div class="social__icon-bg">+ <a href="https://www.facebook.com/Tekna" target="_blank"><span class="social__icon-facebook"></span></a> + </div>+ </div>+ <div class="social__grid-sub">+ <div class="social__icon-bg">+ <a href="http://www.twitter.com/_Tekna_" target="_blank"><span class="social__icon-twitter"></span></a>+ </div>+ </div>++ <div class="social__grid-sub">+ <div class="social__icon-bg">+ <a href="http://www.linkedin.com/groupRegistration?gid=1483347" target="_blank"><span class="social__icon-inkedin"></span></a> + </div>+ </div>+</div>+</div>+ </div>++ <a href="#" class="go-top"><span class="icon-angle-up"></span></a>+ </div>++ +<div class="footer__address">+ <div class="row">+ <div class="small-12 columns text-center">+ <span class="footer__address-item">+ Tekna - Teknisk-naturvitenskapelig forening   –   Pb. 2312 Solli, 0201 Oslo   –   Besøksadresse: Dronning Mauds gt 15   –   Org.nr 971420782   –   + + <a href="/personvern/">Personvern</a>+ – <a href="/kontakt-oss/">Kontakt oss</a>++ </span>+ </div>+ </div>+</div>++++</footer>++++ </div>+ </div>++ + <script src="/Static/bower_components/jquery/dist/jquery.min.js"></script>++ + <script src="/Static/build/foundation_tekna.min.js?v=007"></script>+ <script src="/Static/build/app.min.js?v=032"></script>+ + <script src="/Static/js-views/salary-stats.js"></script>+++ <script src="/Static/typeahead.js/dist/typeahead.bundle.min.js"></script>+ + + <script>+ var EPiSERVER_FIND_URL = "https://es-eu-api01.episerver.net/VUakyHWcrQkl2vPmavAX3Gok2Rf58Fyr/tekna_index13752/_search";+ </script>++ + <script>++ // epi: http://world.episerver.com/documentation/Items/Developers-Guide/EPiServer-Find/8/Searching-With-Javascript/Autocomplete/++ //http://deanhume.com/home/blogpost/twitter-bootstrap-typeahead-and-asp-net-mvc---key-value-pairs/88+ //https://www.google.com/?gws_rd=ssl#q=bootstrap%20cdn%20typeahead+ //https://twitter.github.io/typeahead.js/examples/+ //http://world.episerver.com/documentation/Items/Developers-Guide/EPiServer-Find/8/Searching-With-Javascript/Autocomplete/+ //https://github.com/twitter/typeahead.js/blob/master/doc/bloodhound.md++ /////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////+ //+ // Global search + 404 page not found+ //+ /////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////++++ $(function () {+ var options = {+ hint: true,+ highlight: true,+ minLength: 2+ };++ var settings = {+ source: function (request, response) {+ var wildcard = { "wildcard": { "Title$$string.lowercase": "*" + request + "*" } };+ var fields = ["Title$$string"];+ var postData = {+ "query": wildcard,+ "fields": fields,+ "filter": {+ "term": { "Findable$$bool": "true" }+ }+ };++ $.ajax({+ url: EPiSERVER_FIND_URL, // declared in _Root.cshtml+ type: "POST",+ dataType: "json",+ data: JSON.stringify(postData),+ success: function (data) {+ response($.map(data.hits.hits, function (item) {+ return {+ label: item.fields.Title$$string,+ value: item.fields.Title$$string+ };+ }));+ }+ });+ }+ };++ $("#search404").typeahead(options, settings)+ .on('typeahead:selected', function (event, selectedObject, dataset) {+ var text = '"' + $("#search404").val() + '"';+ $("#search404").val(text);+ $("#search404").closest("form").submit();+ });++ $("#js-search--site__search__field--mob").typeahead(options, settings).typeahead(options, settings)+ .on('typeahead:selected', function (event, selectedObject, dataset) {+ var text = '"' + $("#js-search--site__search__field--mob").val() + '"';+ $("#js-search--site__search__field--mob").val(text);+ $("#js-search--site__search__field--mob").closest("form").submit();+ });++ $("#js-search--site__search__field").typeahead(options, settings).typeahead(options, settings)+ .on('typeahead:selected', function (event, selectedObject, dataset) {+ var text = '"' + $("#js-search--site__search__field").val() + '"';+ $("#js-search--site__search__field").val(text);+ $("#js-search--site__search__field").closest("form").submit();+ });+ $("#js-search--site__search__field").typeahead(options, settings).typeahead(options, settings)+ .on('typeahead:autocompleted', function (event, selectedObject, dataset) {+ var text = '"' + $("#js-search--site__search__field").val() + '"';+ $("#js-search--site__search__field").val(text);+ });++ });+ ++ /////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////+ //+ // CourseListPage+ //+ /////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////++ $(function () {+ var options = {+ hint: true,+ highlight: true,+ minLength: 2+ };++ var settings = {+ source: function(request, response) {+ var wildcard = { "wildcard": { "SearchTitle$$string.lowercase": "*" + request + "*" } };+ var fields = ["SearchTitle$$string"];+ var postData = {+ "query": wildcard,+ "fields": fields,+ "filter": {+ "bool": {+ "must": [+ {+ "terms": { "$type": ["CGI.Delegate.Models.EPiServerFind.CourseWithMetaData, Delegate"] }+ },+ {+ "term": { "Findable$$bool": "true" }+ }+ ]+ }+ }+ };++ $.ajax({+ url: EPiSERVER_FIND_URL, // declared in _Root.cshtml+ type: "POST",+ dataType: "json",+ data: JSON.stringify(postData),+ success: function(data) {+ response($.map(data.hits.hits, function(item) {+ return {+ label: item.fields.SearchTitle$$string,+ value: item.fields.SearchTitle$$string+ };+ }));+ }+ });+ }+ };++ $("#coursesearch").typeahead(options, settings).typeahead(options, settings).typeahead(options, settings)+ .on('typeahead:selected', function(event, selectedObject, dataset) {+ var text = '"' + $("#coursesearch").val() + '"';+ $("#coursesearch").val(text);+ $("#coursesearch").closest("form").submit();+ });++ $("#coursesearch").typeahead(options, settings).typeahead(options, settings).typeahead(options, settings)+ .on('typeahead:autocompleted', function (event, selectedObject, dataset) {+ var text = '"' + $("#coursesearch").val() + '"';+ $("#coursesearch").val(text); + });+++ /////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////+ //+ // CoursePage.Enroll + CoursePage.MassEnroll+ //+ /////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////++ var companySettings = {+ source: function (request, response) {+ $.ajax({+ url: "/api/bedriftsnavn/" + request,+ type: "GET",+ dataType: "json",+ success: function (data) {+ response($.map(data, function (item) {+ return {+ label: item,+ value: item+ };+ }));+ }+ });+ }+ };++ $("#arbsted").typeahead(options, companySettings);+ $("#fak-bedrift").typeahead(options, companySettings);+ $("#bedrift").typeahead(options, companySettings);++ });+ </script>++++ +++<script type="application/ld+json">+{+ "@context": "http://schema.org",+ "@type": "Event",+ "name": "Prosjektering av stålkonstruksjoner for seismisk påvirkning",+ "startDate" : "20150507",+ "description" : "Prosjektering av stålkonstruksjoner for seismisk påvirkning i henhold til Eurokode 8 / NS-EN 1998, med eksempler på dimensjonering av bygninger i Norge med hensyn på jordskjelv.",+ "location" :+ {+ "@type" : "Place",++ "name" : "Felix Konferansesenter",+ "address" :+ {+ "@type" : "PostalAddress",+ "addressLocality" : "OSLO"+ }+ }++}++</script>++ +<script>+ var BtnUrl = $(".js-signup-url");+ var MobUrl = $("#js-get-signup-url");++ MobUrl.prop('href', BtnUrl.prop('href'));+ MobUrl.text(BtnUrl.text());+</script>++++++ ++ </body>+</html>+
library/ListT/HTMLParser.hs view
@@ -12,6 +12,7 @@ text, comment, html,+ properHTML, -- * Combinators many1, manyTill,@@ -20,7 +21,7 @@ ) where -import BasePrelude hiding (uncons, cons)+import BasePrelude import MTLPrelude hiding (Error, shift) import Control.Monad.Trans.Either hiding (left, right) import ListT (ListT)@@ -66,13 +67,13 @@ Parser $ EitherT $ return $ Left Nothing (<|>) a b = Parser $ EitherT $ StateT $ \(incoming, backtrack) -> do- (aResult, (incoming', backtrack')) <- flip runStateT (incoming, []) $ runEitherT $ unwrap $ a+ (result', (incoming', backtrack')) <- flip runStateT (incoming, []) $ runEitherT $ unwrap $ a (result'', (incoming'', backtrack'')) <-- case aResult of+ case result' of Left _ -> do flip runStateT (foldl' (flip L.cons) incoming' backtrack', []) $ runEitherT $ unwrap $ b- Right aResult -> do- return (Right aResult, (incoming', backtrack'))+ Right result' -> do+ return (Right result', (incoming', backtrack')) return (result'', (incoming'', backtrack'' <> backtrack)) instance Monad m => MonadPlus (Parser m) where@@ -166,26 +167,103 @@ a <* eoi -- |--- The textual HTML representation of a proper HTML tree node.+-- The auto-repaired textual HTML representation of an HTML-tree node. -- -- Useful for consuming HTML-formatted snippets.+-- +-- E.g., when the following parser:+-- +-- > openingTag *> html+-- +-- is run against the following HTML snippet:+-- +-- > <ul>+-- > <li>I'm not your friend, <b>buddy</b>!</li>+-- > <li>I'm not your buddy, <b>guy</b>!</li>+-- > <li>He's not your guy, <b>friend</b>!</li>+-- > <li>I'm not your friend, <b>buddy</b>!</li>+-- > </ul>+-- +-- it'll produce the following text builder value:+-- +-- > <li>I'm not your friend, <b>buddy</b>!</li>+-- +-- If you want to consume all children of a node,+-- it's recommended to use 'properHTML' in combination with 'many' or 'many1'.+-- For details consult the docs on 'properHTML'.+-- +-- __This parser is smart and handles and repairs broken HTML__:+-- +-- * It repairs unclosed tags,+-- interpreting them as closed singletons. +-- E.g., @\<br\>@ will be consumed as @\<br\/\>@.+-- +-- * It handles orphan closing tags by ignoring them.+-- E.g. it'll consume the input @\<a\>\<\/b\>\<\/a\>@ as @\<a\>\<\/a\>@. html :: Monad m => Parser m Text.Builder html =- enclosingTag <|> brokenOpenTag <|> text' <|> comment'- where- enclosingTag =- do- ot@(n, _, False) <- openingTag - theHTML <- mconcat <$> many html- ct <- closingTag- guard $ ct == n- return $ Renderer.openingTag ot <> theHTML <> Renderer.closingTag ct- brokenOpenTag =- Renderer.openingTag . repair <$> openingTag- where- repair (name, attrs, _) = (name, attrs, True)- text' =- Renderer.text <$> text- comment' =- Renderer.comment <$> comment+ flip fmap cleanTokenSequence $ + foldl' (flip mappend) mempty . map Renderer.token +-- |+-- Same as 'html', but fails if the input begins with an orphan closing tag.+-- I.e., the input \"\<\/a\>\<b\>\<\/b\>\" will make this parser fail.+-- +-- This parser is particularly useful for consuming all children in the current context.+-- E.g., running the following parser:+-- +-- > openingTag *> (mconcat <$> many properHTML)+-- +-- on the following input:+-- +-- > <ul>+-- > <li>I'm not your friend, <b>buddy</b>!</li>+-- > <li>I'm not your buddy, <b>guy</b>!</li>+-- > <li>He's not your guy, <b>friend</b>!</li>+-- > <li>I'm not your friend, <b>buddy</b>!</li>+-- > </ul>+-- +-- will produce a merged text builder, which consists of the following nodes:+-- +-- > <li>I'm not your friend, <b>buddy</b>!</li>+-- > <li>I'm not your buddy, <b>guy</b>!</li>+-- > <li>He's not your guy, <b>friend</b>!</li>+-- > <li>I'm not your friend, <b>buddy</b>!</li>+-- +-- Notice that unlike with 'html', it's safe to assume +-- that it will not consume the following closing @\<\/ul\>@ tag,+-- because it does not begin a valid HTML-tree node.+-- +-- Notice also that despite failing in case of the first broken token,+-- this parser handles the broken tokens in other cases the same way as 'html'.+properHTML :: Monad m => Parser m Text.Builder+properHTML =+ cleanTokenSequence >>= \case+ [] -> throwError $ Just $ ErrorDetails_Message "Improper HTML node"+ l -> return $ foldl' (flip mappend) mempty $ map Renderer.token l++cleanTokenSequence :: Monad m => Parser m [HT.Token]+cleanTokenSequence =+ fmap (fmap (either id id)) $+ flip execStateT [] $ fix $ \loop -> lift token >>= \case+ HT.Token_ClosingTag ct -> do+ ours <- state $ \list -> fromMaybe ([], list) $ do+ (l, r) <- Just $ flip break list $ \case+ Right (HT.Token_OpeningTag (n, _, False)) -> n == ct+ _ -> False+ (h, t) <- uncons r+ return (fmap (fmap closeOpeningTag) l <> [h], t)+ loop' <- bool loop (return ()) . null <$> get+ if null ours+ then loop'+ else do+ modify $ mappend $ (:) (Left (HT.Token_ClosingTag ct)) $ fmap (either Left Left) $ ours+ loop'+ t -> do+ modify $ (:) $ Right t+ loop+ where+ closeOpeningTag =+ \case+ HT.Token_OpeningTag (n, a, _) -> HT.Token_OpeningTag (n, a, True)+ x -> x
list-t-html-parser.cabal view
@@ -1,7 +1,7 @@ name: list-t-html-parser version:- 0.2.2.0+ 0.3.0.0 synopsis: Streaming HTML parser category:@@ -24,6 +24,8 @@ Simple cabal-version: >=1.10+extra-source-files:+ hspec/samples/1.html source-repository head