diff options
Diffstat (limited to 'tissue/web/themes.scm')
-rw-r--r-- | tissue/web/themes.scm | 14 |
1 files changed, 2 insertions, 12 deletions
diff --git a/tissue/web/themes.scm b/tissue/web/themes.scm index 21de09b..648d4d5 100644 --- a/tissue/web/themes.scm +++ b/tissue/web/themes.scm @@ -1,5 +1,5 @@ ;;; tissue --- Text based issue tracker -;;; Copyright © 2022 Arun Isaac <arunisaac@systemreboot.net> +;;; Copyright © 2022, 2023 Arun Isaac <arunisaac@systemreboot.net> ;;; ;;; This file is part of tissue. ;;; @@ -28,8 +28,7 @@ search-page-matched-open-issues search-page-matched-closed-issues search-page-matched-documents - search-page-matched-commits - add-methods)) + search-page-matched-commits)) (define-class <search-page> () (uri #:getter search-page-uri #:init-keyword #:uri) @@ -41,12 +40,3 @@ (matched-closed-issues #:getter search-page-matched-closed-issues #:init-keyword #:matched-closed-issues) (matched-documents #:getter search-page-matched-documents #:init-keyword #:matched-documents) (matched-commits #:getter search-page-matched-commits #:init-keyword #:matched-commits)) - -(define (add-methods generic . methods) - "Add @var{methods} to @var{generic} function. This is purely -functional and operates on a copy of @var{generic}. It does not mutate -@var{generic}." - (let ((clone (shallow-clone generic))) - (for-each (cut add-method! generic <>) - methods) - clone)) |