[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
07/12: installer: Whitespace changes only
From: |
John Darrington |
Subject: |
07/12: installer: Whitespace changes only |
Date: |
Sun, 15 Jan 2017 15:45:40 +0000 (UTC) |
jmd pushed a commit to branch wip-installer
in repository guix.
commit efd1cd96683b8580dd970cbb698991ecebfcf3b2
Author: John Darrington <address@hidden>
Date: Sun Jan 15 07:13:46 2017 +0100
installer: Whitespace changes only
* gnu/system/installer/configure.scm,
gnu/system/installer/dialog.scm,
gnu/system/installer/disks.scm,
gnu/system/installer/filesystems.scm,
gnu/system/installer/format.scm,
gnu/system/installer/hostname.scm,
gnu/system/installer/install.scm,
gnu/system/installer/key-map.scm,
gnu/system/installer/mount-point.scm,
gnu/system/installer/network.scm,
gnu/system/installer/partition-reader.scm,
gnu/system/installer/ping.scm,
gnu/system/installer/role.scm,
gnu/system/installer/time-zone.scm,
gnu/system/installer/utils.scm,
gurses/buttons.scm,
gurses/form.scm,
gurses/menu.scm: Remove trailing whitespace.
---
gnu/system/installer/configure.scm | 14 +++++++-------
gnu/system/installer/dialog.scm | 4 ++--
gnu/system/installer/disks.scm | 12 ++++++------
gnu/system/installer/filesystems.scm | 6 +++---
gnu/system/installer/format.scm | 18 +++++++++---------
gnu/system/installer/hostname.scm | 12 ++++++------
gnu/system/installer/install.scm | 2 +-
gnu/system/installer/key-map.scm | 10 +++++-----
gnu/system/installer/mount-point.scm | 16 ++++++++--------
gnu/system/installer/network.scm | 2 +-
gnu/system/installer/partition-reader.scm | 16 ++++++++--------
gnu/system/installer/ping.scm | 2 +-
gnu/system/installer/role.scm | 4 ++--
gnu/system/installer/time-zone.scm | 12 ++++++------
gnu/system/installer/utils.scm | 10 +++++-----
gurses/buttons.scm | 8 ++++----
gurses/form.scm | 24 ++++++++++++------------
gurses/menu.scm | 8 ++++----
18 files changed, 90 insertions(+), 90 deletions(-)
diff --git a/gnu/system/installer/configure.scm
b/gnu/system/installer/configure.scm
index 75cd15e..061d97c 100644
--- a/gnu/system/installer/configure.scm
+++ b/gnu/system/installer/configure.scm
@@ -100,9 +100,9 @@
((eq? ch KEY_UP)
(buttons-unselect-all nav))
-
+
((buttons-key-matches-symbol? nav ch 'cancel)
- ;; Close the menu and return
+ ;; Close the menu and return
(page-leave))
@@ -116,7 +116,7 @@
(set! config-file (port-filename cfg-port))
(close-port cfg-port))
- ;; Close the menu and return
+ ;; Close the menu and return
(page-leave))
)
@@ -145,7 +145,7 @@
p #:width width)
(newline p)
- (pretty-print
+ (pretty-print
`(use-service-modules
,@(role-service-modules system-role)) p #:width width)
(newline p)
@@ -169,7 +169,7 @@
(partition-volume-pairs)
(find-partition grub-mount-point))))
(timeout 2))))
-
+
(file-systems
,(append (list 'cons*)
(map (lambda (x)
@@ -199,7 +199,7 @@
(- (getmaxy s) 4) (- (getmaxx s) 2)
2 1
#:title (page-title p)))
-
+
(text-window (derwin
(inner pr)
3 (getmaxx (inner pr))
@@ -213,7 +213,7 @@
(buttons (make-buttons my-buttons 1))
- (config-window (make-boxed-window
+ (config-window (make-boxed-window
(inner pr)
(- (getmaxy (inner pr))
(getmaxy bwin)
diff --git a/gnu/system/installer/dialog.scm b/gnu/system/installer/dialog.scm
index edc5926..41059c7 100644
--- a/gnu/system/installer/dialog.scm
+++ b/gnu/system/installer/dialog.scm
@@ -53,7 +53,7 @@
(cond
((eqv? (buttons-selected nav) (1- (buttons-n-buttons nav)))
(buttons-unselect-all nav))
-
+
(else
(buttons-select-next nav))))
@@ -94,7 +94,7 @@
(if (promise? m) (force m) m))
(addstr text-window
(if (promise? m) (force m) m))))
-
+
(push-cursor (page-cursor-visibility p))
(page-set-wwin! p frame)
(page-set-datum! p 'text-window text-window)
diff --git a/gnu/system/installer/disks.scm b/gnu/system/installer/disks.scm
index 481a9bb..398930f 100644
--- a/gnu/system/installer/disks.scm
+++ b/gnu/system/installer/disks.scm
@@ -52,7 +52,7 @@
(addstr win
(justify* (gettext "Select a disk to partition (or repartition),
or choose \"Continue\" to leave the disk(s) unchanged.")
(getmaxx win)))
-
+
(menu-set-items! menu (volumes))
(touchwin (outer (page-wwin page)))
(refresh (outer (page-wwin page)))
@@ -74,14 +74,14 @@
((menu-active menu)
(menu-set-active! menu #f)
(buttons-select nav 0))
-
+
((eqv? (buttons-selected nav) (1- (buttons-n-buttons nav)))
(menu-set-active! menu #t)
(buttons-unselect-all nav))
-
+
(else
(buttons-select-next nav))))
-
+
((eq? ch KEY_LEFT)
(menu-set-active! menu #f)
(buttons-select-prev nav))
@@ -108,7 +108,7 @@
(define (truncate-string ss w)
(if (> (string-length ss) w)
- (string-append
+ (string-append
(string-take ss (- w 3)) "...")
ss))
@@ -128,7 +128,7 @@
4
(getmaxx (inner frame))
0 0 #:panel #f))
-
+
(menu-window (derwin (inner frame)
(- (getmaxy (inner frame)) 3 (getmaxy text-window))
(getmaxx (inner frame))
diff --git a/gnu/system/installer/filesystems.scm
b/gnu/system/installer/filesystems.scm
index 4c323e5..68105c3 100644
--- a/gnu/system/installer/filesystems.scm
+++ b/gnu/system/installer/filesystems.scm
@@ -55,7 +55,7 @@
(make-file-system-spec' mount-point label type uuid)
file-system-spec?
(mount-point file-system-spec-mount-point)
- (label file-system-spec-label)
+ (label file-system-spec-label)
(type file-system-spec-type)
(uuid file-system-spec-uuid))
@@ -267,14 +267,14 @@
(name (partition-name part))
(fs-spec
(assoc-ref mount-points name)))
-
+
(format #f "~30a ~7a ~16a ~a"
name
(number->size (partition-size part))
(if fs-spec (file-system-spec-type fs-spec) "")
(if fs-spec
(file-system-spec-mount-point fs-spec)
"")))))))
-
+
(push-cursor (page-cursor-visibility p))
(page-set-wwin! p pr)
(page-set-datum! p 'menu menu)
diff --git a/gnu/system/installer/format.scm b/gnu/system/installer/format.scm
index 39103c4..fc9d84d 100644
--- a/gnu/system/installer/format.scm
+++ b/gnu/system/installer/format.scm
@@ -36,7 +36,7 @@
str)))
(define (device-fs-uuid dev)
- "Retrieve the UUID of the filesystem on DEV, where DEV is the name of the
+ "Retrieve the UUID of the filesystem on DEV, where DEV is the name of the
device such as /dev/sda1"
(car (assoc-ref
(slurp (string-append "blkid -o export " dev)
@@ -91,9 +91,9 @@ match those uuids read from the respective partitions"
((eq? ch KEY_UP)
(buttons-unselect-all nav))
-
+
((buttons-key-matches-symbol? nav ch 'cancel)
- ;; Close the menu and return
+ ;; Close the menu and return
(page-leave))
@@ -111,12 +111,12 @@ match those uuids read from the respective partitions"
"-v"
dev))
)))) mount-points)
-
+
(close-port window-port))
-
+
;;(page-leave)
))
-
+
#f))
(define (format-page-refresh page)
@@ -134,7 +134,7 @@ match those uuids read from the respective partitions"
(- (getmaxy s) 4) (- (getmaxx s) 2)
2 1
#:title (page-title p)))
-
+
(text-window (derwin
(inner pr)
3 (getmaxx (inner pr))
@@ -148,7 +148,7 @@ match those uuids read from the respective partitions"
(buttons (make-buttons my-buttons 1))
- (config-window (make-boxed-window
+ (config-window (make-boxed-window
(inner pr)
(- (getmaxy (inner pr))
(getmaxy bwin)
@@ -166,7 +166,7 @@ match those uuids read from the respective partitions"
mount-points))))
-
+
(push-cursor (page-cursor-visibility p))
(page-set-wwin! p pr)
(page-set-datum! p 'navigation buttons)
diff --git a/gnu/system/installer/hostname.scm
b/gnu/system/installer/hostname.scm
index 71aeb1e..d1bd71e 100644
--- a/gnu/system/installer/hostname.scm
+++ b/gnu/system/installer/hostname.scm
@@ -124,17 +124,17 @@
(- (getmaxy s) 4) (- (getmaxx s) 2)
2 1
#:title (page-title p)))
-
+
(text-window (derwin (inner pr) 5 (getmaxx (inner pr))
0 0))
-
+
(bwin (derwin (inner pr)
3 (getmaxx (inner pr))
(- (getmaxy (inner pr)) 3) 0
#:panel #f))
-
+
(nav (make-buttons my-buttons 1))
-
+
(fw (derwin (inner pr)
2
(getmaxx (inner pr))
@@ -143,11 +143,11 @@
(form (make-form my-fields)))
- (page-set-datum! p 'navigation nav)
+ (page-set-datum! p 'navigation nav)
(page-set-datum! p 'text-window text-window)
(page-set-datum! p 'form form)
(push-cursor (page-cursor-visibility p))
-
+
(form-post form fw)
(buttons-post nav bwin)
(page-set-wwin! p pr)
diff --git a/gnu/system/installer/install.scm b/gnu/system/installer/install.scm
index c7fa646..3c21eab 100644
--- a/gnu/system/installer/install.scm
+++ b/gnu/system/installer/install.scm
@@ -161,7 +161,7 @@
(addstr* text-window
(gettext
"Choose \"Continue\" to start installing the system."))
-
+
(push-cursor (page-cursor-visibility p))
(page-set-wwin! p pr)
(page-set-datum! p 'navigation buttons)
diff --git a/gnu/system/installer/key-map.scm b/gnu/system/installer/key-map.scm
index 636d57f..c2febb6 100644
--- a/gnu/system/installer/key-map.scm
+++ b/gnu/system/installer/key-map.scm
@@ -57,7 +57,7 @@
(cond
((eqv? (buttons-selected nav) (1- (buttons-n-buttons nav)))
(buttons-unselect-all nav))
-
+
(else
(buttons-select-next nav))))
@@ -112,15 +112,15 @@
(- (getmaxy (inner frame)) 3 (getmaxy
text-window))
(getmaxx (inner frame))
(getmaxy text-window) 0 #:panel #f))
-
+
(menu (make-menu
(let ((dir (page-datum p 'directory)))
(slurp (string-append "ls -1 "
dir)
identity)))))
-
+
(menu-post menu menu-window)
-
+
(addstr* text-window
(gettext "Select an item most closely matching your keyboard
layout:" ))
(push-cursor (page-cursor-visibility p))
@@ -133,5 +133,5 @@
(refresh text-window)
(refresh button-window)))
-
+
diff --git a/gnu/system/installer/mount-point.scm
b/gnu/system/installer/mount-point.scm
index afa3b60..5715a2f 100644
--- a/gnu/system/installer/mount-point.scm
+++ b/gnu/system/installer/mount-point.scm
@@ -63,7 +63,7 @@
(page-leave))
((buttons-key-matches-symbol? nav ch 'cancel)
- ;; Close the menu and return
+ ;; Close the menu and return
(page-leave))
((or (eq? ch KEY_RIGHT)
@@ -97,17 +97,17 @@
(- (getmaxy s) 4) (- (getmaxx s) 2)
2 1
#:title (page-title p)))
-
+
(text-window (derwin (inner pr) 3 (getmaxx (inner pr))
0 0))
-
+
(bwin (derwin (inner pr)
3 (getmaxx (inner pr))
(- (getmaxy (inner pr)) 3) 0
#:panel #f))
-
+
(nav (make-buttons my-buttons 1))
-
+
(fw (derwin (inner pr)
(length my-fields)
(getmaxx (inner pr))
@@ -124,7 +124,7 @@
host-name "-"
(form-get-value f
'mount-point)))))))))
- (page-set-datum! p 'navigation nav)
+ (page-set-datum! p 'navigation nav)
(let ((dev (page-datum p 'device)))
(addstr*
text-window
@@ -148,9 +148,9 @@
(file-system-spec-mount-point fss))
(form-set-value! form 'fs-type
(file-system-spec-type fss))))
-
+
(form-set-current-field form 0)
-
+
(push-cursor (page-cursor-visibility p))
(buttons-post nav bwin)
(page-set-datum! p 'form form)
diff --git a/gnu/system/installer/network.scm b/gnu/system/installer/network.scm
index 655988c..617e8a2 100644
--- a/gnu/system/installer/network.scm
+++ b/gnu/system/installer/network.scm
@@ -124,7 +124,7 @@
(let ((next (make-wireless-page page (M_ "Wireless interface setup")
(assq-ref (menu-get-current-item menu)
'name))))
(page-enter next)))
-
+
((select-key? ch)
(let ((item (menu-get-current-item menu)))
(when (eq? (assq-ref item 'class) 'ethernet)
diff --git a/gnu/system/installer/partition-reader.scm
b/gnu/system/installer/partition-reader.scm
index d55f798..41d58ee 100644
--- a/gnu/system/installer/partition-reader.scm
+++ b/gnu/system/installer/partition-reader.scm
@@ -16,7 +16,7 @@
;;; 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 system installer partition-reader)
+(define-module (gnu system installer partition-reader)
#:export (disk?
partition?
disk-vendor
@@ -31,13 +31,13 @@
partition-name
partition-volume-pairs
-
+
number->size
find-partition
-
+
volumes)
-
+
#:use-module (ice-9 rdelim)
#:use-module (ice-9 match)
#:use-module (ice-9 popen)
@@ -48,7 +48,7 @@
(define (number->size n)
"Convert a number of megabytes into a human readable size representation"
- (let ((pr
+ (let ((pr
(let loop ((q (* n 1000))
(m 0))
(if (and (integer? (/ q 100))
@@ -70,7 +70,7 @@ number of Megabytes"
(let* ((threshold (1+ (string-index-right size char-set:digit)))
(quantity (string->number (substring size 0 threshold)))
(unit (substring size threshold))
- (multiplier
+ (multiplier
(cond
((equal? "KB" unit)
0.001)
@@ -123,7 +123,7 @@ number of Megabytes"
(define (parse-disk port disk-list)
(if (not (string=? "BYT" (read-line-drop-semi port)))
(error "Expected BYT;"))
-
+
(let ((line (read-line-drop-semi port)))
(match (string-split line #\:)
((name size type logical physical table vendor xx)
@@ -136,7 +136,7 @@ number of Megabytes"
(let ((line (read-line-drop-semi port)))
(match (string-split line #\:)
((number start stop size fs type flags)
- (cons
+ (cons
(make-partition number start stop
(size->number size)
fs type flags)
diff --git a/gnu/system/installer/ping.scm b/gnu/system/installer/ping.scm
index 3e04b01..a8cd82e 100644
--- a/gnu/system/installer/ping.scm
+++ b/gnu/system/installer/ping.scm
@@ -59,7 +59,7 @@
(cond
((buttons-key-matches-symbol? nav ch 'cancel)
- ;; Close the menu and return
+ ;; Close the menu and return
(page-leave))
((eq? ch KEY_RIGHT)
diff --git a/gnu/system/installer/role.scm b/gnu/system/installer/role.scm
index aa146e4..7193677 100644
--- a/gnu/system/installer/role.scm
+++ b/gnu/system/installer/role.scm
@@ -92,7 +92,7 @@
((select-key? ch)
(set! system-role (menu-get-current-item menu))
-
+
(page-leave))
((buttons-key-matches-symbol? nav ch 'cancel)
@@ -158,7 +158,7 @@
(menu (make-menu roles
#:disp-proc (lambda (datum row)
(role-description datum)))))
-
+
(addstr* text-window (format #f
(gettext
"Select from the list below the role which most closely matches
the purpose of the system to be installed.")))
diff --git a/gnu/system/installer/time-zone.scm
b/gnu/system/installer/time-zone.scm
index 727dbf5..ad62514 100644
--- a/gnu/system/installer/time-zone.scm
+++ b/gnu/system/installer/time-zone.scm
@@ -57,7 +57,7 @@
(cond
((eqv? (buttons-selected nav) (1- (buttons-n-buttons nav)))
(buttons-unselect-all nav))
-
+
(else
(buttons-select-next nav))))
@@ -120,7 +120,7 @@
(- (getmaxy (inner frame)) 3 (getmaxy
text-window))
(getmaxx (inner frame))
(getmaxy text-window) 0 #:panel #f))
-
+
(menu (make-menu
(let nn ((ds (opendir (page-datum p 'directory)))
(ll '()))
@@ -130,16 +130,16 @@
(closedir ds)
(sort ll string< ))
(nn ds
- (cond
+ (cond
((equal? "." o) ll)
((equal? ".." o) ll)
((>= (string-suffix-length o ".tab") 4) ll)
- (else
+ (else
(cons o ll)))))))))
)
-
+
(menu-post menu menu-window)
-
+
(addstr* text-window
(gettext "Select the default time zone for the system:" ))
diff --git a/gnu/system/installer/utils.scm b/gnu/system/installer/utils.scm
index 68cf08c..35da260 100644
--- a/gnu/system/installer/utils.scm
+++ b/gnu/system/installer/utils.scm
@@ -33,7 +33,7 @@
make-boxed-window
inner
outer
-
+
open-input-pipe-with-fallback
find-mount-device
@@ -118,7 +118,7 @@
(+ n (1+ len)))
(if (linefull? n width)
- (string-append acc
+ (string-append acc
(make-string (- width len) #\space))
(string-append acc word " "))))))
@@ -148,7 +148,7 @@ This version assumes some external entity puts in the
carriage returns."
(+ n (string-length appendage))
(string-append acc appendage)))))
-
+
(justify' (string-split text char-set:blank) 0 ""))
@@ -231,7 +231,7 @@ which will process each string before returning it."
((eqv? ch KEY_UP)
(menu-driver menu REQ_UP_ITEM)
))
-
+
(refresh win)))
@@ -326,7 +326,7 @@ mounts return the device on which the path IN would be
mounted."
(cons (car p)
(string-split (normalise-directory-path (pair->mp p))
dir-sep)))
(sort mp (lambda (x y) (string> (pair->mp x) (pair->mp y)))))))
-
+
(let loop ((pp paths))
(if (null? pp)
#f
diff --git a/gurses/buttons.scm b/gurses/buttons.scm
index 8be4983..a893494 100644
--- a/gurses/buttons.scm
+++ b/gurses/buttons.scm
@@ -29,7 +29,7 @@
#:export (buttons-n-buttons)
#:export (buttons-get-current-selection)
#:export (buttons-key-matches-symbol?)
-
+
#:use-module (ncurses curses)
#:use-module (srfi srfi-9))
@@ -58,7 +58,7 @@
(color-set! b color)
(box b 0 0)
(refresh b))
-
+
(define (buttons-unselect-all buttons)
(let* ((arry (buttons-array buttons))
(current (buttons-selected buttons))
@@ -99,7 +99,7 @@
(define* (buttons-select-next buttons #:key (wrap #f))
(let ((current (buttons-selected buttons)))
(if (and wrap
- (>= current
+ (>= current
(1- (array-length (buttons-array buttons)))))
(buttons-select buttons 0)
(buttons-select buttons (1+ current)))))
@@ -159,6 +159,6 @@
(and=> (buttons-get-current-selection nav)
(lambda (x) (eq? x symbol)))))
#f))
-
+
diff --git a/gurses/form.scm b/gurses/form.scm
index 13254f5..58b0e4b 100644
--- a/gurses/form.scm
+++ b/gurses/form.scm
@@ -67,7 +67,7 @@
(make-list (field-size field) (underline #\space))
#:y n
#:x (form-tabpos form))
-
+
(addstr (form-window form) (field-value field)
#:y n
#:x (form-tabpos form)))
@@ -78,7 +78,7 @@
(let ((f (array-ref (form-items form) n)))
(field-set-value! f str)
(redraw-field form f n)))
-
+
((symbol? n)
(let loop ((idx 0))
(if (array-in-bounds? (form-items form) idx)
@@ -142,7 +142,7 @@ label eq? to N"
(field-set-value! f (string-join
(list left right)
(make-string 1 ch)))
-
+
(field-set-cursor-position! f (1+ (field-cursor-position f)))
(addch (form-window form) (normal ch)))
@@ -150,7 +150,7 @@ label eq? to N"
(field-set-value! f (string-append left right))
(redraw-current-field form f)
(form-update-cursor form))
-
+
((eq? ch KEY_BACKSPACE)
(if (positive? (field-cursor-position f))
(begin
@@ -166,30 +166,30 @@ label eq? to N"
(field-set-value! f (substring (field-value f)
0 (field-cursor-position f)))
(redraw-current-field form f))
-
+
((or (eq? ch KEY_DOWN)
(eq? ch #\so)
(eq? ch #\tab))
(form-next-field form)
(cursor-move form f 0))
-
+
((or (eq? ch KEY_UP)
(eq? ch #\dle))
(form-previous-field form)
(cursor-move form f 0))
-
+
((eq? ch KEY_RIGHT)
(if (< (field-cursor-position f) (string-length (field-value f)))
(cursor-move form f (1+ (field-cursor-position f)))))
-
+
((eq? ch KEY_LEFT)
(if (positive? (field-cursor-position f))
(cursor-move form f (1- (field-cursor-position f)))))
-
+
((eq? ch #\soh)
;; Move to start of field
(cursor-move form f 0))
-
+
((eq? ch #\enq)
;; Move to end of field
(cursor-move form f (string-length (field-value f))))
@@ -217,7 +217,7 @@ label eq? to N"
(define (form-post form win)
(form-set-window! form win)
- (let ((xpos
+ (let ((xpos
;; Print the labels and return the length of the longest
(let loop ((fields (form-items form))
(pos 0)
@@ -231,7 +231,7 @@ label eq? to N"
(string-length (field-label
f)))))))))
(form-set-tabpos! form xpos)
-
+
;; Print the field entry areas
(let loop ((fields (form-items form))
(pos 0))
diff --git a/gurses/menu.scm b/gurses/menu.scm
index 1fca9bc..d43fec1 100644
--- a/gurses/menu.scm
+++ b/gurses/menu.scm
@@ -17,7 +17,7 @@
;;; along with GNU Guix. If not, see <http://www.gnu.org/licenses/>.
(define-module (gurses menu)
-
+
#:export (make-menu)
#:export (menu-post)
#:export (menu-refresh)
@@ -33,9 +33,9 @@
#:export (menu-set-active-attr!)
#:export (menu-set-active-color!)
#:export (menu-top-item)
-
+
#:export (menu-get-current-item)
-
+
#:export (std-menu-key-handler)
#:use-module (ncurses curses)
@@ -134,7 +134,7 @@
(let ((win (menu-window menu))
(colour (if (menu-active menu) (menu-active-color menu) 0))
(attr (if (menu-active menu) (menu-active-attr menu) A_DIM)))
-
+
(bkgd win (color 0 (normal #\space)))
(chgat win -1 attr colour #:y
(- (menu-current-item menu) (menu-top-item menu))
- 08/12: installer: Correct bug detecting a wireless interface., (continued)
- 08/12: installer: Correct bug detecting a wireless interface., John Darrington, 2017/01/15
- 01/12: installer: Add callback parameter for forms., John Darrington, 2017/01/15
- 04/12: installer: Add the notion of uuids to prospective filesystems., John Darrington, 2017/01/15
- 05/12: installer: Add a predicate to ensure the partitions have been formatted., John Darrington, 2017/01/15
- 09/12: installer: Exit the format page after all partitions are successfully formatted., John Darrington, 2017/01/15
- 11/12: installer: Replace one usage of car with match., John Darrington, 2017/01/15
- 10/12: installer: Do not perform tasks more than once., John Darrington, 2017/01/15
- 12/12: installer: Correct bug where the timezone page returned to the wrong page., John Darrington, 2017/01/15
- 02/12: installer: Remove mkfs capability from mount points page., John Darrington, 2017/01/15
- 06/12: installer: Changed N_ to M_ since N_ is used for another purpose in guix/ui.scm, John Darrington, 2017/01/15
- 07/12: installer: Whitespace changes only,
John Darrington <=
- 03/12: installer: Add a dedicated make to format filesystems., John Darrington, 2017/01/15