yakumo.izuru/kosuzu
1
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Bug fix: another unescaped '$', also, $txtdir -> $TXTDIR

Browse Source 
Signed-off-by: Izuru Yakumo <yakumo.izuru@chaotic.ninja>

git-svn-id: file:///srv/svn/repo/kosuzu/trunk@60 eb64cd80-c68d-6f47-b6a3-0ada418499da
This commit is contained in:
yakumo.izuru 2024-02-23 12:50:27 +00:00
parent 962d11f92b
commit 4858c48c0e
5 changed files with 9 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
cli/listing.ml
View File

@ -36,5 +36,5 @@ let term =
Term.(const listing $ recurse $ time $ reverse $ number $ paths $ authed $ topics $ dir), Term.(const listing $ recurse $ time $ reverse $ number $ paths $ authed $ topics $ dir),
Term.info "list" ~doc:"list texts" ~man:[ `S "DESCRIPTION"; Term.info "list" ~doc:"list texts" ~man:[ `S "DESCRIPTION";
`P "Diplays text id, date, author, title for a directory. `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." ] If -R is used, list header information for texts found in subdirectories too." ]

2
cli/txt.ml
View File

@ -1,4 +1,4 @@
let version = "1.3" let version = "1.3.1"
open Cmdliner open Cmdliner
let default_cmd = let default_cmd =

6
dune-project
View File

@ -1,12 +1,12 @@
(lang dune 2.0) (lang dune 2.0)
(name logarion) (name logarion)
(version 1.3) (version 1.3.1)
(license EUPL-1.2) (license EUPL-1.2)
(authors "orbifx <fox@orbitalfox.eu>") (authors "orbifx <fox@orbitalfox.eu>")
(bug_reports "mailto:logarion@lists.tildeverse.org") (bug_reports "mailto:logarion@lists.tildeverse.org")
(maintainers "Izuru Yakumo <novaburst@envs.net>") (maintainers "Izuru Yakumo <yakumo.izuru@chaotic.ninja>")
(homepage "https://logarion.chaotic.ninja") (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) (generate_opam_files true)

2
lib/file_store.ml
View File

@ -4,7 +4,7 @@ type record_t = Text.t * item_t
let extension = ".txt" 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 let share = Filename.concat (Sys.getenv "HOME") ".local/share/texts/" in
match Sys.is_directory share with true -> share match Sys.is_directory share with true -> share
| false | exception (Sys_error _) -> "." | false | exception (Sys_error _) -> "."

6
logarion.opam
View File

@ -1,8 +1,8 @@
# This file is generated by dune, edit dune-project instead # This file is generated by dune, edit dune-project instead
opam-version: "2.0" opam-version: "2.0"
version: "1.3" version: "1.3.1"
synopsis: "Texts archival and exchange" synopsis: "Texts archival and exchange"
maintainer: ["Izuru Yakumo <novaburst@envs.net>"] maintainer: ["Izuru Yakumo <yakumo.izuru@chaotic.ninja>"]
authors: ["orbifx <fox@orbitalfox.eu>"] authors: ["orbifx <fox@orbitalfox.eu>"]
license: "EUPL-1.2" license: "EUPL-1.2"
homepage: "https://logarion.chaotic.ninja" homepage: "https://logarion.chaotic.ninja"
@ -27,4 +27,4 @@ build: [
"@doc" {with-doc} "@doc" {with-doc}
] ]
] ]
dev-repo: "git+https://git.chaotic.ninja/yakumo.izuru/logarion.git" dev-repo: "git://git.chaotic.ninja/yakumo_izuru/logarion"