new paste || ipv4:js fail, n/a or broken? | ipv6:js fail, n/a or broken? ||

paste 14264/62af | 412 views since 2018-12-26 15:32:17 | text/plain | wrap || empty reply | copy reply | quote reply
js:(
;; This is an operating system configuration template
;; for a "desktop" setup with GNOME and Xfce where the
;; root partition is encrypted with LUKS.

(use-modules (gnu) (gnu system nss)
 (gnu packages)
 (gnu packages security-token)
 (gnu packages freedesktop)
 (gnu packages enlightenment)
 (gnu packages xdisorg)
 (gnu packages wm)
 (gnu packages vim)
 (gnu packages emacs)
 (gnu packages games)
 (gnu packages fonts)
 (gnu packages version-control)
 (gnu packages wget)
 (gnu packages curl)
 (gnu packages linux)
 (gnu packages ftp)
 (gnu packages rsync)
 (gnu packages gnupg)
 (gnu packages backup)
 (gnu packages xorg)
 (gnu packages accessibility)
)
(use-service-modules desktop networking ssh)
(use-package-modules screen ssh bootloaders certs gnome ratpoison suckless wm)


;;; As per https://www.gnu.org/software/guix/manual/en/html_node/Using-the-Configuration-System.html ;
(define %my-services
  ;; My very own list of services.
  (modify-services %base-services
		   (guix-service-type config =>
				      (guix-configuration
					(inherit config)
					(use-substitutes? #f)
					(extra-options '("--substitute-urls=https://berlin.guixsd.org")
						       )
					)
				      )
		   )
  )


(operating-system
  (host-name "quessie")
  (timezone "Europe/Berlin")
  (locale "en_US.utf8")

  ;; Assuming /dev/sdX is the target hard disk, and "my-root"
  ;; is the label of the target root file system.
  (bootloader (bootloader-configuration
                (bootloader grub-bootloader)
                (target "/dev/sda")))

  (file-systems (cons (file-system
                        (mount-point "/")
                        (type "ext4")
                        (title 'label)
                        (device "quessieroot"))
                      %base-file-systems))

  (users (cons (user-account
                (name "que")
                (comment "qu'est ce que")
                (group "users")
                (supplementary-groups '("wheel" "netdev"
                                        "audio" "video"))
                (home-directory "/home/que"))
               %base-user-accounts))

  ;; This is where we specify system-wide packages.
  (packages (cons* nss-certs         ;for HTTPS access
                   gvfs              ;for user mounts
                   pcsc-lite ccid opensc
                   fprintd
                   enlightenment
                   ratpoison i3-wm i3status dmenu ;window managers
                   gnome-tweak-tool scrot i3lock-fancy i3lock-color i3blocks i3status
                   neovim neovim-syntastic emacs emacs-guix emacs-evil emacs-evil-smartparens emacs-geiser ; editors and stuff
                   emacs-solarized-theme emacs-zenburn-theme emacs-dream-theme 0ad font-tamzen emacs-powerline vim-airline cmatrix ; fun
                   git emacs-magit tig git-flow vim-fugitive emacs-git-timemachine ; version control
; meh : wget2 fortune-mod meld emacs-git-modes
                   emacs-wget wget sshfs-fuse filezilla curl rsync ; fs and network-fs stuff
                   gnupg gpa gpgme qgpgme duplicity 
                   florence
                   xf86-input-wacom xf86-input-evdev
                   %base-packages))


  ;; Add GNOME and/or Xfce---we can choose at the log-in
  ;; screen with F1.  Use the "desktop" services, which
  ;; include the X11 log-in service, networking with Wicd,
  ;; and more.
  (services (cons* (gnome-desktop-service)
                   (xfce-desktop-service)
                   %desktop-services
;;;;;;
		   ))

  ;; Allow resolution of '.local' host names with mDNS.
  (name-service-switch %mdns-host-lookup-nss))