aboutsummaryrefslogtreecommitdiff
path: root/gnu/packages/gsasl.scm
diff options
context:
space:
mode:
authorDanny Milosavljevic <dannym@scratchpost.org>2016-04-29 17:05:47 +0200
committerLudovic Courtès <ludo@gnu.org>2016-04-29 18:05:44 +0200
commit2b56dc019a049b2f68ce078b243fc313fbaeacf3 (patch)
tree70a67256acc6b862aef8cbce1bd67734aa60da98 /gnu/packages/gsasl.scm
parent4c0416ae1709e08c311d32af4823fac9d73364ee (diff)
downloadguix-2b56dc019a049b2f68ce078b243fc313fbaeacf3.tar.gz
guix-2b56dc019a049b2f68ce078b243fc313fbaeacf3.zip
gnu: Add hplip.
* gnu/packages/cups.scm (hplip): New variable. Co-authored-by: Ludovic Courtès <ludo@gnu.org>
Diffstat (limited to 'gnu/packages/gsasl.scm')
0 files changed, 0 insertions, 0 deletions
quot;Console services") #:info-text (G_ "Select miscellaneous services to run on your \ non-graphical system.") #:items items #:selection (map system-service-recommended? items) #:item->text (compose G_ system-service-name) #:checkbox-tree-height 5 #:exit-button-callback-procedure (lambda _ (abort-to-prompt 'installer-step 'abort))))) (define (run-network-management-page) "Run a page to select among several network management methods." (let ((title (G_ "Network management")) (items (filter (lambda (service) (eq? 'network-management (system-service-type service))) (%system-services)))) (run-listbox-selection-page #:title title #:info-text (G_ "Choose the method to manage network connections. We recommend NetworkManager or Connman for a WiFi-capable laptop; the DHCP \ client may be enough for a server.") #:info-textbox-width 70 #:listbox-height 7 #:listbox-items `(,@items ,@(if (target-hurd?) (list system-service-none) '())) #:listbox-item->text (compose G_ system-service-name) #:sort-listbox-items? #f #:button-text (G_ "Exit") #:button-callback-procedure (lambda _ (abort-to-prompt 'installer-step 'abort))))) (define (run-services-page) (let ((desktop (run-desktop-environments-cbt-page))) ;; When the user did not select any desktop services, and thus didn't get ;; '%desktop-services', offer network management services. (append desktop (run-networking-cbt-page) (if (null? desktop) (cons (run-network-management-page) (run-console-services-cbt-page)) '()) (run-printing-services-cbt-page))))