Rename the xdisorg package to rofi

1 files changed, 0 insertions, 169 deletions

diff --git a/oni/home/services/xdisorg.scm b/oni/home/services/xdisorg.scm
deleted file mode 100644
index a207e20..0000000
--- a/oni/home/services/xdisorg.scm
+++ /dev/null
@@ -1,169 +0,0 @@
-(define-module (oni home services xdisorg)
-  #:use-module (gnu services configuration)
-  #:use-module (gnu packages xdisorg)
-  #:use-module (gnu home services)
-  #:use-module (gnu home services utils)
-  #:use-module (guix packages)
-  #:use-module (guix gexp)
-  #:use-module (guix records)
-  #:use-module (guix i18n)
-  #:use-module (guix modules)
-  #:use-module (guix diagnostics)
-  #:use-module (oni home services xbindkeys)
-  #:use-module (srfi srfi-1)
-  #:use-module (srfi srfi-26)
-  #:use-module (ice-9 match)
-  #:use-module (ice-9 regex)
-  #:use-module (ice-9 common-list)
-
-  #:export (home-rofi-service-type
-            home-rofi-configuration))
-
-;;; This module has been copied from
-;;; https://github.com/nouun/jayu/blob/92ff6629da686f0ddc96a4d6cb2a657c76795bc6/jayu/home/services/xdisorg.scm
-
-(define-configuration/no-serialization home-rofi-configuration
-  (package
-   (package rofi)
-   "Package to use for setting Rofi")
-  (config (alist '())
-          "rofi config")
-  (theme (alist '())
-         "theme config"))
-
-(define color-regexp
-  (make-regexp
-   (string-append
-    "("
-    ;; #RGB
-    "#[a-zA-Z0-9]{3}" "|"
-    ;; #RGBA
-    "#[a-zA-Z0-9]{4}" "|"
-    ;; #RRGGBB
-    "#[a-zA-Z0-9]{6}" "|"
-    ;; #RRGGBBAA
-    "#[a-zA-Z0-9]{8}" "|"
-    ;; rgb(123, 123, 123)
-    "rgba?. *[0-9]{1,3} *%? *, *[0-9]{1,3} *%? *, *[0-9]{1,3} *%? *" "|"
-    ;; rgba(123, 123, 123, 0.1)
-    "rgba?. *[0-9]{1,3} *%? *, *[0-9]{1,3} *%? *, *[0-9]{1,3} *%? *, [0-9]\\.[0-9]*" "|"
-    ;; rgba(123, 123, 123, 100%)
-    "rgba?. *[0-9]{1,3} *%? *, *[0-9]{1,3} *%? *, *[0-9]{1,3} *%? *, [0-9]{1,3} *% *"
-    ;;children
-    ")")))
-
-(define (format-rofi-value val)
-  (cond
-   ((list? val)
-    (string-join (map format-rofi-value val) " "))
-   ((boolean? val)
-    (if val "true" "false"))
-   ((number? val)
-    (string-append
-     (object->string val)
-     (if (not (eq? 0 val))
-         "px" "")))
-   ((symbol? val)
-    (object->string val))
-   ((string? val)
-    (let ((color-match (regexp-exec color-regexp val)))
-      (if (regexp-match? color-match)
-          val (string-append "\"" val "\""))))
-   (else val)))
-
-(define (format-rofi-config config)
-  (let ((key (object->string (car config)))
-        (value (cdr config)))
-    (define (format-children children)
-      (string-append
-       "[" (string-join (map object->string children) ",") "]"))
-    (string-append key ": "
-                   (if (eq? 'children (car config))
-                       (format-children value)
-                       (format-rofi-value value))
-                   ";")))
-
-(define (serialize-rofi-config config)
- (list
-  (string-append
-   "configuration {\n  "
-   (string-join (map format-rofi-config config) "\n  ")
-   "\n}\n")))
-
-(define (format-rofi-theme theme)
-  (let ((keys (map (lambda (s)
-                     (if (symbol? s)
-                         (symbol->string s)
-                         (object->string s)))
-                   (butlast theme 1)))
-        (values (car (list-tail theme (- (length theme) 1)))))
-   (string-append (string-join keys ", ")
-                  " {\n  "
-                  (string-join
-                   (map format-rofi-config values)
-                   "\n  ")
-                  "\n}\n")))
-
-(define (serialize-rofi-theme theme)
-  (string-join (map format-rofi-theme theme) "\n"))
-
-(define (home-rofi-files-service conf)
-  `(("rofi/config.rasi"
-     ,(apply mixed-text-file
-        "config.rasi"
-        (append
-         ;; Main config
-         (serialize-rofi-config
-          (home-rofi-configuration-config conf))
-         ;; Apply theme
-         (if (not (eq? (home-rofi-configuration-theme conf) '()))
-             (list "\n@theme \"guix\"\n") '()))))
-    ("rofi/guix.rasi"
-     ,(mixed-text-file
-        "guix.rasi"
-        (serialize-rofi-theme
-         (home-rofi-configuration-theme conf))))))
-
-(define (home-rofi-profile-service config)
-  (list (home-rofi-configuration-package config)))
-
-(define (home-rofi-extension old-config extension-configs)
-  (match old-config
-    (($ <home-rofi-configuration> _ package* config* theme*)
-     (home-rofi-configuration
-      (package package*)
-      (config (append config*
-                      (append-map home-rofi-configuration-config
-                                  extension-configs)))
-      (theme (append theme*
-                     (append-map home-rofi-configuration-theme
-                                 extension-configs)))))))
-
-(define (add-rofi-xbindkeys-keybindings config)
-  (home-xbindkeys-extension
-   (keybindings
-    '(((mod4 r) . "herbstclient spawn rofi -show run")
-      ((mod4 w) . "herbstclient spawn rofi -show window -window-command \"/home/chelys/usr/bin/hlwm-switch-to-window {window}\"")))))
-
-(define home-rofi-service-type
-  (service-type (name 'home-rofi)
-                (extensions
-                 (list (service-extension
-                        home-xdg-configuration-files-service-type
-                        home-rofi-files-service)
-                       (service-extension
-                        home-profile-service-type
-                        home-rofi-profile-service)
-                       (service-extension
-                        home-xbindkeys-service-type
-                        add-rofi-xbindkeys-keybindings)))
-                (compose concatenate)
-                (extend home-rofi-extension)
-                (default-value (home-rofi-configuration))
-                (description "Configure Rofi")))
-
-(define (generate-home-rofi-documentation)
-  (generate-documentation
-   `((home-rofi-configuration
-      ,home-rofi-configuration-fields))
-   'home-rofi-configuration))