Rename ennu to ennum.

* ennu.el: Rename to ...
* ennum.el: ... this. Replace all instances of ennu with ennum.
* ennu-html.el: Rename to ...
* ennum-html.el: ... this. Replace all instances of ennu with ennum.
* ennu-image.el: Rename to ...
* ennum-image.el: ... this. Replace all instances of ennu with ennum.

1 files changed, 0 insertions, 383 deletions

diff --git a/ennu-html.el b/ennu-html.el
deleted file mode 100644
index 10025bc..0000000
--- a/ennu-html.el
+++ /dev/null
@@ -1,383 +0,0 @@
-;; -*- lexical-binding: t -*-
-
-(require 'ox)
-(require 'subr-x)
-(require 'xmlgen)
-
-(defconst ennu--iso-639-1-alist
-  '(("ab" . "аҧсуа бызшәа, аҧсшәа")
-    ("aa" . "Afaraf")
-    ("af" . "Afrikaans")
-    ("ak" . "Akan")
-    ("sq" . "Shqip")
-    ("am" . "አማርኛ")
-    ("ar" . "العربية")
-    ("an" . "aragonés")
-    ("hy" . "Հայերեն")
-    ("as" . "অসমীয়া")
-    ("av" . "авар мацӀ, магӀарул мацӀ")
-    ("ae" . "avesta")
-    ("ay" . "aymar aru")
-    ("az" . "azərbaycan dili")
-    ("bm" . "bamanankan")
-    ("ba" . "башҡорт теле")
-    ("eu" . "euskara, euskera")
-    ("be" . "беларуская мова")
-    ("bn" . "বাংলা")
-    ("bh" . "भोजपुरी")
-    ("bi" . "Bislama")
-    ("bs" . "bosanski jezik")
-    ("br" . "brezhoneg")
-    ("bg" . "български език")
-    ("my" . "ဗမာစာ")
-    ("ca" . "català")
-    ("ch" . "Chamoru")
-    ("ce" . "нохчийн мотт")
-    ("ny" . "chiCheŵa, chinyanja")
-    ("zh" . "中文 (Zhōngwén), 汉语, 漢語")
-    ("cv" . "чӑваш чӗлхи")
-    ("kw" . "Kernewek")
-    ("co" . "corsu, lingua corsa")
-    ("cr" . "ᓀᐦᐃᔭᐍᐏᐣ")
-    ("hr" . "hrvatski jezik")
-    ("cs" . "čeština, český jazyk")
-    ("da" . "dansk")
-    ("dv" . "ދިވެހި")
-    ("nl" . "Nederlands, Vlaams")
-    ("dz" . "རྫོང་ཁ")
-    ("en" . "English")
-    ("eo" . "Esperanto")
-    ("et" . "eesti, eesti keel")
-    ("ee" . "Eʋegbe")
-    ("fo" . "føroyskt")
-    ("fj" . "vosa Vakaviti")
-    ("fi" . "suomi, suomen kieli")
-    ("fr" . "français, langue française")
-    ("ff" . "Fulfulde, Pulaar, Pular")
-    ("gl" . "galego")
-    ("ka" . "ქართული")
-    ("de" . "Deutsch")
-    ("el" . "ελληνικά")
-    ("gn" . "Avañe'ẽ")
-    ("gu" . "ગુજરાતી")
-    ("ht" . "Kreyòl ayisyen")
-    ("ha" . "(Hausa) هَوُسَ")
-    ("he" . "עברית")
-    ("hz" . "Otjiherero")
-    ("hi" . "हिन्दी, हिंदी")
-    ("ho" . "Hiri Motu")
-    ("hu" . "magyar")
-    ("ia" . "Interlingua")
-    ("id" . "Bahasa Indonesia")
-    ("ie" . "Originally called Occidental; then Interlingue after WWII")
-    ("ga" . "Gaeilge")
-    ("ig" . "Asụsụ Igbo")
-    ("ik" . "Iñupiaq, Iñupiatun")
-    ("io" . "Ido")
-    ("is" . "Íslenska")
-    ("it" . "Italiano")
-    ("iu" . "ᐃᓄᒃᑎᑐᑦ")
-    ("ja" . "日本語 (にほんご)")
-    ("jv" . "ꦧꦱꦗꦮ, Basa Jawa")
-    ("kl" . "kalaallisut, kalaallit oqaasii")
-    ("kn" . "ಕನ್ನಡ")
-    ("kr" . "Kanuri")
-    ("ks" . "कश्मीरी, كشميري‎")
-    ("kk" . "қазақ тілі")
-    ("km" . "ខ្មែរ, ខេមរភាសា, ភាសាខ្មែរ")
-    ("ki" . "Gĩkũyũ")
-    ("rw" . "Ikinyarwanda")
-    ("ky" . "Кыргызча, Кыргыз тили")
-    ("kv" . "коми кыв")
-    ("kg" . "Kikongo")
-    ("ko" . "한국어")
-    ("ku" . "Kurdî, كوردی‎")
-    ("kj" . "Kuanyama")
-    ("la" . "latine, lingua latina")
-    ("lb" . "Lëtzebuergesch")
-    ("lg" . "Luganda")
-    ("li" . "Limburgs")
-    ("ln" . "Lingála")
-    ("lo" . "ພາສາລາວ")
-    ("lt" . "lietuvių kalba")
-    ("lu" . "Tshiluba")
-    ("lv" . "latviešu valoda")
-    ("gv" . "Gaelg, Gailck")
-    ("mk" . "македонски јазик")
-    ("mg" . "fiteny malagasy")
-    ("ms" . "bahasa Melayu, بهاس ملايو‎")
-    ("ml" . "മലയാളം")
-    ("mt" . "Malti")
-    ("mi" . "te reo Māori")
-    ("mr" . "मराठी")
-    ("mh" . "Kajin M̧ajeļ")
-    ("mn" . "Монгол хэл")
-    ("na" . "Dorerin Naoero")
-    ("nv" . "Diné bizaad")
-    ("nd" . "isiNdebele")
-    ("ne" . "नेपाली")
-    ("ng" . "Owambo")
-    ("nb" . "Norsk bokmål")
-    ("nn" . "Norsk nynorsk")
-    ("no" . "Norsk")
-    ("ii" . "ꆈꌠ꒿ Nuosuhxop")
-    ("nr" . "isiNdebele")
-    ("oc" . "occitan, lenga d'òc")
-    ("oj" . "ᐊᓂᔑᓈᐯᒧᐎᓐ")
-    ("cu" . "ѩзыкъ словѣньскъ")
-    ("om" . "Afaan Oromoo")
-    ("or" . "ଓଡ଼ିଆ")
-    ("os" . "ирон æвзаг")
-    ("pa" . "ਪੰਜਾਬੀ")
-    ("pi" . "पाऴि")
-    ("fa" . "فارسی")
-    ("pl" . "język polski, polszczyzna")
-    ("ps" . "پښتو")
-    ("pt" . "Português")
-    ("qu" . "Runa Simi, Kichwa")
-    ("rm" . "rumantsch grischun")
-    ("rn" . "Ikirundi")
-    ("ro" . "Română")
-    ("ru" . "Русский")
-    ("sa" . "संस्कृतम्")
-    ("sc" . "sardu")
-    ("sd" . "सिन्धी, سنڌي، سندھی‎")
-    ("se" . "Davvisámegiella")
-    ("sm" . "gagana fa'a Samoa")
-    ("sg" . "yângâ tî sängö")
-    ("sr" . "српски језик")
-    ("gd" . "Gàidhlig")
-    ("sn" . "chiShona")
-    ("si" . "සිංහල")
-    ("sk" . "slovenčina, slovenský jazyk")
-    ("sl" . "slovenski jezik, slovenščina")
-    ("so" . "Soomaaliga, af Soomaali")
-    ("st" . "Sesotho")
-    ("es" . "Español")
-    ("su" . "Basa Sunda")
-    ("sw" . "Kiswahili")
-    ("ss" . "SiSwati")
-    ("sv" . "svenska")
-    ("ta" . "தமிழ்")
-    ("te" . "తెలుగు")
-    ("tg" . "тоҷикӣ, toçikī, تاجیکی‎")
-    ("th" . "ไทย")
-    ("ti" . "ትግርኛ")
-    ("bo" . "བོད་ཡིག")
-    ("tk" . "Türkmen, Түркмен")
-    ("tl" . "Wikang Tagalog")
-    ("tn" . "Setswana")
-    ("to" . "faka Tonga")
-    ("tr" . "Türkçe")
-    ("ts" . "Xitsonga")
-    ("tt" . "татар теле, tatar tele")
-    ("tw" . "Twi")
-    ("ty" . "Reo Tahiti")
-    ("ug" . "ئۇيغۇرچە‎, Uyghurche")
-    ("uk" . "Українська")
-    ("ur" . "اردو")
-    ("uz" . "Oʻzbek, Ўзбек, أۇزبېك‎")
-    ("ve" . "Tshivenḓa")
-    ("vi" . "Tiếng Việt")
-    ("vo" . "Volapük")
-    ("wa" . "walon")
-    ("cy" . "Cymraeg")
-    ("wo" . "Wollof")
-    ("fy" . "Frysk")
-    ("xh" . "isiXhosa")
-    ("yi" . "ייִדיש")
-    ("yo" . "Yorùbá")
-    ("za" . "Saɯ cueŋƅ, Saw cuengh")
-    ("zu" . "isiZulu")))
-
-(defun expand-file-name* (name default-directory)
-  (expand-file-name name (concat "/" default-directory)))
-
-(org-export-define-derived-backend 'ennu-html 'html
-  :translate-alist
-  '((inner-template . ennu-html-inner-template)
-    (link . ennu-html-link))
-  :options-alist
-  '((:summary "SUMMARY" nil nil parse)
-    (:thumbnail "THUMBNAIL" nil nil t)
-    (:translation-group "TRANSLATION_GROUP" nil nil t)))
-
-(defun ennu-html-inner-template (contents info)
-  (concat
-   ;; Table of contents
-   (let ((depth (plist-get info :with-toc)))
-     (when depth (org-html-toc depth info)))
-   ;; Beginning of h-entry
-   "<article class=\"h-entry\">"
-   ;; Title
-   (format "<h1 class=\"p-name\">%s</h1>\n"
-           (org-export-data (plist-get info :title) info))
-   ;; Author and date
-   (let ((author (when (plist-get info :with-author)
-                   (plist-get info :author)))
-         (date (when (plist-get info :with-date)
-                 (org-export-get-date info))))
-     (when (or author date)
-       (xmlgen `(p "Published"
-                   ,@(when author
-                       `(" by "
-                         (a :class "p-author h-card"
-                            :href ,(ennu--absolute-uri "")
-                            ,(car (plist-get info :author)))))
-                   ,@(when date
-                       `(" on "
-                         (time :class "dt-published"
-                               :datetime ,(org-export-get-date info "%Y-%m-%d 12:00:00")
-                               ,(org-export-get-date info "%B %d, %Y"))))))))
-   ;; Interlanguage language links
-   (when-let (translations (plist-get info :translations))
-     (format "<p>In other languages: %s</p>"
-             (mapconcat
-              (lambda (translation)
-                (let ((lang (ennu-post-language translation))
-                      (slug (ennu-post-slug translation)))
-                  (replace-regexp-in-string
-                   "<a " (format "<a hreflang=\"%s\" " lang)
-                   (ennu-export-post slug
-                                     (map-elt ennu--iso-639-1-alist lang nil 'string=)
-                                     (org-export-backend-name
-                                      (plist-get info :back-end))))))
-              translations
-              ", ")))
-   ;; Tags
-   (when-let (tags (plist-get info :filetags))
-     (format "<p>Tags: %s</p>"
-             (mapconcat
-              (lambda (tag)
-                (replace-regexp-in-string
-                 "<a " "<a class=\"p-category\" "
-                 (ennu-export-tag (ennu-add-tongue-suffix tag (plist-get info :language))
-                                  tag (org-export-backend-name (plist-get info :back-end)))))
-              tags
-              ", ")))
-   ;; Summary
-   (format "<div class=\"p-summary\">%s</div>"
-           (org-export-data (plist-get info :summary) info))
-   ;; Document contents
-   (format "<div class=\"e-content\">%s</div>" contents)
-   ;; Footnotes section
-   (org-html-footnote-section info)
-   "</article>"))
-
-(defun ennu-html-link (link desc info)
-  ;; We override the html link transcoder to handle image links
-  ;; differently. We cannot use the `:export' property of
-  ;; `org-link-parameters' since those functions cannot access the
-  ;; `info' communication channel.
-  (let ((path (org-element-property :path link)))
-    (pcase (org-element-property :type link)
-      ("image"
-       ;; Convert image links to file links, get them transcoded by
-       ;; `org-html-link' and then remove the file:// scheme from the
-       ;; URI. Finally insert the transcoded image link in a link to a
-       ;; larger image as specified by the :image-link-width setting.
-       (format "<a href=\"%s\">%s</a>"
-               (expand-file-name*
-                (ennu-image-output-filename
-                 path (ennu-setting :image-link-width))
-                (ennu-setting :images-directory))
-               (replace-regexp-in-string
-                (rx (group (or "src" "data")) "=\"file://") "\\1=\""
-                (org-html-link
-                 (org-element-put-property
-                  (org-element-put-property
-                   link :path (url-encode-url
-                               (expand-file-name*
-                                (ennu-image-output-filename
-                                 path (ennu-setting :default-image-width))
-                                (ennu-setting :images-directory))))
-                  :type "file")
-                 desc info))))
-      ;; Pass other link types to org-html-link
-      (_ (org-html-link link desc info)))))
-
-(defmacro ennu-follow (path)
-  `(ennu-with-current-directory (ennu-setting :working-directory)
-     (find-file ,path)))
-
-;; TODO: Pass title through org-export-data-with-backend or something
-;; similar in order to export org syntax in title
-(defun ennu-export-post (path desc backend)
-  (pcase backend
-    ((or 'ennu-html 'html)
-     (let ((filename (concat (expand-file-name path (ennu-setting :posts-directory))
-                             ".org")))
-       (xmlgen `(a :href ,(url-encode-url
-                           (expand-file-name* path (ennu-setting :posts-directory)))
-                   ,(or desc (ennu-post-title (ennu-read-post filename)))))))))
-
-(defun ennu-follow-post (path)
-  (ennu-follow (expand-file-name (concat path ".org")
-                                 (ennu-setting :posts-directory))))
-
-(org-link-set-parameters
- "post"
- :export 'ennu-export-post
- :follow 'ennu-follow-post)
-
-(defun ennu-follow-image (path)
-  (ennu-follow (expand-file-name path (ennu-setting :images-directory))))
-
-(org-link-set-parameters
- "image" :follow 'ennu-follow-image)
-
-(defun ennu-export-thumbnail (path desc backend)
-  (pcase backend
-    ((or 'ennu-html 'html)
-     (xmlgen
-      `(img :src ,(url-encode-url
-                   (expand-file-name*
-                    (ennu-image-output-filename
-                     path (ennu-setting :thumbnail-image-width))
-                    (ennu-setting :images-directory))))))))
-
-(org-link-set-parameters
- "thumbnail"
- :export 'ennu-export-thumbnail
- :follow 'ennu-follow-image)
-
-(defun ennu-export-video (path desc backend)
-  (pcase backend
-    ((or 'ennu-html 'html)
-     (let ((video-directory (ennu-setting :video-directory)))
-       (xmlgen
-        `(video :src ,(url-encode-url (expand-file-name* path video-directory))
-                :poster ,(url-encode-url
-                          (expand-file-name* (ennu-video-poster path) video-directory))
-                :preload "none"
-                :controls ""))))))
-
-(org-link-set-parameters
- "video" :export 'ennu-export-video)
-
-(defun ennu-export-static (path desc backend)
-  (pcase backend
-    ((or 'ennu-html 'html)
-     (xmlgen
-      `(a :href ,(url-encode-url
-                  (expand-file-name* path (ennu-setting :static-directory)))
-          ,desc)))))
-
-(org-link-set-parameters
- "static" :export 'ennu-export-static)
-
-(org-link-set-parameters
- "tangle" :export 'ennu-export-static)
-
-(defun ennu-export-tag (tag desc backend)
-  (pcase backend
-    ((or 'ennu-html 'html)
-     (xmlgen
-      `(a :href ,(url-encode-url
-                  (expand-file-name* tag (ennu-setting :tag-directory)))
-          ,(or desc tag))))))
-
-(org-link-set-parameters
- "tag" :export 'ennu-export-tag)
-
-(provide 'ennu-html)