feat(gws.fyi): Make title work properly in index

This is remarkably silly, but it gets the job done

Change-Id: Ifbc57988a59c4f51a3bba0ed8ad397cb9855d8ab
Reviewed-on: https://cl.tvl.fyi/c/depot/+/423
Reviewed-by: glittershark <grfn@gws.fyi>
This commit is contained in:
Griffin Smith 2020-06-15 23:18:17 -04:00 committed by glittershark
parent 5ae449dccc
commit 098bbb4d67
4 changed files with 32 additions and 8 deletions

View file

@ -1,3 +1,6 @@
(require 'org)
(setq org-html-postamble nil)
(defadvice org-export-grab-title-from-buffer
(around org-export-grab-title-from-buffer-disable activate))

View file

@ -1,3 +1,6 @@
#+OPTIONS: title:nil
#+HTML_HEAD: <title>griffin smith</title>
my name is griffin ward smith (aka grfn, glittershark, gws) and i'm a software
engineer and musician

View file

@ -1,4 +1,4 @@
{ pkgs, ... }:
{ pkgs ? import <nixpkgs> {}, ... }:
with pkgs;
with lib;
@ -20,14 +20,29 @@ let
in
src:
opts:
let
src = if isAttrs opts then opts.src else opts;
headline = if isAttrs opts then opts.headline else null;
bn = builtins.baseNameOf src;
filename = elemAt (splitString "." bn) 0;
outName =
if isNull headline
then
let bn = builtins.baseNameOf src;
filename = elemAt (splitString "." bn) 0;
in filename + ".html";
in filename + ".html"
else "${filename}-${replaceStrings [" "] ["-"] filename}.html";
escapeDoubleQuotes = replaceStrings ["\""] ["\\\""];
navToHeadline = optionalString (! isNull headline) ''
(search-forward "${escapeDoubleQuotes headline}")
(org-narrow-to-subtree)
'';
in
@ -38,8 +53,9 @@ runCommand outName {} ''
--load ${./config.el} \
--visit file.org \
--eval "(progn
(require 'org)
${escapeDoubleQuotes navToHeadline}
(org-html-export-to-html))" \
--kill
cp file.html $out
substitute file.html $out \
--replace '<title>&lrm;</title>' ""
''

View file

@ -1,7 +1,9 @@
args@{ pkgs, depot, ... }:
args@{ pkgs ? import <nixpkgs> {}, ... }:
let
orgExportHTML = import ./orgExportHTML.nix args;
in
{