gnu: s6-dns: Update to 2.3.5.1. - guix - Wojtek's customized Guix

diff options

author	Tobias Geerinckx-Rice <me@tobias.gr>	2021-04-20 01:24:44 +0200
committer	Tobias Geerinckx-Rice <me@tobias.gr>	2021-04-20 03:31:50 +0200
commit	26e80a820d6c8fea18bbf49f77e796c9b258e74b (patch)
tree	9f23bd38da74a8585fa4a46b3e244c9a0021b9e4 /gnu/packages/lean.scm
parent	54c244674c2956deeeeb5895d63a0dc83cb9e9d7 (diff)
download	guix-26e80a820d6c8fea18bbf49f77e796c9b258e74b.tar.gz guix-26e80a820d6c8fea18bbf49f77e796c9b258e74b.zip

gnu: s6-dns: Update to 2.3.5.1.

* gnu/packages/skarnet.scm (s6-dns): Update to 2.3.5.1.

Diffstat (limited to 'gnu/packages/lean.scm')

0 files changed, 0 insertions, 0 deletions

; GNU Guix is distributed in the hope that it will be useful, but ;;; WITHOUT ANY WARRANTY; without even the implied warranty of ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the ;;; GNU General Public License for more details. ;;; ;;; You should have received a copy of the GNU General Public License ;;; along with GNU Guix. If not, see <http://www.gnu.org/licenses/>. (define-module (gnu installer newt ethernet) #:use-module (gnu installer connman) #:use-module (gnu installer steps) #:use-module (gnu installer newt utils) #:use-module (gnu installer newt page) #:use-module (guix i18n) #:use-module (ice-9 format) #:use-module (ice-9 match) #:use-module (srfi srfi-34) #:use-module (srfi srfi-35) #:use-module (newt) #:export (run-ethernet-page)) (define (ethernet-services) "Return all the connman services of ethernet type." (let ((services (connman-services))) (filter (lambda (service) (and (string=? (service-type service) "ethernet") (not (string-null? (service-name service))))) services))) (define (ethernet-service->text service) "Return a string describing the given ethernet SERVICE." (let* ((name (service-name service)) (path (service-path service)) (full-name (string-append name "-" path)) (state (service-state service)) (connected? (or (string=? state "online") (string=? state "ready")))) (format #f "~c ~a~%" (if connected? #\* #\ ) full-name))) (define (connect-ethernet-service service) "Connect to the given ethernet SERVICE. Display a connecting page while the connection is pending." (let* ((service-name (service-name service)) (form (draw-connecting-page service-name))) (connman-connect service) (destroy-form-and-pop form) service)) (define (run-ethernet-page) (match (ethernet-services) (() (run-error-page (G_ "No ethernet service available, please try again.") (G_ "No service")) (raise (condition (&installer-step-abort)))) ((service) ;; Only one service is available so return it directly. service) ((services ...) (run-listbox-selection-page #:info-text (G_ "Please select an ethernet network.") #:title (G_ "Ethernet connection") #:listbox-items services #:listbox-item->text ethernet-service->text #:listbox-height (min (+ (length services) 2) 10) #:button-text (G_ "Exit") #:button-callback-procedure (lambda _ (raise (condition (&installer-step-abort)))) #:listbox-callback-procedure connect-ethernet-service))))


context:
space:
mode: