fronde 0.5.0 → 0.6.0

checksums.yaml

@@ -1,7 +1,7 @@
 ---
 SHA256:
-  metadata.gz: 8691e788789cb725772213237a67731dc67ae77eeecc8d1d409e6779d94a22c8
-  data.tar.gz: d2f67191b421f902e1b41d7845fc07026843e227cfd3f70cdeff0f4d87e36b8e
+  metadata.gz: 2d233f108a209e4d5a02633de060293ce6f4981393555ebf5f53f16a25f6d3d0
+  data.tar.gz: 9efa6cd46fc4d6d33e98bcee3e7cb1dd43a179736bafb552f6ac3e7a8c5bb8ae
 SHA512:
-  metadata.gz: b8d3fa0a8bbfbcdecbf7a65ffc93b420876ddb27acf574a5a1a066b988ce2e039ff780b0a71bd6056f3a75b52072f4c37489135a6ead712e0a728f8385453de2
-  data.tar.gz: d2bd28e4fa15b156a83c61b79426f74e3e48534cfe483f92a03dd3d9a4a0675252843bb991bbb114f45421865b52e6b7f6f7dd500261cc0d8236063838f7baf4
+  metadata.gz: a1c7f18af62f3fbd02be2f025c7d6305a7ea1c3751a35490eee4402de3a4aebf11c211cc3efcc4d57d0b82e99807a439ef920eb67182f0f8313905b20d89fd15
+  data.tar.gz: 315634038a4eb1df1c07f019894a0b86b591649f58068d771811bc0bbb92402cc03f79ada03f716caae0e8219075937d1df63ab3e6453827fadb03763203d4da

data/lib/ext/nil_time.rb

@@ -10,12 +10,9 @@ class NilTime
     ''
   end
 
-  def l18n_short_date_string
-    ''
-  end
-
-  def l18n_long_date_string(*)
-    ''
+  %i[l18n_short_date_string l18n_long_date_string
+     l18n_long_date_no_year_string].each do |name|
+    define_method(name) { '' }
   end
 
   def l18n_short_date_html

data/lib/ext/time.rb

@@ -1,8 +1,5 @@
 # frozen_string_literal: true
 
-require_relative 'r18n'
-using R18nPatch
-
 # Monkey patch to add some helpers
 module TimePatch
   refine Time do
@@ -10,7 +7,7 @@ module TimePatch
     #
     # @return [String] the localized Time string representation
     def l18n_short_date_string
-      R18n.l to_date
+      I18n.l to_date
     end
 
     # Format the current Time as a HTML `time` tag showing a short date.
@@ -22,11 +19,17 @@ module TimePatch
 
     # Returns the current Time instance as a localized long string.
     #
-    # @param with_year [Boolean] whether or not the string must contain
-    #   the year
     # @return [String] the localized Time string representation
-    def l18n_long_date_string(with_year: true)
-      R18n.t.long_date_string(self, with_year: with_year)
+    def l18n_long_date_string
+      I18n.l self, format: :long
+    end
+
+    # Returns the current Time instance as a localized long string
+    #   without year.
+    #
+    # @return [String] the localized Time string representation
+    def l18n_long_date_no_year_string
+      I18n.l self, format: :long_no_year
     end
 
     # Format the current Time as a HTML `time` tag showing a long date.

data/lib/ext/time_no_time.rb

@@ -1,20 +1,24 @@
 # frozen_string_literal: true
 
-require_relative 'r18n'
-using R18nPatch
-
 using TimePatch
 
 # A time emulator to keep the fact that the time information was
 # missing, even if it behaves as a Time object for the given date.
 class TimeNoTime < Time
-  # Returns the current Time instance as a localized long string.
+  # Returns the current Time instance as a localized long string
+  #   without time.
+  #
+  # @return [String] the localized Time string representation
+  def l18n_long_date_string
+    I18n.l self, format: :long_no_time
+  end
+
+  # Returns the current Time instance as a localized long string
+  #   without time nor year.
   #
-  # @param with_year [Boolean] wether or not the string must contain the
-  #   year
   # @return [String] the localized Time string representation
-  def l18n_long_date_string(with_year: true)
-    R18n.t.long_date_string(self, with_year: with_year, with_time: false)
+  def l18n_long_date_no_year_string
+    I18n.l self, format: :long_no_time_no_year
   end
 
   def self.parse_no_time(string)

data/lib/fronde/cli/commands.rb

@@ -71,26 +71,26 @@ module Fronde
         @command = @argv.shift || 'basic' if @command == 'help'
         cmd_opt = OptParse.command_options(@command)
         label = cmd_opt[:label] || @command
-        output = [format_label(R18n.t.fronde.bin.usage(label))]
+        output = [format_label(I18n.t('fronde.bin.usage', label:))]
         cmd = cmd_opt[:name] || @command
-        output << format_label(R18n.t.fronde.bin.commands[cmd])
+        output << format_label(I18n.t("fronde.bin.commands.#{cmd}"))
         output << OptParse.help_command_body(cmd)
-        warn output.join
+        puts output.join
         true
       end
 
       private
 
       def format_label(label)
-        return '' if label == '' || label.is_a?(R18n::Untranslated)
+        return '' if label == '' || label.start_with?('Translation missing:')
 
-        format("%<label>s\n\n", label: label)
+        format("%<label>s\n\n", label:)
       end
 
       def file_name_from_title
-        title = @options[:title] || R18n.t.fronde.bin.options.default_title
+        title = @options[:title] || I18n.t('fronde.bin.options.default_title')
         # No title, nor a reliable file_path? Better abort
-        raise R18n.t.fronde.error.bin.no_file if title == ''
+        raise I18n.t('fronde.error.bin.no_file') if title == ''
 
         "#{Fronde::Slug.slug(title)}.org"
       end

data/lib/fronde/cli/data/fish_completion

@@ -0,0 +1,20 @@
+function __fronde_main_commands
+  echo {{ comcomp }}
+end
+
+function __fronde_no_command_yet
+  set -f cmd (__fish_print_cmd_args_without_options)
+  {%- for com in commands %}
+  {% unless forloop.first %}and {% endunless %}not contains {{ com }} $cmd
+  {%- endfor %}
+end
+
+complete -c fronde -e
+complete -c fronde -f
+complete -c fronde -x -n '__fronde_no_command_yet' -a '(__fronde_main_commands)'
+complete -c fronde -n 'contains help (__fish_print_cmd_args_without_options)' -a '{{ commands | join ' ' }}'
+complete -c fronde -n 'contains new (__fish_print_cmd_args_without_options)' -F
+complete -c fronde -n 'contains open (__fish_print_cmd_args_without_options)' -F
+{%- for compopt in details %}
+complete -c fronde{% unless compopt.command == 'basic' %} -n 'contains {{ compopt.command }} (__fish_print_cmd_args_without_options)'{% endunless %} -s {{ compopt.short_no_dash }} -l {{ compopt.long_no_dash }}{% if compopt.keyword %} -r{% endif %}{% if compopt.choices %} -a '{{ compopt.choices | join ' ' }}'{% endif %} -d {% if compopt.help %}'{{ compopt.help }}'{% else %}{{ compopt.long_no_dash | capitalize }}{% endif %}
+{%- endfor %}

data/lib/fronde/cli/helpers.rb

@@ -1,7 +1,5 @@
 # frozen_string_literal: true
 
-require 'uri'
-require 'net/http'
 require 'fileutils'
 
 module Fronde

data/lib/fronde/cli/opt_parse.rb

@@ -10,13 +10,13 @@ module Fronde
         '-a' => { long: 'author' },
         '-f' => { long: 'force', boolean: true },
         '-h' => { long: 'help', boolean: true, method: :on_tail,
-                  help: R18n.t.fronde.bin.options.help },
+                  help: I18n.t('fronde.bin.options.help') },
         '-l' => { long: 'lang', keyword: 'LOCALE' },
         '-o' => { long: 'output', keyword: 'FORMAT', choices: %w[gemini html] },
         '-t' => { long: 'title' },
         '-v' => { long: 'verbose', boolean: true, method: :on_tail },
         '-V' => { long: 'version', boolean: true, method: :on_tail,
-                  help: R18n.t.fronde.bin.options.version }
+                  help: I18n.t('fronde.bin.options.version') }
       }.freeze
 
       # TODO: jekyll new [path] / jekyll build / jekyll clean / jekyll serve
@@ -28,13 +28,13 @@ module Fronde
       FRONDE_COMMANDS = {
         'new' => { opts: ['-a', '-l', '-o', '-t', '-v'], label: 'new <path>' },
         'init' => { alias: 'new' },
-        'update' => {},
+        'update' => { opts: ['-v'] },
         'config' => { alias: 'update' },
         'preview' => {},
-        'open' => { opts: ['-a', '-l', '-t', '-v'], label: 'open <path>' },
+        'open' => { opts: ['-a', '-l', '-t'], label: 'open <path>' },
         'edit' => { alias: 'open' },
-        'build' => { opts: ['-f'] },
-        'publish' => {},
+        'build' => { opts: ['-f', '-v'] },
+        'publish' => { opts: ['-v'] },
         'help' => {},
         'basic' => { opts: ['-h', '-V'], label: '<command>' }
       }.freeze
@@ -59,7 +59,7 @@ module Fronde
             config = [short, long]
           else
             key = opt[:keyword] || opt[:long].upcase
-            config = [short, format('%<long>s %<key>s', long: long, key: key)]
+            config = [short, format('%<long>s %<key>s', long:, key:)]
           end
           config.push opt[:choices], opt[:help]
           config.compact
@@ -86,9 +86,9 @@ module Fronde
           command_opts_doc = summarize_command(command)
           return '' if command_opts_doc == ''
 
-          body = [R18n.t.fronde.bin.options.cmd_title, command_opts_doc]
+          body = [I18n.t('fronde.bin.options.cmd_title'), command_opts_doc]
           if command == 'basic'
-            body += ['', R18n.t.fronde.bin.commands.cmd_title, list_commands]
+            body += ['', I18n.t('fronde.bin.commands.cmd_title'), list_commands]
           end
           body.join("\n")
         end
@@ -102,9 +102,9 @@ module Fronde
 
             line = ['   ', cmd.ljust(10)]
             if opt.has_key? :alias
-              line << R18n.t.fronde.bin.commands.alias(opt[:alias])
+              line << I18n.t('fronde.bin.commands.alias', alias: opt[:alias])
             else
-              line << R18n.t.fronde.bin.commands[cmd]
+              line << I18n.t("fronde.bin.commands.#{cmd}")
             end
             line.join(' ')
           end.join("\n")

data/lib/fronde/cli/throbber.rb

@@ -35,11 +35,11 @@ module Fronde
         raise e
         # :nocov: not sure how to emulate a Ctrl+c in rspec
       rescue Interrupt => e
-        show_message Rainbow(R18n.t.fronde.bin.interrupted).red, "\n"
+        show_message Rainbow(I18n.t('fronde.bin.interrupted')).red, "\n"
         raise e
         # :nocov:
       else
-        show_message Rainbow(R18n.t.fronde.bin.done).green, "\n"
+        show_message Rainbow(I18n.t('fronde.bin.done')).green, "\n"
       end
 
       class << self
@@ -56,10 +56,16 @@ module Fronde
         #
         # @param thread [Thread] the long-running operation to decorate
         # @param message [String] the message to display before the throbber
+        # @param verbose [Boolean] whether the decoration should be shown
+        #   or skipped
         # @return [void]
-        def run(thread, message)
-          throbber = new(thread, message)
-          throbber.run
+        def run(thread, message, verbose)
+          if verbose
+            thread.join
+          else
+            throbber = new(thread, message)
+            throbber.run
+          end
         end
       end
 
@@ -93,8 +99,8 @@ module Fronde
           format(
             "%<message>s %<label>s\n%<explanation>s",
             message: @message,
-            label: Rainbow(R18n.t.fronde.error.bin.label).bold.red,
-            explanation: Rainbow(R18n.t.fronde.error.bin.explanation).bold
+            label: Rainbow(I18n.t('fronde.error.bin.label')).bold.red,
+            explanation: Rainbow(I18n.t('fronde.error.bin.explanation')).bold
           )
         )
       end

data/lib/fronde/cli.rb

@@ -51,7 +51,7 @@ module Fronde
       def method_unknown?(method)
         return false if respond_to?(method)
 
-        warn R18n.t.fronde.error.bin.no_command
+        warn I18n.t('fronde.error.bin.no_command')
         fronde_help
         true
       end

data/lib/fronde/config/data/ox-fronde.el

@@ -47,31 +47,37 @@
   "Location of the local Org temporary directory.
 This is where to place org timestamps and id locations.")
 
+(defvar fronde--keywords-slugs-alist nil
+  "A list associating each keywords to its related slug.
+
+Can be hydrated with `fronde--build-keywords-list'.")
+
+(defun fronde--build-keywords-list ()
+  (let ((keywords-file (format "%s/keywords" fronde-org-temp-dir))
+        keywords-slugs)
+    (when (file-readable-p keywords-file)
+      (let ((content (with-temp-buffer
+                       (insert-file-contents keywords-file)
+                       (string-trim-right (buffer-string)))))
+        (mapcar
+         (lambda (line)
+           (push (split-string line "\x1f") keywords-slugs))
+         (split-string content "\x1e"))))
+    keywords-slugs))
+
 (defun fronde--format-rich-keywords (info function)
   "Extract keywords from INFO and apply FUNCTION on them.
 FUNCTION is expected to format each keyword for a rich display for the
 current export backend.  FUNCTION must receive 3 arguments: the current
 KEYWORD, its related SLUG and the current project BASE-URI."
-  (let ((base-uri (plist-get info :fronde-base-uri))
-        (current-path (symbol-file 'fronde--format-rich-keywords))
-        sluglib)
-    (when current-path
-      (setq sluglib
-        (expand-file-name
-          (format "%s../../slug" (file-name-directory current-path)))))
+  (let ((base-uri (plist-get info :fronde-base-uri)))
     (mapcar
-      (lambda (k)
-        (let ((slug (if sluglib
-                      (string-trim-right
-                        (shell-command-to-string
-                          (format "ruby -r %s -e \"puts Fronde::Slug.slug '%s'\""
-                            (shell-quote-argument sluglib)
-                            (shell-quote-argument k))))
-                      k)))
-          (funcall function k slug base-uri)))
-      (split-string
-        (org-export-data (plist-get info :keywords) info)
-        ",+ *"))))
+     (lambda (k)
+       (let ((slug (cadr (assoc k fronde--keywords-slugs-alist))))
+         (funcall function k slug base-uri)))
+     (split-string
+      (org-export-data (plist-get info :keywords) info)
+      ",+ *"))))
 
 (defun fronde--org-html-format-spec (upstream info)
   "Advise UPSTREAM to return format specification for preamble and postamble.
@@ -79,35 +85,35 @@ INFO is a plist used as a communication channel."
   (let ((output (funcall upstream info)))
     (push `(?A . ,(format "<span class=\"author\">%s</span>"
                     (org-export-data (plist-get info :author) info)))
-      output)
+          output)
     (push `(?k . ,(org-export-data (plist-get info :keywords) info)) output)
     (push `(?K . ,(format "<ul class=\"keywords-list\">\n%s</ul>"
                     (apply #'concat
                       (fronde--format-rich-keywords
                         info
-	                      (lambda (k slug base-uri)
+	                    (lambda (k slug base-uri)
                           (format "<li class=\"keyword\"><a href=\"%stags/%s.html\">%s</a></li>\n"
                             base-uri slug k))))))
-      output)
+          output)
     (push `(?l . ,(org-export-data (plist-get info :language) info)) output)
     (push `(?n . ,(format "Fronde %s" fronde-version)) output)
     (push `(?N . ,(format "<a href=\"https://etienne.depar.is/fronde/\">Fronde</a> %s" fronde-version)) output)
     (push `(?x . ,(org-export-data (plist-get info :description) info)) output)
     (push `(?X . ,(format "<p>%s</p>"
                     (org-export-data (plist-get info :description) info)))
-      output)))
+          output)))
 
 (defun fronde--org-gmi-format-spec (upstream info)
   "Advise UPSTREAM to return format specification for gemini postamble.
 INFO is a plist used as a communication channel."
   (let ((output (funcall upstream info)))
     (push `(?K . ,(org-gmi--build-links-list
-                    (fronde--format-rich-keywords
-                      info
-                      (lambda (k slug base-uri)
-                        (list (format "%stags/%s.gmi" base-uri slug)
-                          (format "🏷️ %s" k))))))
-      output)
+                   (fronde--format-rich-keywords
+                    info
+                    (lambda (k slug base-uri)
+                      (list (format "%stags/%s.gmi" base-uri slug)
+                            (format "🏷️ %s" k))))))
+          output)
     (push `(?n . ,(format "Fronde %s" fronde-version)) output)))
 
 (defun fronde--org-i18n-export (link description backend)
@@ -135,21 +141,23 @@ INFO is a plist used as a communication channel."
 ;;; Set configuration options
 
 (setq fronde-org-temp-dir (expand-file-name "var/tmp" fronde-current-work-dir)
+      fronde--keywords-slugs-alist (fronde--build-keywords-list)
       org-publish-timestamp-directory (expand-file-name "timestamps/" fronde-org-temp-dir)
       org-id-locations-file (expand-file-name "id-locations.el" fronde-org-temp-dir)
       make-backup-files nil
-      enable-local-variables :all
-      org-confirm-babel-evaluate nil
+      enable-dir-local-variables nil
+      enable-local-variables t ;; enforce default
+      org-confirm-babel-evaluate t ;; enforce default
       org-export-with-broken-links t
       org-html-doctype "html5"
       org-html-html5-fancy t
       org-html-htmlize-output-type 'css
       org-html-text-markup-alist '((bold . "<strong>%s</strong>")
-                                    (code . "<code>%s</code>")
-                                    (italic . "<em>%s</em>")
-                                    (strike-through . "<del>%s</del>")
-                                    (underline . "<span class=\"underline\">%s</span>")
-                                    (verbatim . "<code>%s</code>")))
+                                   (code . "<code>%s</code>")
+                                   (italic . "<em>%s</em>")
+                                   (strike-through . "<del>%s</del>")
+                                   (underline . "<span class=\"underline\">%s</span>")
+                                   (verbatim . "<code>%s</code>")))
 (advice-add 'org-html-format-spec :around #'fronde--org-html-format-spec)
 (advice-add 'org-gmi--format-spec :around #'fronde--org-gmi-format-spec)
 

data/lib/fronde/config/helpers.rb

@@ -14,7 +14,7 @@ module Fronde
       def self.migrate(config)
         return config unless config.has_key?('public_folder')
 
-        warn R18n.t.fronde.error.config.deprecated_public_folder
+        warn I18n.t('fronde.error.config.deprecated_public_folder')
         old_pub_folder = config.delete('public_folder')
         return config if config.has_key?('html_public_folder')
 

data/lib/fronde/config/lisp.rb

@@ -6,9 +6,6 @@ require_relative '../version'
 require_relative '../org'
 require_relative 'helpers'
 
-require_relative '../../ext/r18n'
-using R18nPatch
-
 module Fronde
   module Config
     # This module contains utilitary methods to ease ~org-config.el~
@@ -33,7 +30,7 @@ module Fronde
           'work_dir' => workdir,
           'fronde_data_dir' => File.expand_path('data', __dir__),
           'org_version' => Fronde::Org.current_version,
-          'long_date_fmt' => R18n.t.full_datetime_format.to_s,
+          'long_date_fmt' => I18n.t('time.formats.long'),
           'author' => { 'email' => get('author_email', ''),
                         'name' => get('author') },
           'domain' => get('domain'),

data/lib/fronde/config.rb

@@ -1,7 +1,7 @@
 # frozen_string_literal: true
 
 require 'yaml'
-require 'r18n-core'
+require 'i18n'
 require 'singleton'
 
 require_relative 'config/lisp'
@@ -141,7 +141,7 @@ module Fronde
         get('sources', default_sources).filter_map do |source_conf|
           config = Source.canonical_config source_conf.dup
           unless config['path']
-            warn R18n.t.fronde.error.source.no_path(source: config.inspect)
+            warn I18n.t('fronde.error.source.no_path', source: config.inspect)
             next
           end
           Source.new_from_config config
@@ -153,7 +153,8 @@ module Fronde
         return path unless collection[type].has_key?(path)
 
         warn(
-          R18n.t.fronde.error.source.duplicate(
+          I18n.t(
+            'fronde.error.source.duplicate',
             source: source['name'], type: type
           )
         )
@@ -182,7 +183,8 @@ module Fronde
       def warn_on_existing_inclusion(type, other, possible_matchs, sources)
         possible_matchs.each do |match|
           warn(
-            R18n.t.fronde.error.source.inclusion(
+            I18n.t(
+              'fronde.error.source.inclusion',
               source: sources[match]['title'],
               other_source: other, type: type
             )
@@ -221,8 +223,8 @@ module Fronde
   CONFIG = Config::Store.instance
 end
 
-R18n.default_places = File.expand_path('../../locales', __dir__)
-R18n::Filters.on(:named_variables)
-R18n.set Fronde::CONFIG.get('lang')
+i18n_glob = File.expand_path('../../locales', __dir__)
+I18n.load_path = Dir.glob("#{i18n_glob}/*.yml")
+I18n.default_locale = Fronde::CONFIG.get('lang')
 
 Fronde::CONFIG.load_sources

data/lib/fronde/emacs.rb

@@ -10,8 +10,22 @@ module Fronde
       @command = nil
     end
 
-    def publish(project = 'website')
-      build_command("(org-publish \"#{project}\")")
+    def publish(project = 'website', force: false)
+      if force
+        build_command %[(org-publish "#{project}" t)]
+      else
+        build_command %[(org-publish "#{project}")]
+      end
+      run_command
+    end
+
+    def publish_file(file_path, force: false)
+      if force
+        build_command '(org-publish-current-file t)'
+      else
+        build_command '(org-publish-current-file)'
+      end
+      @command.insert(-2, %(--visit "#{file_path}"))
       run_command
     end
 
@@ -20,21 +34,21 @@ module Fronde
     def run_command
       cmd = @command.join(' ')
       if @verbose
-        warn cmd
-        return system(cmd, exception: true)
+        puts cmd
+        return system(cmd, err: $stdout, exception: true)
       end
       system cmd, out: File::NULL, err: File::NULL, exception: true
     end
 
     def build_command(org_action)
       default_emacs = Fronde::CONFIG.get('emacs')
-      @command = [default_emacs || 'emacs -Q --batch -nw']
-      @command << '--eval \'(setq inhibit-message t)\'' unless @verbose
-      @command += [
-        '--eval \'(setq enable-dir-local-variables nil)\'',
+      @command = [
+        default_emacs || 'emacs -Q --batch -nw',
+        '--eval \'(setq inhibit-message t)\'',
         '-l ./var/lib/org-config.el',
         "--eval '#{org_action}'"
       ]
+      @command.delete_at(1) if @verbose
     end
   end
 end

data/lib/fronde/index/atom_generator.rb

@@ -22,7 +22,7 @@ module Fronde
       FileUtils.mkdir_p "#{@project.publication_path}/feeds"
       @index.each_key do |tag|
         write_atom(tag)
-        warn R18n.t.fronde.index.atom_generated(tag: tag) if verbose
+        puts I18n.t('fronde.index.atom_generated', tag:) if verbose
       end
     end
 

data/lib/fronde/index/org_generator.rb

@@ -30,7 +30,7 @@ module Fronde
       FileUtils.mkdir_p "#{@project['path']}/tags"
       @index.each_key do |tag|
         write_org(tag)
-        warn R18n.t.fronde.index.index_generated(tag: tag) if verbose
+        puts I18n.t('fronde.index.index_generated', tag:) if verbose
       end
       write_blog_home_page(verbose)
     end
@@ -47,7 +47,9 @@ module Fronde
       entries.map! do |article|
         published = article['published']
         unless published == ''
-          article['published'] = R18n.t.fronde.index.published_on published
+          article['published'] = I18n.with_locale(article['lang']) do
+            I18n.t('fronde.index.published_on', date: published)
+          end
         end
         article
       end
@@ -60,7 +62,7 @@ module Fronde
         'domain' => Fronde::CONFIG.get('domain'),
         'lang' => Fronde::CONFIG.get('lang'),
         'author' => Fronde::CONFIG.get('author'),
-        'unsorted' => R18n.t.fronde.index.unsorted,
+        'unsorted' => I18n.t('fronde.index.unsorted'),
         'entries' => entries
       )
     end
@@ -73,11 +75,11 @@ module Fronde
             'weight' => @index[tag].length
           }
         end
-        { 'title' => R18n.t.fronde.index.send(title), 'tags' => all_tags }
+        { 'title' => I18n.t("fronde.index.#{title}"), 'tags' => all_tags }
       end
       Config::Helpers.render_liquid_template(
         File.read(File.expand_path('./data/all_tags.org', __dir__)),
-        'title' => R18n.t.fronde.index.all_tags,
+        'title' => I18n.t('fronde.index.all_tags'),
         'lang' => Fronde::CONFIG.get('lang'),
         'author' => Fronde::CONFIG.get('author'),
         'domain' => Fronde::CONFIG.get('domain'),
@@ -90,7 +92,7 @@ module Fronde
     def write_blog_home_page(verbose)
       orgdest = format('%<root>s/index.org', root: @project['path'])
       if verbose
-        warn R18n.t.fronde.org.generate_blog_index(name: @project['name'])
+        puts I18n.t('fronde.org.generate_blog_index', name: @project['name'])
       end
       File.write(orgdest, blog_home_page)
     end

data/lib/fronde/index.rb

@@ -8,7 +8,7 @@ module Fronde
   # Generates website indexes and atom feeds for all the org documents
   #   keywords.
   class Index
-    attr_reader :date
+    attr_reader :date, :project
 
     def initialize(project)
       @project = project
@@ -31,7 +31,8 @@ module Fronde
     def sort_by(kind)
       accepted_values = %i[name weight]
       unless accepted_values.include?(kind)
-        error_msg = R18n.t.fronde.error.index.wrong_sort_kind(
+        error_msg = I18n.t(
+          'fronde.error.index.wrong_sort_kind',
           kind: kind, accepted_values: accepted_values.inspect
         )
         raise ArgumentError, error_msg
@@ -43,6 +44,10 @@ module Fronde
       # and avoid to scroll to find the beginning of the list.
     end
 
+    def emacs_keywords
+      @tags_names.map { |slug, title| "#{title}\x1f#{slug}" }.join("\x1e")
+    end
+
     class << self
       def all_blog_index(&block)
         all_blogs = CONFIG.sources.filter_map do |project|
@@ -91,7 +96,7 @@ module Fronde
       all_keys = all_tags
       {
         by_name: all_keys.sort,
-        by_weight: all_keys.sort_by { @index[_1].length }.reverse
+        by_weight: all_keys.sort_by { [-@index[_1].length, _1] }
       }
     end
   end