Date: Tue, 6 Feb 2018 05:33:32 +0100 Subject: no pandoc dependencies --- article/duckduckgo-google-en-mieux.html | 236 -------------------------- article/duckduckgo-google-en-mieux_intro.html | 10 -- article/duckduckgo_google_en_mieux.html | 235 ------------------------- src/Id.hs | 19 --- src/Secret.hs | 46 ----- src/articleFilter.hs | 55 ------ src/introFilter.hs | 51 ------ src/titleFilter.hs | 36 ---- 8 files changed, 688 deletions(-) delete mode 100644 article/duckduckgo-google-en-mieux.html delete mode 100644 article/duckduckgo-google-en-mieux_intro.html delete mode 100644 article/duckduckgo_google_en_mieux.html delete mode 100644 src/Id.hs delete mode 100644 src/Secret.hs delete mode 100644 src/articleFilter.hs delete mode 100644 src/introFilter.hs delete mode 100644 src/titleFilter.hs diff --git a/article/duckduckgo-google-en-mieux.html b/article/duckduckgo-google-en-mieux.html deleted file mode 100644 index 037c128..0000000 --- a/article/duckduckgo-google-en-mieux.html +++ /dev/null @@ -1,236 +0,0 @@ - - - - - - Licornes, hérissons et renards - - - - - - - - - - - - - -

DuckDuckGo, Google en mieux ?

- -

Logo DuckDuckGo

- -

Depuis un certain temps déjà, Google ne se consacre plus entièrement à -son moteur de recherche. En effet, la firme est déjà bien implentée dans -la plupart des pays occidentaux où elle est le site le plus visité. Mais -la concurrence, elle, s'est développée. Les moteurs de recherches tels -que DuckDuckGo évoluent avec le temps, jusqu'à devenir plus pratique et -ergonomique que Google.

- -

DuckDuckGo est un moteur de recherche assez jeune mais qui a beaucoup -d'avenir. En effet, il allie rapidité et fonctionnalités innovantes, -tout en conservant la vie privée de l'utilisateur

- -

Bang !

- -

Vous connaissiez le “I’m Feeling Lucky” de Google (“J'ai de la chance” -en français). DuckDuckGo lui propose une fonctionnalité similaire du nom -de “I’m Feeling Ducky”. En effet, il suffit de placer un point -d'exclamation (“bang” en anglais) dans les termes de votre recherche -afin d'arriver directement sur le premier résultat. Mais ce n'est pas -tout, sinon !Bang n'aurait rien d'innovant. DuckDuckGo permet d'accéder -simplement à certains sites environs une centaine. Par exemple, “!wfr” -permet d'afficher directement la page d'accueil de Wipipédia en Français -(“!w” pour la version anglaise). On peut remarquer notamment “!sdz” qui -permet d'afficher directement la page d'accueil du site du zéro. Il -existe pour tous les sites couramment utilisés comme FaceBook par -exemple (“!fb”).

- -

Toujours pas convaincu ? !Bang peut également prendre des arguments dans -ces !Bang afin de créer une véritable ligne de commande. On peut ainsi -directement accéder à l'article DuckDuckGo de Wikipédia en français en -tapants simplement “!wfr DuckDuckGo”. Et cela fonctionne avec énormément -de mot-clé comme “!ixquick”, “!sp”, “!g” (Google), “!answers”, …

- -

DuckDuckGo devient ainsi une véritable ligne de commande dans votre -navigateur Web. De quoi satisfaire les adeptes de la console. D'ailleur -de nombreux !Bang son adapté au developpement comme “!cpp” pour la man -du C++ ou encore “!golang” pour une recherche dans la documentation de -GO (le langage de programmation)

- -

Vous pouvez consulter la liste des -!Bang en tappant “!Bang” dans -DuckDuckGo.

- -

Zero Click Infobox

- -

ZéroClickBox

- -

Mais qu'est-ce dont encore ce truc-là ? La Zéro Click Infobox, est une -boite d'information apparaissant avant les premiers liens et qui essaye -de vous apporter l'information que vous recherchez sans que vous ayez -besoin de visiter un quelconque autre site. Pratique quand on est -pressé. Elle vous propose également quelques liens utiles à tout début -de recherche.

- -

Afin d'apporter l'information, la Zero Click Infobox va s'appuyer sur -d'autres sites comme Wikipédia. Elle permet aussi comme la calculatrice -de Google -d'effectuer des calculs directement dans le champ de recherche. Là où -DuckDuckGo innove, c'est dans la précision. En effet, Google se plante -assez minablement dans des calculs simples pour des raisons des -précisions. On connait tous le célèbre “399 999 999 999 999 - 399 999 -999 999 998 = -0” -de Google. Pour pallier ce problème de précision, DuckDuckGo va -directement chercher sur WorlFramAlpha afin de faire les calculs les -plus compliqués (Il traite cependant les plus simples).

- -

Mais quitte à utiliser WolframAlpha … autant utiliser toutes les -fonctionnalités disponibles … C'est ce que propose DuckDuckGo. Ainsi, -on peut retrouver certaines informations très rapidement “mass of -jupiter” par exemple ou encore “base64 Hello World” qui donne -directement “SGVsbG8gV29ybGQ=”. Ce système de conversion marche -également pour le binaire, rot13, SHA, … Plus d'info et de -fonctionnalités sur leur page d'information tech -Goodies . Toutes les lister seraient -trop long.

- -

Respect de la vie privée

- -

Contrairement à Google, DuckDuckGo respecte la vie privée de ses -utilisateurs. DuckDuckGo reproche à Google de personnaliser les -recherches et de créer une sorte de bulle qui réduit les résultats en -fonction de vos centres d'intérèts et donc ainsi réduire le nombre -d'information auxquelles vous avez accès. DuckDuckGo lui propose donc -les mèmes résultats pour tous les utilisateurs. Voir la page -dontbubble.us pour plus d'informations.

- -

Par ailleurs DuckDuckGo est totalement contre le tracking. Son slogan -est d'ailleurs “Google tracks you. We don’t.” . D'ailleurs, DuckDuckGo -n'utilise pas de Coockies (mis à part pour les préférences, mais il -propose également une alternative aux Cookies par URL) et ne stocke -aucun historique des requètes. Leur campagne -donttrack.us essaye d'ailleurs d'ètre assez -choquante.

- -

Encore plus de respect de la vie privée ? DuckDuckGo propose la -recherche anonyme par l'utilisation de TOR. Ou comment arriver à -l'anonymat le plus totale. Vous pouvez également utiliser la version -HTTPS qui utilise donc une couche de chiffrement SSL pour que tout soit -chiffré du début à la fin.

- -

Un Moteur de recherche proche de ses utilisateurs

- -

DuckDuckGo est le seul moteur de recherche que je connaisse aussi ouvert -et aussi à l'écoute de ses utilisateurs. DuckDuckGo vous permets -d'ajouter vos propres !Bang au -site (s'il y a plusieurs demandes, ils l'ajouteront). C'est certainement -comme cela qu'on peut retrouver “!sdz” comme !Bang.

- -

Pour les utilisateurs trouvant le moteur trop gourmand, DuckDuckGo -propose également une version lite de son moteur de recherche. Celui-ci -est cependant basique mais l'initiative est preuve de la bonne volonté -de DuckDuckGo de vouloir bien faire.

- -

DuckDuckGo est aussi une petite communauté. En effet, en plus d'ètre -totalement transparent sur leurs informations (code source, info -trafique , …), ils vous proposent -mème de participer à l'amélioration du Wiki, de la traduction de -DuckDuckGo, au développement du site, ou tout simplement de discuter sur -des améliorations à apporter sur #duckduckgo sur Freenode. Voir la -plateforme de développement

- -

DuckDuckGo est ainsi une véritable mine d'or. Proposant de nombreuses -fonctionnalités innovantes. Il est de ce fait un des meilleurs moteurs -de recherche du moment. Personnellement, je l'adopte. Je découvre de -plus en plus de fonctionnalité en l'utilisant quotidiennement et ça fait -vraiment plaisir de gagner chaque jour en ergonomie. DuckDuckGo vient -récemment de dépasser le million de requètes par jour.

- -

Consulter la page d'accueil de DuckDuckGo pour plus d'info sur -l'utilisation du moteur de recherche.

- -

- - - - - diff --git a/article/duckduckgo-google-en-mieux_intro.html b/article/duckduckgo-google-en-mieux_intro.html deleted file mode 100644 index 8eec3d8..0000000 --- a/article/duckduckgo-google-en-mieux_intro.html +++ /dev/null @@ -1,10 +0,0 @@ -

DuckDuckGo, Google en mieux ?

Logo DuckDuckGo

-Lire la suite -

diff --git a/article/duckduckgo_google_en_mieux.html b/article/duckduckgo_google_en_mieux.html deleted file mode 100644 index 0e01ce2..0000000 --- a/article/duckduckgo_google_en_mieux.html +++ /dev/null @@ -1,235 +0,0 @@ - - - - - - Licornes, hérissons et renards - - - - - - - - - - - - - -

DuckDuckGo, Google en mieux ?

- -

Logo DuckDuckGo

- -

DuckDuckGo est un moteur de recherche assez jeune mais qui a beaucoup -d'avenir. En effet, il allie rapidité et fonctionnalités innovantes, -tout en conservant la vie privée de l'utilisateur

- -

Bang !

- -

Vous pouvez consulter la liste des -!Bang en tappant “!Bang” dans -DuckDuckGo.

- -

Zero Click Infobox

- -

ZéroClickBox

- -

Respect de la vie privée

- -

Un Moteur de recherche proche de ses utilisateurs

- -

Consulter la page d'accueil de DuckDuckGo pour plus d'info sur -l'utilisation du moteur de recherche.

- -

- - - - - diff --git a/src/Id.hs b/src/Id.hs deleted file mode 100644 index adc7e2e..0000000 --- a/src/Id.hs +++ /dev/null @@ -1,19 +0,0 @@ -module Id -( newId, - nextId -) where - -{- - - - - Écrit par Hédy GIRAUDEAU - - 27/07/17 - - --} - -import Data.IORef -import Data.Functor - -type Id_number a = IORef a - -newId = (newIORef 0) -nextId cnt = modifyIORef cnt (+1) >> (+0) <$> readIORef cnt diff --git a/src/Secret.hs b/src/Secret.hs deleted file mode 100644 index 7b428ce..0000000 --- a/src/Secret.hs +++ /dev/null @@ -1,46 +0,0 @@ -module Secret -( to_secret -) where - - -{- - - - - Écrit par Hédy GIRAUDEAU - - 27/07/17 - - --} - - - -import Text.Pandoc -import Text.Pandoc.JSON - - -firstLine :: [Inline] -> ([Inline],[Inline]) -firstLine [] = ([],[]) -firstLine ((SoftBreak) : x) = ([], x) -firstLine (x:q) = ([x] ++ y, z) where (y,z) = (firstLine q) - - - - -to_secret (BlockQuote (Para (Str(first) : inlines) : blocks)) = - Div - ("", ["secret"], []) - ([ - RawBlock (Format "html") - (start_detail ++ start_summary) - ] ++ [Plain $ fLine] ++ [ - RawBlock (Format "html") - (end_summary) - ] ++ [ Plain rest ]++ blocks ++ [ - RawBlock (Format "html") - (end_detail) - ] - ) - where start_detail = "

" - start_summary = "

" - end_detail = "

" - end_summary = "" - (fLine, rest) = firstLine inlines - diff --git a/src/articleFilter.hs b/src/articleFilter.hs deleted file mode 100644 index a94cd3d..0000000 --- a/src/articleFilter.hs +++ /dev/null @@ -1,55 +0,0 @@ -import Text.Pandoc -import Text.Pandoc.JSON -import Control.Monad.State -import Id - - -{- - - Écrit par Hédy GIRAUDEAU - - 27/07/17 --} -extractStart :: [Inline] -> ([Inline],[Inline]) -extractStart [] = ([],[]) -extractStart ((SoftBreak):q) = ((SoftBreak):y, z) where (y,z) = (extractStart q) -extractStart ((LineBreak):q) = ((LineBreak):y, z) where (y,z) = (extractStart q) -extractStart (img@(Image _ _ _):q) = (img: y, z) where (y,z) = (extractStart q) -extractStart x = ([],x) - - - - -transformBlock cnt ( hdF@(Header 1 _ inlines) : paraF@(Para inlinesP) : blocks ) = - return (( (RawBlock (Format "html") - ( start_header ) - ) : hdF : - (RawBlock (Format "html") - ( end_header ) - ) : (Plain inlinesP) : - (RawBlock (Format "html") - ( end_intro ) - ) : blocks - ) ++ [ (RawBlock (Format "html") - (end_article) ) - ]) - where start_header = "

" - end_header = "

" - end_intro = "" - end_article = "

" - ---transformBlock _ ((Para inlines):tl) = --- return ((Plain plainInline):(Para paraInline:tl)) --- where (plainInline, paraInline) = extractStart(inlines) - - -transformBlock _ x = return x - - -bar :: Pandoc -> IO Pandoc -bar x = do cnt <- newId - bottomUpM (transformBlock cnt) x - -main :: IO() -main = toJSONFilter bar - - --- vim:set et: diff --git a/src/introFilter.hs b/src/introFilter.hs deleted file mode 100644 index 93603c0..0000000 --- a/src/introFilter.hs +++ /dev/null @@ -1,51 +0,0 @@ -import Text.Pandoc -import Text.Pandoc.JSON -import Control.Monad.State -import Id - - -{- - - Écrit par Hédy GIRAUDEAU - - 27/07/17 --} -firstPara :: [Block] -> [Block] -firstPara [] = [] -firstPara (p@(Para x):blocks) = [(Para x)] -firstPara (x:blocks) = (firstPara blocks) - -setMignature (id, classes, mapsAttrib) = (id, "miniature":classes, mapsAttrib) - - -purgePara (Para (Image x y (trgt,title):_)) = (Para [(Image (setMignature x) y ("article/" ++ trgt, title))]) -purgePara (Para (x:t)) = purgePara (Para t) -purgePara (Para []) = (Para []) - -transformBlock cnt ( hdF@(Header 1 _ inlines) : paraF@(Para inlinesP) : blocks ) = - return (( (RawBlock (Format "html") - ( start_header ) - ) : hdF : - (RawBlock (Format "html") - ( end_header ) - ) : purgePara(paraF) : firstPara(blocks) - ) ++ [ (RawBlock (Format "html") - (end_article) ) - ]) - where start_header = "

" - end_header = "

" - end_intro = "" - end_article = "

" - - - -transformBlock _ x = return x - - -bar :: Pandoc -> IO Pandoc -bar x = do cnt <- newId - bottomUpM (transformBlock cnt) x - -main :: IO() -main = toJSONFilter bar - - --- vim:set et: diff --git a/src/titleFilter.hs b/src/titleFilter.hs deleted file mode 100644 index c215253..0000000 --- a/src/titleFilter.hs +++ /dev/null @@ -1,36 +0,0 @@ -import Text.Pandoc -import Text.Pandoc.JSON - -{- - - Écrit par Hédy GIRAUDEAU - - 27/07/17 --} - - -{- Convertit une liste de Inline (sorte de span, contie du formatage légé de - - texte) vers une chaine de caractère normal -} - -toString :: [Inline] -> String -toString [] = "" -toString inls@((Str f):tl) = f ++ (toString tl) -toString inls@((Space):tl) = " " ++ (toString tl) -toString inls@((Emph inls2):tl) = (toString inls2) ++ (toString tl) -toString inls@((SmallCaps inls2):tl) = (toString inls2) ++ (toString tl) -toString inls@((Strong inls2):tl) = (toString inls2) ++ (toString tl) -toString (_:tl) = (toString tl) - - -transformBlock :: [Block] -> [Block] -transformBlock ( hdF@(Header 1 _ inlines) : _ ) = [(Plain [(Str (toString inlines))])] - -transformBlock x = x - - -bar :: Pandoc -> Pandoc -bar x = bottomUp transformBlock x - -main :: IO() -main = toJSONFilter bar - - --- vim:set et: -- cgit v1.2.3-54-g00ecf