fronde 0.4.0 → 0.5.0

checksums.yaml

@@ -1,7 +1,7 @@
 ---
 SHA256:
-  metadata.gz: 31ed851cf895abccd33ec85ab91459e4310c9716631d096efd89d18fd16bf190
-  data.tar.gz: 901e11daea515cff4336f05a13a67604a5d73ca9fc020efb8250b34fbdb72450
+  metadata.gz: 8691e788789cb725772213237a67731dc67ae77eeecc8d1d409e6779d94a22c8
+  data.tar.gz: d2f67191b421f902e1b41d7845fc07026843e227cfd3f70cdeff0f4d87e36b8e
 SHA512:
-  metadata.gz: 1190105b49652d3bf177602a9ca37906f9a4659416f821734b17b5a49269825726019a6b69ad47b312937d75b362e658b93026003ffc42cd92859b601c9c8e96
-  data.tar.gz: 4e34d65345c82cc39237521c2e79365bbe4c23572fa4c4fa7d65e2d5aa7119d095a2956ec569e03c6cb459e7f1f37fe933aac3d2b0fdcefafb69f1cea8ef695b
+  metadata.gz: b8d3fa0a8bbfbcdecbf7a65ffc93b420876ddb27acf574a5a1a066b988ce2e039ff780b0a71bd6056f3a75b52072f4c37489135a6ead712e0a728f8385453de2
+  data.tar.gz: d2bd28e4fa15b156a83c61b79426f74e3e48534cfe483f92a03dd3d9a4a0675252843bb991bbb114f45421865b52e6b7f6f7dd500261cc0d8236063838f7baf4

data/lib/ext/r18n.rb

@@ -13,5 +13,25 @@ module R18nPatch
         date: date_fmt, time: time_fmt
       )
     end
+
+    # Returns the given Time instance as a localized long string.
+    #
+    # @param time [Time] the Time instance to format
+    # @param with_year [Boolean] whether or not the string must contain
+    #   the year
+    # @param with_time [Boolean] whether or not the string must contain
+    #   the time
+    # @return [String] the localized Time string representation
+    def long_date_string(time, with_year: true, with_time: true)
+      long_fmt = fronde.index.full_date_format(
+        date: @locale.format_date_full(time, year: with_year)
+      )
+      if with_time
+        long_fmt = fronde.index.full_date_with_time_format(
+          date: long_fmt, time: @locale.time_format.delete('_').strip
+        )
+      end
+      @locale.strftime(time, long_fmt)
+    end
   end
 end

data/lib/ext/time.rb

@@ -1,5 +1,8 @@
 # frozen_string_literal: true
 
+require_relative 'r18n'
+using R18nPatch
+
 # Monkey patch to add some helpers
 module TimePatch
   refine Time do
@@ -17,26 +20,13 @@ module TimePatch
       "<time datetime=\"#{xmlschema}\">#{l18n_short_date_string}</time>"
     end
 
-    def no_time=(value)
-      @no_time = value
-    end
-
     # Returns the current Time instance as a localized long string.
     #
-    # @param with_year [Boolean] wether or not the string must contain the
-    #   year
+    # @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)
-      locale = R18n.get.locale
-      long_fmt = R18n.t.fronde.index.full_date_format(
-        date: locale.format_date_full(self, year: with_year)
-      )
-      unless @no_time
-        long_fmt = R18n.t.fronde.index.full_date_with_time_format(
-          date: long_fmt, time: locale.time_format.delete('_').strip
-        )
-      end
-      locale.strftime(self, long_fmt)
+      R18n.t.long_date_string(self, with_year: with_year)
     end
 
     # Format the current Time as a HTML `time` tag showing a long date.

data/lib/ext/time_no_time.rb

@@ -0,0 +1,23 @@
+# 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.
+  #
+  # @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)
+  end
+
+  def self.parse_no_time(string)
+    strptime("#{string} 00:00:00", '%Y-%m-%d %H:%M:%S')
+  end
+end

data/lib/fronde/cli/commands.rb

@@ -27,13 +27,13 @@ module Fronde
         init_rake
         @rake.options.build_all = true
         @rake['org:upgrade'].invoke
-        0
+        true
       end
 
       def fronde_build
         @rake.options.build_all = true
         @rake['site:build'].invoke @options[:force]
-        0
+        true
       end
 
       def fronde_preview
@@ -43,7 +43,7 @@ module Fronde
           Helpers.launch_app_for_uri "http://127.0.0.1:#{port}/"
         end
         @rake['site:preview'].invoke
-        0
+        true
       end
 
       def fronde_open
@@ -58,12 +58,12 @@ module Fronde
           cmd << '+6'
         end
         cmd << file_path
-        (system(*cmd) && 0) || 1
+        system(*cmd)
       end
 
       def fronde_publish
         @rake['sync:push'].invoke
-        0
+        true
       end
 
       def fronde_help
@@ -71,18 +71,22 @@ module Fronde
         @command = @argv.shift || 'basic' if @command == 'help'
         cmd_opt = OptParse.command_options(@command)
         label = cmd_opt[:label] || @command
-        warn format("%<label>s\n\n", label: R18n.t.fronde.bin.usage(label))
+        output = [format_label(R18n.t.fronde.bin.usage(label))]
         cmd = cmd_opt[:name] || @command
-        if R18n.t.fronde.bin.commands[cmd].translated?
-          warn format("%<label>s\n\n", label: R18n.t.fronde.bin.commands[cmd])
-        end
-        body = OptParse.help_command_body(cmd)
-        warn body unless body == ''
-        0
+        output << format_label(R18n.t.fronde.bin.commands[cmd])
+        output << OptParse.help_command_body(cmd)
+        warn output.join
+        true
       end
 
       private
 
+      def format_label(label)
+        return '' if label == '' || label.is_a?(R18n::Untranslated)
+
+        format("%<label>s\n\n", label: label)
+      end
+
       def file_name_from_title
         title = @options[:title] || R18n.t.fronde.bin.options.default_title
         # No title, nor a reliable file_path? Better abort

data/lib/fronde/cli/data/gitignore

@@ -1,4 +1,3 @@
-.dir-locals.el
 .ruby-version
 Rakefile
 lib/

data/lib/fronde/cli/opt_parse.rb

@@ -61,9 +61,8 @@ module Fronde
             key = opt[:keyword] || opt[:long].upcase
             config = [short, format('%<long>s %<key>s', long: long, key: key)]
           end
-          config << opt[:choices] if opt[:choices]
-          config << opt[:help] if opt[:help]
-          config
+          config.push opt[:choices], opt[:help]
+          config.compact
         end
 
         # Returns the ~fronde~ help summary for a given command.
@@ -76,12 +75,10 @@ module Fronde
             short, long = decorate_option(k)
             opt = FRONDE_OPTIONS[k]
             label = [short, long].join(', ')
-            line = [format('    %<opt>s', opt: label).ljust(30)]
-            help = opt[:help]
-            line << help if help
+            line = [format('    %<opt>s', opt: label).ljust(30), opt[:help]]
             choices = opt[:choices]
             line << "(#{choices.join(', ')})" if choices
-            line.join(' ')
+            line.compact.join(' ')
           end.join("\n")
         end
 

data/lib/fronde/cli/throbber.rb

@@ -21,6 +21,7 @@ module Fronde
 
       def initialize(thread, message)
         @frames = select_frames
+        @term_width = terminal_width
         @thread = thread
         @thread.abort_on_exception = false
         @thread.report_on_exception = false
@@ -28,23 +29,17 @@ module Fronde
       end
 
       def run
-        term_width = terminal_width
-        frames_len = @frames.length
-        current = 0
-        while @thread.alive?
-          sleep 0.1
-          frame = @frames[current % frames_len]
-          message = "#{@message} #{frame}"
-          print "#{message.ljust(term_width)}\r"
-          current += 1
-        end
-        @thread.join # Ensure any inner exception is re-raised
+        thread_loop
       rescue RuntimeError => e
         show_error
         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"
+        raise e
+        # :nocov:
       else
-        done = Rainbow(R18n.t.fronde.bin.done).green
-        puts "#{@message} #{done}".ljust(term_width)
+        show_message Rainbow(R18n.t.fronde.bin.done).green, "\n"
       end
 
       class << self
@@ -70,6 +65,17 @@ module Fronde
 
       private
 
+      def thread_loop
+        frames_len = @frames.length
+        current = 0
+        while @thread.alive?
+          sleep 0.1
+          show_message @frames[current % frames_len]
+          current += 1
+        end
+        @thread.join # Ensure any inner exception is re-raised
+      end
+
       def terminal_width
         # Not a tty. Docker?
         return 0 unless system('test -t 0')
@@ -77,6 +83,11 @@ module Fronde
         `stty size`.strip.split[1].to_i - 1
       end
 
+      def show_message(suffix, end_of_line = "\r")
+        message = "#{@message} #{suffix}".ljust(@term_width)
+        print "#{message}#{end_of_line}"
+      end
+
       def show_error
         warn(
           format(

data/lib/fronde/cli.rb

@@ -21,12 +21,13 @@ module Fronde
 
         if help_param_given?
           return 2 if @options[:recover_from_error]
-          return 0
+
+          return true
         end
 
         init_rake if %w[build preview publish].include?(@command)
 
-        method = "fronde_#{@command}".to_sym
+        method = :"fronde_#{@command}"
         return 2 if method_unknown?(method)
 
         send method

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

@@ -4,8 +4,9 @@
 (load-file (expand-file-name "htmlize.el" "{{ work_dir }}/lib"))
 
 ;; Current project options
-(setq fronde/version "{{ version }}"
-      fronde/current-work-dir "{{ work_dir }}"
+(setq fronde-version "{{ version }}"
+      fronde-current-work-dir "{{ work_dir }}"
+      fronde-domain "{{ domain }}"
       user-mail-address "{{ author.email }}"
       user-full-name "{{ author.name }}"
       org-html-metadata-timestamp-format "{{ long_date_fmt }}"

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

@@ -34,72 +34,109 @@
 
 ;;; Function Declarations
 
-(defvar fronde/version ""
-  "Version of the current fronde installation")
+(defvar fronde-version ""
+  "Version of the current fronde installation.")
 
-(defvar fronde/current-work-dir nil
+(defvar fronde-current-work-dir nil
   "Location of the current fronde website base directory.")
 
-(defvar fronde/org-temp-dir nil
-  "Location of the local Org temporary directory (where to place
-org timestamps and id locations).")
-
-(defun fronde/org-html-format-spec (upstream info)
-  "Return format specification for preamble and postamble.
+(defvar fronde-domain ""
+  "Target domain with scheme of the current fronde installation.")
+
+(defvar fronde-org-temp-dir nil
+  "Location of the local Org temporary directory.
+This is where to place org timestamps and id locations.")
+
+(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)))))
+    (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)
+        ",+ *"))))
+
+(defun fronde--org-html-format-spec (upstream info)
+  "Advise UPSTREAM to return format specification for preamble and postamble.
 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)
     (push `(?k . ,(org-export-data (plist-get info :keywords) info)) output)
-    (push `(?K . ,(format "<ul class=\"keywords-list\">%s</ul>"
-                    (mapconcat
-	                    (lambda (k) (format "<li class=\"keyword\">%s</li>" k))
-	                    (split-string (or (plist-get info :keywords) "")  ",+ *")
-	                    "\n")))
+    (push `(?K . ,(format "<ul class=\"keywords-list\">\n%s</ul>"
+                    (apply #'concat
+                      (fronde--format-rich-keywords
+                        info
+	                      (lambda (k slug base-uri)
+                          (format "<li class=\"keyword\"><a href=\"%stags/%s.html\">%s</a></li>\n"
+                            base-uri slug k))))))
       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 `(?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)))
 
-(defun fronde/org-gmi-format-spec (upstream info)
-  "Return format specification for gemini postamble.
+(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 `(?n . ,(format "Fronde %s" fronde/version)) output)))
+    (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)
+    (push `(?n . ,(format "Fronde %s" fronde-version)) output)))
 
-(defun fronde/org-i18n-export (link description format)
-  "Export a i18n link"
-  (let* ((splitted-link (split-string link "|"))
+(defun fronde--org-i18n-export (link description backend)
+  "Export the given i18n LINK with its DESCRIPTION for the current BACKEND."
+  (let* ((splitted-link (split-string link "::"))
          (path (car splitted-link))
          (desc (or description path))
          (lang (cadr splitted-link)))
-    (pcase format
+    (pcase backend
       (`html (if lang
                  (format "<a href=\"%s\" hreflang=\"%s\">%s</a>"
                          path lang desc)
                (format "<a href=\"%s\">%s</a>" path desc)))
-      (`latex (format "\\href{%s}{%s}" path desc))
-      (_ (format "%s (%s)" desc path)))))
+      (_ nil))))
 
-(defun fronde/org-i18n-follow (link)
-  "Visit a i18n link"
-  (browse-url (car (split-string link "|"))))
+(defun fronde--org-i18n-follow (link)
+  "Visit the given i18n LINK."
+  (browse-url (car (split-string link "::"))))
 
 (org-link-set-parameters "i18n"
-  :export #'fronde/org-i18n-export
-  :follow #'fronde/org-i18n-follow)
+  :export #'fronde--org-i18n-export
+  :follow #'fronde--org-i18n-follow)
 
 
 ;;; Set configuration options
 
-(setq fronde/org-temp-dir (expand-file-name "var/tmp" fronde/current-work-dir)
-      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)
+(setq fronde-org-temp-dir (expand-file-name "var/tmp" fronde-current-work-dir)
+      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
@@ -113,8 +150,8 @@ INFO is a plist used as a communication channel."
                                     (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)
+(advice-add 'org-html-format-spec :around #'fronde--org-html-format-spec)
+(advice-add 'org-gmi--format-spec :around #'fronde--org-gmi-format-spec)
 
 (provide 'ox-fronde)