From 145e48bb12955c4343927fe8e5d6cd118eaf46cc Mon Sep 17 00:00:00 2001 From: KikyTokamuro Date: Fri, 24 Mar 2023 09:34:04 +0300 Subject: [PATCH] Update version; And fix regex --- fetch.scm | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/fetch.scm b/fetch.scm index 196d5ed..285cddc 100755 --- a/fetch.scm +++ b/fetch.scm @@ -7,7 +7,7 @@ ;; MIT License -;; Copyright (c) 2021-2022 Kiky Tokamuro (Daniil Archangelsky) +;; Copyright (c) 2021-2023 Kiky Tokamuro (Daniil Archangelsky) ;; Permission is hereby granted, free of charge, to any person obtaining a copy ;; of this software and associated documentation files (the "Software"), to deal @@ -95,7 +95,7 @@ (define (os-release-name) "Return ID from os-release file" (let ((os (with-input-from-file "/etc/os-release" read-string))) - (match:substring (string-match "PRETTY_NAME=\"([A-Za-z0-9. ]+)\"" os) 1))) + (match:substring (string-match "PRETTY_NAME=\"([A-Za-z0-9(). ]+)\"" os) 1))) (define (get-distro) "Return distro name" @@ -154,7 +154,7 @@ fetch.scm [options] -v, --version Display version -h, --help Display this help") -(define version-message "fetch.scm v0.1.5") +(define version-message "fetch.scm v0.1.6") (define (main args) (let* ((option-spec '((version (single-char #\v) (value #f))