image: Add support for f2fs.

* gnu/build/image.scm (make-f2fs-image): New variable.
  (make-partition-image): Support f2fs.
  (estimate-partition-size): Add optional margin.
* gnu/system/image.scm (system-disk-image): Support f2fs.
* doc/guix.texi: (partition Reference): Support f2fs.

Change-Id: Ia7fc4483c3cc1af5f34fac86a529a90a1bd7c2c6
Signed-off-by: Denis 'GNUtoo' Carikli <GNUtoo@cyberdimension.org>
Signed-off-by: Ludovic Courtès <ludo@gnu.org>

1 files changed, 6 insertions, 2 deletions

diff --git a/gnu/system/image.scm b/gnu/system/image.scm
index 4693e13d164..b89d3a67781 100644
--- a/gnu/system/image.scm
+++ b/gnu/system/image.scm
@@ -404,7 +404,8 @@ used in the image."
         (cond
          ((member 'esp flags) "0xEF")
          ((or (string=? file-system "btrfs")
-              (string-prefix? "ext" file-system)) "0x83")
+              (string-prefix? "ext" file-system)
+              (string=? file-system "f2fs")) "0x83")
          ((or (string=? file-system "vfat")
               (string=? file-system "fat16")) "0x0E")
          ((string=? file-system "fat32") "0x0C")
@@ -424,7 +425,8 @@ used in the image."
         (cond
          ((member 'esp flags) "U")
          ((or (string=? file-system "btrfs")
-              (string-prefix? "ext" file-system)) "L")
+              (string-prefix? "ext" file-system)
+              (string=? file-system "f2fs")) "L")
          ((or (string=? file-system "vfat")
               (string=? file-system "fat16")
               (string=? file-system "fat32")) "F")
@@ -460,6 +462,8 @@ used in the image."
                                    (list btrfs-progs fakeroot))
                                   ((string-prefix? "ext" type)
                                    (list e2fsprogs fakeroot))
+                                  ((string=? type "f2fs")
+                                   (list f2fs-tools fakeroot))
                                   ((or (string=? type "vfat")
                                        (string-prefix? "fat" type))
                                    (list dosfstools fakeroot mtools))