From 4858c48c0ec4e577886798436d1742149f71edc5 Mon Sep 17 00:00:00 2001 From: "yakumo.izuru" Date: Fri, 23 Feb 2024 12:50:27 +0000 Subject: [PATCH] Bug fix: another unescaped '$', also, $txtdir -> $TXTDIR Signed-off-by: Izuru Yakumo git-svn-id: file:///srv/svn/repo/kosuzu/trunk@60 eb64cd80-c68d-6f47-b6a3-0ada418499da --- cli/listing.ml | 2 +- cli/txt.ml | 2 +- dune-project | 6 +++--- lib/file_store.ml | 2 +- logarion.opam | 6 +++--- 5 files changed, 9 insertions(+), 9 deletions(-) diff --git a/cli/listing.ml b/cli/listing.ml index 6e435ba..066b109 100644 --- a/cli/listing.ml +++ b/cli/listing.ml @@ -36,5 +36,5 @@ let term = Term.(const listing $ recurse $ time $ reverse $ number $ paths $ authed $ topics $ dir), Term.info "list" ~doc:"list texts" ~man:[ `S "DESCRIPTION"; `P "Diplays text id, date, author, title for a directory. - If directory argument is ommitted, $txtdir is used, where empty value defaults to ~/.local/share/texts. + If directory argument is ommitted, TXTDIR is used, where empty value defaults to ~/.local/share/texts. If -R is used, list header information for texts found in subdirectories too." ] diff --git a/cli/txt.ml b/cli/txt.ml index dd6d793..6ddb6da 100644 --- a/cli/txt.ml +++ b/cli/txt.ml @@ -1,4 +1,4 @@ -let version = "1.3" +let version = "1.3.1" open Cmdliner let default_cmd = diff --git a/dune-project b/dune-project index 716a145..13fdc2c 100644 --- a/dune-project +++ b/dune-project @@ -1,12 +1,12 @@ (lang dune 2.0) (name logarion) -(version 1.3) +(version 1.3.1) (license EUPL-1.2) (authors "orbifx ") (bug_reports "mailto:logarion@lists.tildeverse.org") -(maintainers "Izuru Yakumo ") +(maintainers "Izuru Yakumo ") (homepage "https://logarion.chaotic.ninja") -(source (uri git+https://git.chaotic.ninja/yakumo.izuru/logarion.git)) +(source (uri git://git.chaotic.ninja/yakumo_izuru/logarion)) (generate_opam_files true) diff --git a/lib/file_store.ml b/lib/file_store.ml index 3f63a18..89afa21 100644 --- a/lib/file_store.ml +++ b/lib/file_store.ml @@ -4,7 +4,7 @@ type record_t = Text.t * item_t let extension = ".txt" -let txtdir () = try Sys.getenv "txtdir" with Not_found -> +let txtdir () = try Sys.getenv "TXTDIR" with Not_found -> let share = Filename.concat (Sys.getenv "HOME") ".local/share/texts/" in match Sys.is_directory share with true -> share | false | exception (Sys_error _) -> "." diff --git a/logarion.opam b/logarion.opam index badd6de..89f7baf 100644 --- a/logarion.opam +++ b/logarion.opam @@ -1,8 +1,8 @@ # This file is generated by dune, edit dune-project instead opam-version: "2.0" -version: "1.3" +version: "1.3.1" synopsis: "Texts archival and exchange" -maintainer: ["Izuru Yakumo "] +maintainer: ["Izuru Yakumo "] authors: ["orbifx "] license: "EUPL-1.2" homepage: "https://logarion.chaotic.ninja" @@ -27,4 +27,4 @@ build: [ "@doc" {with-doc} ] ] -dev-repo: "git+https://git.chaotic.ninja/yakumo.izuru/logarion.git" +dev-repo: "git://git.chaotic.ninja/yakumo_izuru/logarion"