suckless.scm (3396B)
1 (define-module (epistemia packages suckless) 2 #:use-module (gnu packages fontutils) 3 #:use-module (gnu packages ncurses) 4 #:use-module (gnu packages pkg-config) 5 #:use-module (gnu packages xorg) 6 #:use-module (guix build-system gnu) 7 #:use-module (guix gexp) 8 #:use-module (guix git-download) 9 #:use-module ((guix licenses) #:prefix license:) 10 #:use-module (guix packages) 11 #:use-module (guix utils) 12 #:export (vin-dwm)) 13 14 (define-public vin-dwm 15 (package 16 (name "vin-dwm") 17 (version "6.5") 18 (source 19 (origin 20 (method git-fetch) 21 (uri (git-reference 22 (url "/data/src/private/suckless/dwm") 23 (commit "904dc786815d3530f76e62ba3af4736e83370870"))) 24 (file-name (git-file-name name version)) 25 (sha256 26 (base32 "1q07dnw33zr14nnih4ldx1aqmg5dxvp8fvj3qa0fi3qy312pfhfg")))) 27 (build-system gnu-build-system) 28 (arguments 29 `(#:tests? #f 30 #:make-flags (list (string-append "FREETYPEINC=" 31 (assoc-ref %build-inputs "freetype") 32 "/include/freetype2")) 33 #:phases 34 (modify-phases %standard-phases 35 (replace 'configure 36 (lambda _ 37 (substitute* "Makefile" (("\\$\\{CC\\}") "gcc")) 38 #t)) 39 (replace 'install 40 (lambda* (#:key outputs #:allow-other-keys) 41 (let ((out (assoc-ref outputs "out"))) 42 (invoke "make" "install" 43 (string-append "DESTDIR=" out) "PREFIX="))))))) 44 (inputs 45 (list freetype libx11 libxft libxinerama)) 46 (home-page "https://dwm.suckless.org/") 47 (synopsis "Dynamic window manager") 48 (description 49 "dwm is a dynamic window manager for X. It manages windows in tiled, 50 monocle and floating layouts. All of the layouts can be applied dynamically, 51 optimising the environment for the application in use and the task performed.") 52 (license license:x11))) 53 54 (define-public vin-st 55 (package 56 (name "vin-st") 57 (version "0.9.2") 58 (source 59 (origin 60 (method git-fetch) 61 (uri (git-reference 62 (url "/data/src/private/suckless/st") 63 (commit "0b6ef824637c77e00b26369bfe77c3e3311f7eed"))) 64 (file-name (git-file-name name version)) 65 (sha256 66 (base32 "0ylqaarkkrqx26aiqcz4nhp68k6dmrqbhn7knx10d9j7v1vpjcnh")))) 67 (build-system gnu-build-system) 68 (arguments 69 `(#:tests? #f ; no tests 70 #:make-flags 71 (list (string-append "CC=" ,(cc-for-target)) 72 (string-append "TERMINFO=" 73 (assoc-ref %outputs "out") 74 "/share/terminfo") 75 (string-append "PREFIX=" %output)) 76 #:phases 77 (modify-phases %standard-phases 78 (delete 'configure)))) 79 (inputs 80 `(("libx11" ,libx11) 81 ("libxft" ,libxft) 82 ("fontconfig" ,fontconfig) 83 ("freetype" ,freetype))) 84 (native-inputs 85 (list ncurses ;provides tic program 86 pkg-config)) 87 (home-page "https://st.suckless.org/") 88 (synopsis "Simple terminal emulator") 89 (description 90 "St implements a simple and lightweight terminal emulator. It 91 implements 256 colors, most VT10X escape sequences, utf8, X11 copy/paste, 92 antialiased fonts (using fontconfig), fallback fonts, resizing, and line 93 drawing.") 94 (license (list license:x11 95 license:expat))))