(use-modules (guix packages) (guix download) (guix build-system gnu) (guix licenses) (gnu packages bison) (gnu packages flex))
(package
    (name "fbset")
    (version "2.1")
    (source (origin
             (method url-fetch)
             (uri (string-append "http://users.telenet.be/geertu/Linux/fbdev/"
                                 name "-" version ".tar.gz"))
             (sha256
              (base32
               "080wnisi0jq7dp0jcwdp83rq8q8s3kw41vc712516xbv4jq4mzs0"))))
    (build-system gnu-build-system)
    (arguments
     `(#:tests? #f
       #:parallel-build? #f
       #:phases
       (modify-phases %standard-phases
        (add-after 'unpack 'patch-installer
          (lambda* (#:key outputs #:allow-other-keys)
            (let ((out (assoc-ref outputs "out")))
              (mkdir-p out)
              (mkdir-p (string-append out "/bin"))
              (mkdir-p (string-append out "/man"))
              (mkdir-p (string-append out "/man/man5"))
              (mkdir-p (string-append out "/man/man8"))
              (substitute* "Makefile"
                (("/usr/sbin") "/usr/bin")
                (("/usr") out)
                (("mknod ") "echo "))
              #t)))
        (delete 'configure))))
    (native-inputs
     `(("bison" ,bison)
       ("flex" ,flex)))
    (home-page "https://www.gnu.org/software/linux-libre/")
    (synopsis "Framebuffer device maintenance program")
    (description "@code{fbset} can be used to set the screen resolution
and virtual terminal association of a Framebuffer.")
    (license gpl2))