diff options
| -rwxr-xr-x | bin/tissue | 9 |
1 files changed, 7 insertions, 2 deletions
@@ -4,6 +4,7 @@ exec guile --no-auto-compile -s "$0" "$@" ;;; tissue --- Text based issue tracker ;;; Copyright © 2022, 2023 Arun Isaac <arunisaac@systemreboot.net> +;;; Copyright © 2023 Morgan Smith <Morgan.J.Smith@outlook.com> ;;; ;;; This file is part of tissue. ;;; @@ -96,8 +97,7 @@ Search issues using SEARCH-QUERY. (lambda (port) (search-map (cut print <> <> port) db (string-join args))) (or (getenv "PAGER") - "less") - "--raw")))))) + "less"))))))) (define tissue-show (match-lambda* @@ -500,6 +500,11 @@ Pull latest from upstream repositories. (display (condition-message c) (current-error-port)) (newline (current-error-port)) (exit #f))) + ;; Unless LESS is already configured, pass command-line options to + ;; less by setting LESS. This idea is inspired by + ;; git. https://git-scm.com/docs/git-config#git-config-corepager + (unless (getenv "LESS") + (setenv "LESS" "FRX")) ;; Add the top level of the git repository to the load path since ;; there may be user-written modules in the repository. (match args |