Compare commits
No commits in common. "eaf92fbf1b40bfb8960d4265611899a65c9c33bc" and "ebf711890afd44c68200b444e0e9365696f8bcf1" have entirely different histories.
eaf92fbf1b
...
ebf711890a
21 changed files with 185 additions and 452 deletions
|
|
@ -52,7 +52,7 @@ CDPARANOIAOPTS="--never-skip=40"
|
||||||
CDDISCID=cd-discid
|
CDDISCID=cd-discid
|
||||||
|
|
||||||
# Give the base location here for the encoded music files.
|
# Give the base location here for the encoded music files.
|
||||||
OUTPUTDIR="$HOME/tmp/music"
|
OUTPUTDIR="$HOME/music"
|
||||||
|
|
||||||
# The default actions that abcde will take.
|
# The default actions that abcde will take.
|
||||||
ACTIONS=cddb,read,encode,tag,move,clean
|
ACTIONS=cddb,read,encode,tag,move,clean
|
||||||
|
|
|
||||||
|
|
@ -96,15 +96,11 @@
|
||||||
home-emacs-golden-ratio-service-type
|
home-emacs-golden-ratio-service-type
|
||||||
home-emacs-pinentry-service-type
|
home-emacs-pinentry-service-type
|
||||||
home-emacs-vterm-service-type
|
home-emacs-vterm-service-type
|
||||||
home-emacs-vterm-configuration
|
home-emacs-vterm-configuration))
|
||||||
home-emacs-org-modern-service-type))
|
|
||||||
#:use-module ((oni home services environment)
|
#:use-module ((oni home services environment)
|
||||||
#:select (home-environment-service))
|
#:select (home-environment-service))
|
||||||
#:use-module ((oni home services flameshot)
|
#:use-module ((oni home services flameshot)
|
||||||
#:select (home-flameshot-service-type))
|
#:select (home-flameshot-service-type))
|
||||||
#:use-module ((oni home services gnuzilla)
|
|
||||||
#:select (home-icecat-service-type
|
|
||||||
home-icecat-configuration))
|
|
||||||
#:use-module ((oni home services kdeconnect)
|
#:use-module ((oni home services kdeconnect)
|
||||||
#:select (home-kdeconnect-service-type))
|
#:select (home-kdeconnect-service-type))
|
||||||
#:use-module ((oni home services mpd)
|
#:use-module ((oni home services mpd)
|
||||||
|
|
@ -112,8 +108,7 @@
|
||||||
home-mpd-configuration
|
home-mpd-configuration
|
||||||
<home-mpd-audio-output>
|
<home-mpd-audio-output>
|
||||||
home-mpc-update-service-type
|
home-mpc-update-service-type
|
||||||
home-mpd-notify-service-type
|
home-mpd-notify-service-type))
|
||||||
home-mpdscrobble-service-type))
|
|
||||||
#:use-module ((oni home services mpv)
|
#:use-module ((oni home services mpv)
|
||||||
#:select (home-mpv-service-type
|
#:select (home-mpv-service-type
|
||||||
home-mpv-mpris-service-type))
|
home-mpv-mpris-service-type))
|
||||||
|
|
@ -199,11 +194,12 @@
|
||||||
emacs-oni-embrace
|
emacs-oni-embrace
|
||||||
emacs-oni-yaml
|
emacs-oni-yaml
|
||||||
emacs-oni-python
|
emacs-oni-python
|
||||||
emacs-oni-git-commit
|
emacs-oni-git-commit))
|
||||||
emacs-oni-php))
|
#:use-module ((oni packages hlwm-run-or-raise)
|
||||||
|
#:select (hlwm-run-or-raise))
|
||||||
#:use-module ((oni packages inbox-size)
|
#:use-module ((oni packages inbox-size)
|
||||||
#:select (inbox-size))
|
#:select (inbox-size))
|
||||||
#:use-module ((oni packages mpd)
|
#:use-module ((oni packages mpd-random-albums)
|
||||||
#:select (mpd-random-albums))
|
#:select (mpd-random-albums))
|
||||||
#:use-module ((oni packages notmuch-collect-tasks)
|
#:use-module ((oni packages notmuch-collect-tasks)
|
||||||
#:select (notmuch-collect-tasks))
|
#:select (notmuch-collect-tasks))
|
||||||
|
|
@ -245,8 +241,6 @@
|
||||||
(wintypes
|
(wintypes
|
||||||
'((dnd (shadow . #f))
|
'((dnd (shadow . #f))
|
||||||
(dock (shadow . #f))))
|
(dock (shadow . #f))))
|
||||||
(rounded-corners-exclude
|
|
||||||
'("window_type *= \\\"dock\\\""))
|
|
||||||
(corner-radius 15)
|
(corner-radius 15)
|
||||||
(blur-background #f)
|
(blur-background #f)
|
||||||
(blur-background-frame #f)
|
(blur-background-frame #f)
|
||||||
|
|
@ -259,6 +253,7 @@
|
||||||
(specification->package+output "glibc-locales")
|
(specification->package+output "glibc-locales")
|
||||||
(specification->package+output "font-fantasque-sans")
|
(specification->package+output "font-fantasque-sans")
|
||||||
(specification->package+output "font-comic-neue")
|
(specification->package+output "font-comic-neue")
|
||||||
|
hlwm-run-or-raise
|
||||||
pick-random-wallpaper
|
pick-random-wallpaper
|
||||||
notmuch-collect-tasks
|
notmuch-collect-tasks
|
||||||
notmuch-tag-mailinglists
|
notmuch-tag-mailinglists
|
||||||
|
|
@ -328,7 +323,6 @@
|
||||||
emacs-oni-python
|
emacs-oni-python
|
||||||
emacs-nginx-mode
|
emacs-nginx-mode
|
||||||
emacs-oni-git-commit
|
emacs-oni-git-commit
|
||||||
emacs-oni-php
|
|
||||||
|
|
||||||
tree-sitter-bash
|
tree-sitter-bash
|
||||||
tree-sitter-scheme
|
tree-sitter-scheme
|
||||||
|
|
@ -371,7 +365,7 @@
|
||||||
(list
|
(list
|
||||||
(channel
|
(channel
|
||||||
(name 'oni)
|
(name 'oni)
|
||||||
(url "git://ryuslash.org/guix-packages.git")
|
(url "https://code.ryuslash.org/ryuslash/guix-packages.git")
|
||||||
(introduction
|
(introduction
|
||||||
(make-channel-introduction
|
(make-channel-introduction
|
||||||
"646573578b7adfbff415645fed201269076cebf6"
|
"646573578b7adfbff415645fed201269076cebf6"
|
||||||
|
|
@ -451,7 +445,6 @@
|
||||||
(service home-emacs-vterm-service-type
|
(service home-emacs-vterm-service-type
|
||||||
(home-emacs-vterm-configuration
|
(home-emacs-vterm-configuration
|
||||||
(buffer-name-string "*vterm* %s")))
|
(buffer-name-string "*vterm* %s")))
|
||||||
(service home-emacs-org-modern-service-type)
|
|
||||||
|
|
||||||
(service home-flameshot-service-type)
|
(service home-flameshot-service-type)
|
||||||
|
|
||||||
|
|
@ -472,7 +465,6 @@
|
||||||
#:format "44100:16:2")))))
|
#:format "44100:16:2")))))
|
||||||
(service home-mpc-update-service-type)
|
(service home-mpc-update-service-type)
|
||||||
(service home-mpd-notify-service-type)
|
(service home-mpd-notify-service-type)
|
||||||
(service home-mpdscrobble-service-type)
|
|
||||||
|
|
||||||
(service home-mpv-service-type)
|
(service home-mpv-service-type)
|
||||||
;; [2024-01-05 Fri] mpv-mpris fails to compile:
|
;; [2024-01-05 Fri] mpv-mpris fails to compile:
|
||||||
|
|
@ -541,22 +533,4 @@
|
||||||
(ssh-support? #f)
|
(ssh-support? #f)
|
||||||
(extra-content
|
(extra-content
|
||||||
"allow-emacs-pinentry\n")))
|
"allow-emacs-pinentry\n")))
|
||||||
(service home-ssh-agent-service-type)
|
(service home-ssh-agent-service-type))))
|
||||||
|
|
||||||
(service home-icecat-service-type
|
|
||||||
(home-icecat-configuration
|
|
||||||
(settings
|
|
||||||
'(("extensions.pocket.enabled" #f)
|
|
||||||
("view_source.editor.args" "--no-wait")
|
|
||||||
("view_source.editor.external" #t)
|
|
||||||
("view_source.editor.path" "/home/chelys/.guix-home/profile/bin/emacsclient")
|
|
||||||
("browser.display.background_color" "#222424")
|
|
||||||
("browser.display.foreground_color" "#bfbfbf")
|
|
||||||
("browser.display.document_color_use" 2)
|
|
||||||
("browser.anchor_color" "#ff9800")
|
|
||||||
("browser.visited_color" "#0babab")
|
|
||||||
("browser.display.use_document_fonts" 0)
|
|
||||||
("browser.newtabpage.activity-stream.showWeather" #f)
|
|
||||||
;; Change the accelerator key (modifier key for most keyboard
|
|
||||||
;; shortcuts) to the super key (from control).
|
|
||||||
("ui.key.accelKey" 91))))))))
|
|
||||||
|
|
|
||||||
|
|
@ -15,8 +15,7 @@
|
||||||
emacs-eros
|
emacs-eros
|
||||||
emacs-ace-link
|
emacs-ace-link
|
||||||
emacs-pinentry
|
emacs-pinentry
|
||||||
emacs-vterm
|
emacs-vterm))
|
||||||
emacs-org-modern))
|
|
||||||
#:use-module ((gnu home services)
|
#:use-module ((gnu home services)
|
||||||
#:select (service-type
|
#:select (service-type
|
||||||
service-extension
|
service-extension
|
||||||
|
|
@ -68,10 +67,7 @@
|
||||||
home-emacs-pinentry-configuration
|
home-emacs-pinentry-configuration
|
||||||
|
|
||||||
home-emacs-vterm-service-type
|
home-emacs-vterm-service-type
|
||||||
home-emacs-vterm-configuration
|
home-emacs-vterm-configuration))
|
||||||
|
|
||||||
home-emacs-org-modern-service-type
|
|
||||||
home-emacs-org-modern-configuration))
|
|
||||||
|
|
||||||
(define-maybe string)
|
(define-maybe string)
|
||||||
|
|
||||||
|
|
@ -479,7 +475,7 @@
|
||||||
(format #f "(setq vterm-buffer-name-string ~s)\n" buffer-name-string)
|
(format #f "(setq vterm-buffer-name-string ~s)\n" buffer-name-string)
|
||||||
""))
|
""))
|
||||||
";;;;; vterm-config ends here.\n"))
|
";;;;; vterm-config ends here.\n"))
|
||||||
(home-emacs-vterm-configuration-extra-content config)))))
|
(home-emacs-vterm-configuration-extra-content config)))))
|
||||||
|
|
||||||
(define (add-emacs-vterm-zsh-configuration config)
|
(define (add-emacs-vterm-zsh-configuration config)
|
||||||
(home-zsh-extension
|
(home-zsh-extension
|
||||||
|
|
@ -504,10 +500,8 @@
|
||||||
"fi\n"
|
"fi\n"
|
||||||
(if (maybe-value-set? (home-emacs-vterm-configuration-buffer-name-string config))
|
(if (maybe-value-set? (home-emacs-vterm-configuration-buffer-name-string config))
|
||||||
(string-append
|
(string-append
|
||||||
"vterm_chpwd(){ print -Pn \"\\e]2;%m:%2~\\a\" }\n"
|
"autoload -U add-zsh-hook\n"
|
||||||
"if [[ \"$INSIDE_EMACS\" = 'vterm' ]]; then\n"
|
"add-zsh-hook -Uz chpwd (){ print -Pn \"\\e]2;%m:%2~\\a\" }\n")
|
||||||
" chpwd_functions+=(vterm_chpwd)\n"
|
|
||||||
"fi\n")
|
|
||||||
"")
|
"")
|
||||||
"vterm_prompt_end() {\n"
|
"vterm_prompt_end() {\n"
|
||||||
" vterm_printf \"51;A$(whoami)@$(hostname):$(pwd)\"\n"
|
" vterm_printf \"51;A$(whoami)@$(hostname):$(pwd)\"\n"
|
||||||
|
|
@ -544,40 +538,3 @@
|
||||||
(compose identity)
|
(compose identity)
|
||||||
(default-value (home-emacs-vterm-configuration))
|
(default-value (home-emacs-vterm-configuration))
|
||||||
(description "Install and configure emacs-vterm.")))
|
(description "Install and configure emacs-vterm.")))
|
||||||
|
|
||||||
;;; Org-modern
|
|
||||||
|
|
||||||
(define-configuration/no-serialization home-emacs-org-modern-configuration
|
|
||||||
(package
|
|
||||||
(package emacs-org-modern)
|
|
||||||
"Package to use for setting emacs-org-modern.")
|
|
||||||
(extra-content
|
|
||||||
(text-config '())
|
|
||||||
"Extra content for emacs-org-modern configuration."))
|
|
||||||
|
|
||||||
(define (add-emacs-org-modern-configuration config)
|
|
||||||
(home-emacs-extension
|
|
||||||
(configurations
|
|
||||||
(append
|
|
||||||
(list (mixed-text-file "org-modern-config"
|
|
||||||
";;;;; org-modern-config starts here.\n"
|
|
||||||
"(with-eval-after-load 'org (global-org-modern-mode))"
|
|
||||||
";;;;; org-modern-config ends here.\n"))
|
|
||||||
(home-emacs-org-modern-configuration-extra-content config)))))
|
|
||||||
|
|
||||||
(define (add-emacs-org-modern-packages config)
|
|
||||||
(list (home-emacs-org-modern-configuration-package config)))
|
|
||||||
|
|
||||||
(define home-emacs-org-modern-service-type
|
|
||||||
(service-type
|
|
||||||
(name 'home-emacs-org-modern)
|
|
||||||
(extensions
|
|
||||||
(list (service-extension
|
|
||||||
home-emacs-service-type
|
|
||||||
add-emacs-org-modern-configuration)
|
|
||||||
(service-extension
|
|
||||||
home-profile-service-type
|
|
||||||
add-emacs-org-modern-packages)))
|
|
||||||
(compose identity)
|
|
||||||
(default-value (home-emacs-org-modern-configuration))
|
|
||||||
(description "Install and configure emacs-org-modern.")))
|
|
||||||
|
|
|
||||||
|
|
@ -1,85 +0,0 @@
|
||||||
(define-module (oni home services gnuzilla)
|
|
||||||
#:use-module ((ice-9 match)
|
|
||||||
#:select (match))
|
|
||||||
#:use-module ((gnu services configuration)
|
|
||||||
#:select (serialize-package
|
|
||||||
define-configuration))
|
|
||||||
#:use-module ((gnu packages gnuzilla)
|
|
||||||
#:select (icecat))
|
|
||||||
#:use-module ((gnu home services)
|
|
||||||
#:select (service-type
|
|
||||||
service-extension
|
|
||||||
home-profile-service-type
|
|
||||||
home-files-service-type))
|
|
||||||
#:use-module ((guix packages)
|
|
||||||
#:select (package?))
|
|
||||||
#:use-module ((guix gexp)
|
|
||||||
#:select (gexp
|
|
||||||
mixed-text-file))
|
|
||||||
|
|
||||||
#:export (home-icecat-service-type
|
|
||||||
home-icecat-configuration))
|
|
||||||
|
|
||||||
(define (serialize-setting pair)
|
|
||||||
(match pair
|
|
||||||
((key (? boolean? value))
|
|
||||||
(format #f "user_pref(~s, ~a);" key (if value "true" "false")))
|
|
||||||
((key (? number? value))
|
|
||||||
(format #f "user_pref(~s, ~a);" key value))
|
|
||||||
((key (? string? value))
|
|
||||||
(format #f "user_pref(~s, ~s);" key value))))
|
|
||||||
|
|
||||||
(define (serialize-alist field value)
|
|
||||||
(string-join (map serialize-setting value) "\n"))
|
|
||||||
|
|
||||||
(define (alist? value)
|
|
||||||
(or (null? value)
|
|
||||||
(and (list? value)
|
|
||||||
(list? (car value)))))
|
|
||||||
|
|
||||||
(define-configuration home-icecat-configuration
|
|
||||||
(package
|
|
||||||
(package icecat)
|
|
||||||
"Package to use for setting up icecat.")
|
|
||||||
(settings
|
|
||||||
(alist '())
|
|
||||||
"Settings to specify for the generated profile."))
|
|
||||||
|
|
||||||
(define (add-icecat-packages config)
|
|
||||||
(list (home-icecat-configuration-package config)))
|
|
||||||
|
|
||||||
(define (home-icecat-configuration-files config)
|
|
||||||
`((".mozilla/icecat/profiles.ini"
|
|
||||||
,(mixed-text-file
|
|
||||||
"profiles.ini"
|
|
||||||
"[Install4F96D1932A9F858E]\n"
|
|
||||||
"Default=default\n"
|
|
||||||
"Locked=1\n"
|
|
||||||
"\n"
|
|
||||||
"[Profile0]\n"
|
|
||||||
"Name=default\n"
|
|
||||||
"IsRelative=1\n"
|
|
||||||
"Path=default\n"
|
|
||||||
"Default=1\n"
|
|
||||||
"\n"
|
|
||||||
"[General]\n"
|
|
||||||
"StartWithLastProfile=1\n"
|
|
||||||
"Version=2\n"))
|
|
||||||
(".mozilla/icecat/default/user.js"
|
|
||||||
,(mixed-text-file
|
|
||||||
"user.js"
|
|
||||||
(serialize-alist config (home-icecat-configuration-settings config))))))
|
|
||||||
|
|
||||||
(define home-icecat-service-type
|
|
||||||
(service-type
|
|
||||||
(name 'home-icecat)
|
|
||||||
(extensions
|
|
||||||
(list (service-extension
|
|
||||||
home-profile-service-type
|
|
||||||
add-icecat-packages)
|
|
||||||
(service-extension
|
|
||||||
home-files-service-type
|
|
||||||
home-icecat-configuration-files)))
|
|
||||||
(compose identity)
|
|
||||||
(default-value (home-icecat-configuration))
|
|
||||||
(description "Install and configure icecat.")))
|
|
||||||
|
|
@ -9,9 +9,8 @@
|
||||||
#:use-module (srfi srfi-1)
|
#:use-module (srfi srfi-1)
|
||||||
#:use-module (oop goops)
|
#:use-module (oop goops)
|
||||||
#:use-module (ice-9 string-fun)
|
#:use-module (ice-9 string-fun)
|
||||||
#:use-module ((oni packages mpd)
|
#:use-module ((oni packages mpd-notify)
|
||||||
#:select (mpd-notify
|
#:select (mpd-notify))
|
||||||
mpdscrobble))
|
|
||||||
|
|
||||||
#:export (home-mpd-service-type
|
#:export (home-mpd-service-type
|
||||||
home-mpd-configuration
|
home-mpd-configuration
|
||||||
|
|
@ -21,10 +20,7 @@
|
||||||
home-mpc-update-configuration
|
home-mpc-update-configuration
|
||||||
|
|
||||||
home-mpd-notify-service-type
|
home-mpd-notify-service-type
|
||||||
home-mpd-notify-configuration
|
home-mpd-notify-configuration))
|
||||||
|
|
||||||
home-mpdscrobble-service-type
|
|
||||||
home-mpdscrobble-configuration))
|
|
||||||
|
|
||||||
(define (serialize-boolean field value)
|
(define (serialize-boolean field value)
|
||||||
"")
|
"")
|
||||||
|
|
@ -208,44 +204,3 @@
|
||||||
(compose identity)
|
(compose identity)
|
||||||
(default-value (home-mpd-notify-configuration))
|
(default-value (home-mpd-notify-configuration))
|
||||||
(description "Install and configure mpd notifications.")))
|
(description "Install and configure mpd notifications.")))
|
||||||
|
|
||||||
(define-configuration home-mpdscrobble-configuration
|
|
||||||
(package
|
|
||||||
(package mpdscrobble)
|
|
||||||
"Pakcage to use for setting mpdscrobble")
|
|
||||||
(auto-start?
|
|
||||||
(boolean #t)
|
|
||||||
"Should mpdscrobble be started automatically?"))
|
|
||||||
|
|
||||||
(define (add-mpdscrobble-packages config)
|
|
||||||
(list (home-mpdscrobble-configuration-package config)))
|
|
||||||
|
|
||||||
(define (home-mpdscrobble-shepherd-service config)
|
|
||||||
(list
|
|
||||||
(shepherd-service
|
|
||||||
(documentation "Scrobble songs to last.fm and/or maloja")
|
|
||||||
(provision '(mpdscrobble))
|
|
||||||
(requirement '(mpd))
|
|
||||||
(auto-start? (home-mpdscrobble-configuration-auto-start? config))
|
|
||||||
(start
|
|
||||||
#~(make-forkexec-constructor
|
|
||||||
(list #$(file-append (home-mpdscrobble-configuration-package config) "/bin/mpdscrobble"))
|
|
||||||
#:log-file (format #f "~a/.local/var/log/mpdscrobble.log" (getenv "HOME"))))
|
|
||||||
(stop #~(make-kill-destructor))
|
|
||||||
(respawn? #t)
|
|
||||||
(respawn-delay 1)
|
|
||||||
(respawn-limit 60))))
|
|
||||||
|
|
||||||
(define home-mpdscrobble-service-type
|
|
||||||
(service-type
|
|
||||||
(name 'home-mpdscrobble)
|
|
||||||
(extensions
|
|
||||||
(list (service-extension
|
|
||||||
home-profile-service-type
|
|
||||||
add-mpdscrobble-packages)
|
|
||||||
(service-extension
|
|
||||||
home-shepherd-service-type
|
|
||||||
home-mpdscrobble-shepherd-service)))
|
|
||||||
(compose identity)
|
|
||||||
(default-value (home-mpdscrobble-configuration))
|
|
||||||
(description "Install and configure mpdscrobble.")))
|
|
||||||
|
|
|
||||||
|
|
@ -113,9 +113,6 @@
|
||||||
(wintypes
|
(wintypes
|
||||||
(alist '())
|
(alist '())
|
||||||
"Window-type-specific settings")
|
"Window-type-specific settings")
|
||||||
(rounded-corners-exclude
|
|
||||||
(list '())
|
|
||||||
"Specify a list of conditions of windows that should have no rounded corners")
|
|
||||||
(corner-radius
|
(corner-radius
|
||||||
(number 0)
|
(number 0)
|
||||||
"Sets the radius of rounded window corners")
|
"Sets the radius of rounded window corners")
|
||||||
|
|
|
||||||
|
|
@ -56,6 +56,7 @@
|
||||||
(define (add-stumpwm-packages config)
|
(define (add-stumpwm-packages config)
|
||||||
(append (list sbcl
|
(append (list sbcl
|
||||||
(home-stumpwm-configuration-package config)
|
(home-stumpwm-configuration-package config)
|
||||||
|
(list stumpwm "lib")
|
||||||
(home-stumpwm-configuration-stumpish-package config))))
|
(home-stumpwm-configuration-stumpish-package config))))
|
||||||
|
|
||||||
(define (home-stumpwm-extensions original-config extension-configs)
|
(define (home-stumpwm-extensions original-config extension-configs)
|
||||||
|
|
|
||||||
|
|
@ -39,7 +39,7 @@ after it has been unlocked."
|
||||||
|
|
||||||
(defcommand raise-terminal () ()
|
(defcommand raise-terminal () ()
|
||||||
"Open or show my terminal"
|
"Open or show my terminal"
|
||||||
(run-or-raise "kitty" '(:class "kitty|org\.wezfurlong\.wezterm")))
|
(run-or-raise "kitty" '(:class "kitty")))
|
||||||
|
|
||||||
(define-key *top-map* (kbd "C-M-l") "lock-screen")
|
(define-key *top-map* (kbd "C-M-l") "lock-screen")
|
||||||
(define-key *top-map* (kbd "s-b") "raise-browser")
|
(define-key *top-map* (kbd "s-b") "raise-browser")
|
||||||
|
|
@ -93,26 +93,6 @@ after it has been unlocked."
|
||||||
"^*5^B[VPN]^b^n "
|
"^*5^B[VPN]^b^n "
|
||||||
""))
|
""))
|
||||||
"%d "))
|
"%d "))
|
||||||
|
|
||||||
;;; Redefinition of the make mode-line window to add the Dock window type.
|
|
||||||
(defun stumpwm::make-mode-line-window (screen)
|
|
||||||
"Create a window suitable for a modeline."
|
|
||||||
(let ((window (xlib:create-window
|
|
||||||
:parent (screen-root screen)
|
|
||||||
:x 0 :y 0 :width 1 :height 1
|
|
||||||
:background (stumpwm::alloc-color screen *mode-line-background-color*)
|
|
||||||
:border (stumpwm::alloc-color screen *mode-line-border-color*)
|
|
||||||
:border-width *mode-line-border-width*
|
|
||||||
;; You can click the modeline
|
|
||||||
:event-mask (xlib:make-event-mask :button-press :exposure)
|
|
||||||
;; these windows are not controlled by the window manager
|
|
||||||
:override-redirect :on)))
|
|
||||||
(xlib:change-property
|
|
||||||
window :_NET_WM_WINDOW_TYPE
|
|
||||||
(list (xlib:find-atom *display* :_NET_WM_WINDOW_TYPE_DOCK))
|
|
||||||
:atom 32)
|
|
||||||
window))
|
|
||||||
|
|
||||||
(mode-line)
|
(mode-line)
|
||||||
|
|
||||||
;;; Screenshots
|
;;; Screenshots
|
||||||
|
|
@ -152,8 +132,6 @@ after it has been unlocked."
|
||||||
(define-frame-preference "teams"
|
(define-frame-preference "teams"
|
||||||
(0 t t :class "teams-for-linux" :create t))
|
(0 t t :class "teams-for-linux" :create t))
|
||||||
|
|
||||||
(sb-ext:run-program *shell-program* '("-c" "feh --bg-center ~/pictures/wallpaper/5120x1440/wallhaven-v9ydgl.jpg"))
|
|
||||||
|
|
||||||
(swank:create-server :dont-close t)
|
(swank:create-server :dont-close t)
|
||||||
|
|
||||||
(which-key-mode)
|
(which-key-mode)
|
||||||
|
|
|
||||||
|
|
@ -5,7 +5,7 @@
|
||||||
#:use-module ((guix licenses) #:prefix license:)
|
#:use-module ((guix licenses) #:prefix license:)
|
||||||
#:use-module (gnu packages base)
|
#:use-module (gnu packages base)
|
||||||
#:use-module (gnu packages bash)
|
#:use-module (gnu packages bash)
|
||||||
#:use-module (gnu packages shells)
|
#:use-module (oni packages scsh)
|
||||||
#:use-module (gnu packages mail))
|
#:use-module (gnu packages mail))
|
||||||
|
|
||||||
(define-public count-emails
|
(define-public count-emails
|
||||||
|
|
|
||||||
|
|
@ -14,7 +14,7 @@
|
||||||
#:use-module (oni packages emacs))
|
#:use-module (oni packages emacs))
|
||||||
|
|
||||||
(define-public emacs-oni-config
|
(define-public emacs-oni-config
|
||||||
(let ((commit "f404ee603285efc62c73f03b178bd367d115fcbc")
|
(let ((commit "5d0fe5971995503f57798601cd3a9e9e9c4c7b9d")
|
||||||
(revision "0"))
|
(revision "0"))
|
||||||
(package
|
(package
|
||||||
(name "emacs-oni-config")
|
(name "emacs-oni-config")
|
||||||
|
|
@ -23,13 +23,13 @@
|
||||||
(origin
|
(origin
|
||||||
(method git-fetch)
|
(method git-fetch)
|
||||||
(uri (git-reference
|
(uri (git-reference
|
||||||
(url "git://code.ryuslash.org/emacs-config.git")
|
(url "https://code.ryuslash.org/ryuslash/emacs-config.git")
|
||||||
(commit commit)))
|
(commit commit)))
|
||||||
(file-name (git-file-name name version))
|
(file-name (git-file-name name version))
|
||||||
(sha256
|
(sha256
|
||||||
(base32 "1q9qh3b9r06j87pwscabj5mqjhbnysiw1a0xb31c4wn24bnmm143"))))
|
(base32 "0lqh3qblhlbps6742w3wv3c7nlv3mipi1cjfcbw1i3b8bsc2c6rv"))))
|
||||||
(build-system emacs-build-system)
|
(build-system emacs-build-system)
|
||||||
(home-page "https://code.ryuslash.org/emacs-config/about/")
|
(home-page "https://code.ryuslash.org/ryuslash/emacs-config")
|
||||||
(synopsis "My Emacs configuration")
|
(synopsis "My Emacs configuration")
|
||||||
(description "This package provides my configuration for emacs")
|
(description "This package provides my configuration for emacs")
|
||||||
(license license:gpl3+))))
|
(license license:gpl3+))))
|
||||||
|
|
@ -322,14 +322,21 @@ Emacs")))
|
||||||
#:emacs ,emacs))
|
#:emacs ,emacs))
|
||||||
(propagated-inputs
|
(propagated-inputs
|
||||||
(list emacs-oni-yasnippet
|
(list emacs-oni-yasnippet
|
||||||
|
emacs-oni-alert
|
||||||
emacs-oni-hydra
|
emacs-oni-hydra
|
||||||
emacs-org-roam
|
emacs-org-roam
|
||||||
emacs-org
|
emacs-org
|
||||||
emacs-org-contrib
|
emacs-org-contrib
|
||||||
|
emacs-org-bullets
|
||||||
emacs-org-edna
|
emacs-org-edna
|
||||||
emacs-diminish
|
emacs-diminish
|
||||||
|
emacs-all-the-icons
|
||||||
emacs-olivetti
|
emacs-olivetti
|
||||||
emacs-org-pretty-table))
|
emacs-form-feed
|
||||||
|
emacs-org-pretty-table
|
||||||
|
emacs-ob-async
|
||||||
|
emacs-org-ql
|
||||||
|
emacs-org-super-agenda))
|
||||||
(synopsis "My Emacs Org configuration")
|
(synopsis "My Emacs Org configuration")
|
||||||
(description "This package provides my configuration for org")))
|
(description "This package provides my configuration for org")))
|
||||||
|
|
||||||
|
|
@ -909,27 +916,3 @@ Emacs")))
|
||||||
emacs-yaml-pro))
|
emacs-yaml-pro))
|
||||||
(synopsis "My configuration for yaml-mode.")
|
(synopsis "My configuration for yaml-mode.")
|
||||||
(description "This package provides my configuration for editing Yaml files.")))
|
(description "This package provides my configuration for editing Yaml files.")))
|
||||||
|
|
||||||
(define-public emacs-oni-php
|
|
||||||
(package
|
|
||||||
(inherit emacs-oni-config)
|
|
||||||
(name "emacs-oni-php")
|
|
||||||
(arguments
|
|
||||||
'(#:phases
|
|
||||||
(modify-phases %standard-phases
|
|
||||||
(add-after 'unpack 'chdir-oni-php
|
|
||||||
(λ _ (chdir "oni-php"))))
|
|
||||||
#:include '("\\.el$" "^snippets\\/")))
|
|
||||||
(propagated-inputs
|
|
||||||
(list emacs-php-mode
|
|
||||||
emacs-oni-yasnippet
|
|
||||||
emacs-oni-flycheck
|
|
||||||
emacs-oni-company
|
|
||||||
emacs-oni-hydra
|
|
||||||
emacs-ggtags
|
|
||||||
emacs-fic-mode
|
|
||||||
emacs-ac-php
|
|
||||||
;; Actually a dependency of emacs-ac-php for using company-php.
|
|
||||||
emacs-xcscope))
|
|
||||||
(synopsis "My configuration for php-mode.")
|
|
||||||
(description "This package provides my configuration for editing PHP files.")))
|
|
||||||
|
|
|
||||||
|
|
@ -215,14 +215,14 @@ custom pairs?)")
|
||||||
(source
|
(source
|
||||||
(origin
|
(origin
|
||||||
(uri (git-reference
|
(uri (git-reference
|
||||||
(url "git://code.ryuslash.org/eshell-fringe-status.git")
|
(url "https://code.ryuslash.org/ryuslash/eshell-fringe-status.git")
|
||||||
(commit commit)))
|
(commit commit)))
|
||||||
(method git-fetch)
|
(method git-fetch)
|
||||||
(file-name (git-file-name name version))
|
(file-name (git-file-name name version))
|
||||||
(sha256
|
(sha256
|
||||||
(base32 "0frx1lc0rf6p01m5gjyaazl64f839856qn88v263rdls5rpncmz9"))))
|
(base32 "0frx1lc0rf6p01m5gjyaazl64f839856qn88v263rdls5rpncmz9"))))
|
||||||
(build-system emacs-build-system)
|
(build-system emacs-build-system)
|
||||||
(home-page "https://code.ryuslash.org/eshell-fringe-status")
|
(home-page "https://code.ryuslash.org/ryuslash/eshell-fringe-status")
|
||||||
(synopsis "Show last status in fringe")
|
(synopsis "Show last status in fringe")
|
||||||
(description "Show last status in fringe")
|
(description "Show last status in fringe")
|
||||||
(license license:gpl3+))))
|
(license license:gpl3+))))
|
||||||
|
|
@ -630,36 +630,15 @@ faster and I highly recommend its usage if your Emacs version permits.")
|
||||||
(source
|
(source
|
||||||
(origin
|
(origin
|
||||||
(uri (git-reference
|
(uri (git-reference
|
||||||
(url "git://code.ryuslash.org/yoshi-theme.git")
|
(url "https://code.ryuslash.org/ryuslash/yoshi-theme.git")
|
||||||
(commit commit)))
|
(commit commit)))
|
||||||
(method git-fetch)
|
(method git-fetch)
|
||||||
(file-name (git-file-name name version))
|
(file-name (git-file-name name version))
|
||||||
(sha256
|
(sha256
|
||||||
(base32 "0bb5mf194iw72w7zcvs9jmlxx5ngvslx5i6c6rna9bj3y0zm8jlb"))))
|
(base32 "0bb5mf194iw72w7zcvs9jmlxx5ngvslx5i6c6rna9bj3y0zm8jlb"))))
|
||||||
(build-system emacs-build-system)
|
(build-system emacs-build-system)
|
||||||
(home-page "https://code.ryuslash.org/yoshi-theme")
|
(home-page "https://code.ryuslash.org/ryuslash/yoshi-theme")
|
||||||
(synopsis "Emacs theme named after my cat")
|
(synopsis "Emacs theme named after my cat")
|
||||||
(description "My cat is named Yoshi and I was just working on a random new theme, which was
|
(description "My cat is named Yoshi and I was just working on a random new theme, which was
|
||||||
new-theme for a while. I couldn't think of a name so I named it after him.")
|
new-theme for a while. I couldn't think of a name so I named it after him.")
|
||||||
(license license:gpl3+))))
|
(license license:gpl3+))))
|
||||||
|
|
||||||
(define-public emacs-fic-mode
|
|
||||||
(let ((commit "a05fc36ed54ba0c6dc22ac216a6a72cf191ca13d")
|
|
||||||
(revision "0"))
|
|
||||||
(package
|
|
||||||
(name "emacs-fic-mode")
|
|
||||||
(version (git-version "0.0.0" revision commit))
|
|
||||||
(source
|
|
||||||
(origin
|
|
||||||
(uri (git-reference
|
|
||||||
(url "https://github.com/lewang/fic-mode.git")
|
|
||||||
(commit commit)))
|
|
||||||
(method git-fetch)
|
|
||||||
(file-name (git-file-name name version))
|
|
||||||
(sha256
|
|
||||||
(base32 "074dfwdir2dx5cpbjk1ac8d3hkjkrylivy7agir5mnmzjm3bs9gw"))))
|
|
||||||
(build-system emacs-build-system)
|
|
||||||
(home-page "https://github.com/lewang/fic-mode.git")
|
|
||||||
(synopsis "Add TODO, FIXME, etc highlighting in comments and strings.")
|
|
||||||
(description "Add TODO, FIXME, etc highlighting in comments and strings.")
|
|
||||||
(license license:gpl3+))))
|
|
||||||
|
|
|
||||||
|
|
@ -5,7 +5,7 @@
|
||||||
#:use-module ((guix licenses) #:prefix license:)
|
#:use-module ((guix licenses) #:prefix license:)
|
||||||
#:use-module (gnu packages base)
|
#:use-module (gnu packages base)
|
||||||
#:use-module (gnu packages bash)
|
#:use-module (gnu packages bash)
|
||||||
#:use-module (gnu packages shells))
|
#:use-module (oni packages scsh))
|
||||||
|
|
||||||
(define-public (inbox-size emacs)
|
(define-public (inbox-size emacs)
|
||||||
(let ((commit "e9a94db05e45be9357ccc757601c1cd890a6254c")
|
(let ((commit "e9a94db05e45be9357ccc757601c1cd890a6254c")
|
||||||
|
|
@ -16,7 +16,7 @@
|
||||||
(source
|
(source
|
||||||
(origin
|
(origin
|
||||||
(uri (git-reference
|
(uri (git-reference
|
||||||
(url "git://code.ryuslash.org/util/tom/inbox-size.git")
|
(url "https://code.ryuslash.org/ryuslash/inbox-size.git")
|
||||||
(commit commit)))
|
(commit commit)))
|
||||||
(method git-fetch)
|
(method git-fetch)
|
||||||
(sha256
|
(sha256
|
||||||
|
|
|
||||||
|
|
@ -17,7 +17,7 @@
|
||||||
(origin
|
(origin
|
||||||
(method git-fetch)
|
(method git-fetch)
|
||||||
(uri (git-reference
|
(uri (git-reference
|
||||||
(url "git://code.ryuslash.org/guile-inkplate/")
|
(url "https://code.ryuslash.org/ryuslash/guile-inkplate/")
|
||||||
(commit "27cbc844dee8f9f9b8a0a175f7ebf005cb205046")))
|
(commit "27cbc844dee8f9f9b8a0a175f7ebf005cb205046")))
|
||||||
(file-name "guile-inkplate-0.1-checkout")
|
(file-name "guile-inkplate-0.1-checkout")
|
||||||
(sha256 (base32 "00qx2d16xma19myq4lla3gnq8rljsqbns53ma5hwamkyvwwyd55s"))))
|
(sha256 (base32 "00qx2d16xma19myq4lla3gnq8rljsqbns53ma5hwamkyvwwyd55s"))))
|
||||||
|
|
|
||||||
42
oni/packages/mpd-notify.scm
Normal file
42
oni/packages/mpd-notify.scm
Normal file
|
|
@ -0,0 +1,42 @@
|
||||||
|
(define-module (oni packages mpd-notify)
|
||||||
|
#:use-module ((guix licenses) #:prefix license:)
|
||||||
|
#:use-module (gnu packages base)
|
||||||
|
#:use-module (gnu packages shells)
|
||||||
|
#:use-module (gnu packages mpd)
|
||||||
|
#:use-module (gnu packages gnome)
|
||||||
|
#:use-module (guix build-system gnu)
|
||||||
|
#:use-module (guix git-download)
|
||||||
|
#:use-module (guix packages))
|
||||||
|
|
||||||
|
(define-public mpd-notify
|
||||||
|
(let ((commit "1bf3786878eb499b6a0c56e47ba3f3e07cd81182")
|
||||||
|
(revision "0"))
|
||||||
|
(package
|
||||||
|
(name "mpd-notify")
|
||||||
|
(version (git-version "0.0.0" revision commit))
|
||||||
|
(source
|
||||||
|
(origin
|
||||||
|
(uri (git-reference
|
||||||
|
(url "https://code.ryuslash.org/ryuslash/mpd-notify.git")
|
||||||
|
(commit commit)))
|
||||||
|
(method git-fetch)
|
||||||
|
(sha256
|
||||||
|
(base32 "1i72h3mxsifymnmpmrgfqhgrbq9sjhgn1b9d64f164m1m0g0smq3"))
|
||||||
|
(file-name (git-file-name name version))))
|
||||||
|
(propagated-inputs
|
||||||
|
(list mpd-mpc zsh libnotify))
|
||||||
|
(build-system gnu-build-system)
|
||||||
|
(arguments
|
||||||
|
`(#:tests? #f
|
||||||
|
#:phases
|
||||||
|
(modify-phases %standard-phases
|
||||||
|
(delete 'configure)
|
||||||
|
(delete 'build)
|
||||||
|
(replace 'install
|
||||||
|
(lambda* (#:key outputs #:allow-other-keys)
|
||||||
|
(let ((bin (string-append (assoc-ref outputs "out") "/bin")))
|
||||||
|
(install-file "mpd-notify" bin)))))))
|
||||||
|
(home-page "https://ryuslash.org/")
|
||||||
|
(synopsis "A simple script that notifies you of MPD player state changes.")
|
||||||
|
(description "Uses `mpc idleloop' to listen to player state changes and sends notifications.")
|
||||||
|
(license license:gpl3+))))
|
||||||
44
oni/packages/mpd-random-albums.scm
Normal file
44
oni/packages/mpd-random-albums.scm
Normal file
|
|
@ -0,0 +1,44 @@
|
||||||
|
(define-module (oni packages mpd-random-albums)
|
||||||
|
#:use-module ((guix licenses) #:prefix license:)
|
||||||
|
#:use-module (gnu packages base)
|
||||||
|
#:use-module (gnu packages bash)
|
||||||
|
#:use-module (gnu packages mpd)
|
||||||
|
#:use-module (guix build-system gnu)
|
||||||
|
#:use-module (guix git-download)
|
||||||
|
#:use-module (guix packages)
|
||||||
|
#:use-module (oni packages scsh))
|
||||||
|
|
||||||
|
(define-public mpd-random-albums
|
||||||
|
(let ((commit "c12a766e1920e726129dfd1161a2ef15471f89e8")
|
||||||
|
(revision "0"))
|
||||||
|
(package
|
||||||
|
(name "mpd-random-albums")
|
||||||
|
(version (git-version "0.0.0" revision commit))
|
||||||
|
(source
|
||||||
|
(origin
|
||||||
|
(uri (git-reference
|
||||||
|
(url "git://ryuslash.org/util/tom/mpd-random-albums")
|
||||||
|
(commit commit)))
|
||||||
|
(method git-fetch)
|
||||||
|
(sha256
|
||||||
|
(base32 "0mgs9377hw3x1nfcah3wwr3zijvzrkqicvgrbcjl3g1p4fmlb8mr"))
|
||||||
|
(file-name (git-file-name name version))))
|
||||||
|
(propagated-inputs
|
||||||
|
(list mpd bash scsh))
|
||||||
|
(build-system gnu-build-system)
|
||||||
|
(arguments
|
||||||
|
`(#:tests? #f
|
||||||
|
#:phases
|
||||||
|
(modify-phases %standard-phases
|
||||||
|
(delete 'configure)
|
||||||
|
(delete 'build)
|
||||||
|
(replace 'install
|
||||||
|
(lambda* (#:key outputs #:allow-other-keys)
|
||||||
|
(let ((bin (string-append (assoc-ref outputs "out") "/bin"))
|
||||||
|
(site (string-append (assoc-ref outputs "out") "/share/scsh-0.7")))
|
||||||
|
(install-file "mpd-random-albums" bin)
|
||||||
|
(install-file "mpd.scm" site)))))))
|
||||||
|
(home-page "https://ryuslash.org/")
|
||||||
|
(synopsis "A simple script that populates the MPD playlist with all of my albums in random order.")
|
||||||
|
(description "Creates a new playlist in MPD with all of the albums in my database and shuffles them by album.")
|
||||||
|
(license license:gpl3+))))
|
||||||
|
|
@ -1,106 +0,0 @@
|
||||||
(define-module (oni packages mpd)
|
|
||||||
#:use-module ((guix licenses) #:prefix license:)
|
|
||||||
#:use-module (gnu packages base)
|
|
||||||
#:use-module (gnu packages shells)
|
|
||||||
#:use-module (gnu packages bash)
|
|
||||||
#:use-module (gnu packages mpd)
|
|
||||||
#:use-module (gnu packages gnome)
|
|
||||||
#:use-module (guix build-system gnu)
|
|
||||||
#:use-module (guix build-system python)
|
|
||||||
#:use-module (guix build-system pyproject)
|
|
||||||
#:use-module (guix download)
|
|
||||||
#:use-module (guix git-download)
|
|
||||||
#:use-module (guix packages)
|
|
||||||
#:use-module (gnu packages python-web)
|
|
||||||
#:use-module (gnu packages music)
|
|
||||||
#:use-module (gnu packages check))
|
|
||||||
|
|
||||||
(define-public mpd-notify
|
|
||||||
(let ((commit "1bf3786878eb499b6a0c56e47ba3f3e07cd81182")
|
|
||||||
(revision "0"))
|
|
||||||
(package
|
|
||||||
(name "mpd-notify")
|
|
||||||
(version (git-version "0.0.0" revision commit))
|
|
||||||
(source
|
|
||||||
(origin
|
|
||||||
(uri (git-reference
|
|
||||||
(url "git://code.ryuslash.org/util/tom/mpd-notify.git")
|
|
||||||
(commit commit)))
|
|
||||||
(method git-fetch)
|
|
||||||
(sha256
|
|
||||||
(base32 "1i72h3mxsifymnmpmrgfqhgrbq9sjhgn1b9d64f164m1m0g0smq3"))
|
|
||||||
(file-name (git-file-name name version))))
|
|
||||||
(propagated-inputs
|
|
||||||
(list mpd-mpc zsh libnotify))
|
|
||||||
(build-system gnu-build-system)
|
|
||||||
(arguments
|
|
||||||
`(#:tests? #f
|
|
||||||
#:phases
|
|
||||||
(modify-phases %standard-phases
|
|
||||||
(delete 'configure)
|
|
||||||
(delete 'build)
|
|
||||||
(replace 'install
|
|
||||||
(lambda* (#:key outputs #:allow-other-keys)
|
|
||||||
(let ((bin (string-append (assoc-ref outputs "out") "/bin")))
|
|
||||||
(install-file "mpd-notify" bin)))))))
|
|
||||||
(home-page "https://ryuslash.org/")
|
|
||||||
(synopsis "A simple script that notifies you of MPD player state changes.")
|
|
||||||
(description "Uses `mpc idleloop' to listen to player state changes and sends notifications.")
|
|
||||||
(license license:gpl3+))))
|
|
||||||
|
|
||||||
(define-public mpd-random-albums
|
|
||||||
(let ((commit "c12a766e1920e726129dfd1161a2ef15471f89e8")
|
|
||||||
(revision "0"))
|
|
||||||
(package
|
|
||||||
(name "mpd-random-albums")
|
|
||||||
(version (git-version "0.0.0" revision commit))
|
|
||||||
(source
|
|
||||||
(origin
|
|
||||||
(uri (git-reference
|
|
||||||
(url "git://ryuslash.org/util/tom/mpd-random-albums")
|
|
||||||
(commit commit)))
|
|
||||||
(method git-fetch)
|
|
||||||
(sha256
|
|
||||||
(base32 "0mgs9377hw3x1nfcah3wwr3zijvzrkqicvgrbcjl3g1p4fmlb8mr"))
|
|
||||||
(file-name (git-file-name name version))))
|
|
||||||
(propagated-inputs
|
|
||||||
(list mpd bash scsh))
|
|
||||||
(build-system gnu-build-system)
|
|
||||||
(arguments
|
|
||||||
`(#:tests? #f
|
|
||||||
#:phases
|
|
||||||
(modify-phases %standard-phases
|
|
||||||
(delete 'configure)
|
|
||||||
(delete 'build)
|
|
||||||
(replace 'install
|
|
||||||
(lambda* (#:key outputs #:allow-other-keys)
|
|
||||||
(let ((bin (string-append (assoc-ref outputs "out") "/bin"))
|
|
||||||
(site (string-append (assoc-ref outputs "out") "/share/scsh-0.7")))
|
|
||||||
(install-file "mpd-random-albums" bin)
|
|
||||||
(install-file "mpd.scm" site)))))))
|
|
||||||
(home-page "https://ryuslash.org/")
|
|
||||||
(synopsis "A simple script that populates the MPD playlist with all of my albums in random order.")
|
|
||||||
(description "Creates a new playlist in MPD with all of the albums in my database and shuffles them by album.")
|
|
||||||
(license license:gpl3+))))
|
|
||||||
|
|
||||||
(define-public mpdscrobble
|
|
||||||
(let ((commit "c4314b026183a2b38673db898deb98f24dfb3901")
|
|
||||||
(revision "0"))
|
|
||||||
(package
|
|
||||||
(name "python-mpdscrobble")
|
|
||||||
(version (git-version "0.3.3" revision commit))
|
|
||||||
(source
|
|
||||||
(origin
|
|
||||||
(method git-fetch)
|
|
||||||
(uri (git-reference
|
|
||||||
(url "https://github.com/dbeley/mpdscrobble")
|
|
||||||
(commit commit)))
|
|
||||||
(sha256
|
|
||||||
(base32 "1kixss0s182hhl52qrr646zswx0c81si6jxz08jc8sal8y1rm4ql"))))
|
|
||||||
(build-system pyproject-build-system)
|
|
||||||
(native-inputs (list python-pytest))
|
|
||||||
(propagated-inputs (list python-httpx python-pylast python-mpd2))
|
|
||||||
(home-page "https://github.com/dbeley/mpdscrobble")
|
|
||||||
(synopsis "A simple Last.fm scrobbler for MPD.")
|
|
||||||
(description "This package provides a simple Last.fm scrobbler for MPD.")
|
|
||||||
(license license:expat))))
|
|
||||||
57
oni/packages/scsh.scm
Normal file
57
oni/packages/scsh.scm
Normal file
|
|
@ -0,0 +1,57 @@
|
||||||
|
(define-module (oni packages scsh)
|
||||||
|
#:use-module ((guix licenses) #:prefix license:)
|
||||||
|
#:use-module (gnu packages)
|
||||||
|
#:use-module (gnu packages autotools)
|
||||||
|
#:use-module (gnu packages scheme)
|
||||||
|
#:use-module (guix build-system gnu)
|
||||||
|
#:use-module (guix git-download)
|
||||||
|
#:use-module (guix packages))
|
||||||
|
|
||||||
|
(define-public scsh
|
||||||
|
(let ((commit "114432435e4eadd54334df6b37fcae505079b49f")
|
||||||
|
(revision "1"))
|
||||||
|
(package
|
||||||
|
(name "scsh")
|
||||||
|
(version (string-append "0.0.0-" revision "." (string-take commit 7)))
|
||||||
|
(source
|
||||||
|
(origin
|
||||||
|
(method git-fetch)
|
||||||
|
(uri (git-reference
|
||||||
|
(url "https://github.com/scheme/scsh")
|
||||||
|
(commit commit)))
|
||||||
|
(file-name (string-append name "-" version "-checkout"))
|
||||||
|
(sha256
|
||||||
|
(base32
|
||||||
|
"1ghk08akiz7hff1pndi8rmgamgcrn2mv9asbss9l79d3c2iaav3q"))
|
||||||
|
(patches (search-patches "scsh-nonstring-search-path.patch"))))
|
||||||
|
(build-system gnu-build-system)
|
||||||
|
(arguments
|
||||||
|
`(#:test-target "test"
|
||||||
|
#:phases
|
||||||
|
(modify-phases %standard-phases
|
||||||
|
(add-before 'configure 'replace-rx
|
||||||
|
(lambda* (#:key inputs #:allow-other-keys)
|
||||||
|
(let* ((rx (assoc-ref inputs "scheme48-rx"))
|
||||||
|
(rxpath (string-append rx "/share/scheme48-"
|
||||||
|
,(package-version scheme48)
|
||||||
|
"/rx")))
|
||||||
|
(delete-file-recursively "rx")
|
||||||
|
(symlink rxpath "rx"))
|
||||||
|
#t)))))
|
||||||
|
(inputs
|
||||||
|
(list scheme48 scheme48-rx))
|
||||||
|
(native-inputs
|
||||||
|
(list autoconf automake))
|
||||||
|
(native-search-paths
|
||||||
|
(list (search-path-specification
|
||||||
|
(variable "SCSH_LIB_DIRS")
|
||||||
|
(separator " ")
|
||||||
|
(files '("share/scsh-0.7")))))
|
||||||
|
(home-page "https://github.com/scheme/scsh")
|
||||||
|
(synopsis "Unix shell embedded in Scheme")
|
||||||
|
(description
|
||||||
|
"Scsh is a Unix shell embedded in Scheme. Scsh has two main
|
||||||
|
components: a process notation for running programs and setting up pipelines
|
||||||
|
and redirections, and a complete syscall library for low-level access to the
|
||||||
|
operating system.")
|
||||||
|
(license license:bsd-3))))
|
||||||
|
|
@ -1,35 +0,0 @@
|
||||||
(define-module (oni packages stumpwm)
|
|
||||||
#:use-module (guix packages)
|
|
||||||
#:use-module (guix utils)
|
|
||||||
#:use-module (gnu packages wm)
|
|
||||||
#:use-module (gnu packages lisp-xyz))
|
|
||||||
|
|
||||||
(define-public stumpwm+swank
|
|
||||||
(package
|
|
||||||
(inherit stumpwm)
|
|
||||||
(name "stumpwm-with-swank")
|
|
||||||
(outputs '("out"))
|
|
||||||
(inputs
|
|
||||||
`(("stumpwm" ,stumpwm)
|
|
||||||
("swank" ,sbcl-slime-swank)))
|
|
||||||
(arguments
|
|
||||||
(substitute-keyword-arguments (package-arguments stumpwm)
|
|
||||||
((#:phases phases)
|
|
||||||
`(modify-phases ,phases
|
|
||||||
(replace 'build-program
|
|
||||||
(lambda* (#:key inputs outputs #:allow-other-keys)
|
|
||||||
(let* ((out (assoc-ref outputs "out"))
|
|
||||||
(program (string-append out "/bin/stumpwm")))
|
|
||||||
(setenv "HOME" "/tmp")
|
|
||||||
(build-program program outputs
|
|
||||||
#:entry-program '((stumpwm:stumpwm) 0)
|
|
||||||
#:dependencies '("stumpwm" "swank")
|
|
||||||
#:dependency-prefixes
|
|
||||||
(map (lambda (input) (assoc-ref inputs input))
|
|
||||||
'("stumpwm" "swank")))
|
|
||||||
#t)))
|
|
||||||
(delete 'copy-source)
|
|
||||||
(delete 'build)
|
|
||||||
(delete 'check)
|
|
||||||
(delete 'remove-temporary-cache)
|
|
||||||
(delete 'cleanup)))))))
|
|
||||||
|
|
@ -17,7 +17,7 @@
|
||||||
(source
|
(source
|
||||||
(origin
|
(origin
|
||||||
(uri (git-reference
|
(uri (git-reference
|
||||||
(url "git://code.ryuslash.org/util/tom/inkplate-display.git")
|
(url "https://code.ryuslash.org/ryuslash/inkplate-display.git")
|
||||||
(commit commit)))
|
(commit commit)))
|
||||||
(method git-fetch)
|
(method git-fetch)
|
||||||
(sha256
|
(sha256
|
||||||
|
|
|
||||||
|
|
@ -9,9 +9,7 @@ function orgCapture() {
|
||||||
|
|
||||||
|
|
||||||
api.addSearchAlias('aw', 'archlinux wiki', 'https://wiki.archlinux.org/index.php?search=%s');
|
api.addSearchAlias('aw', 'archlinux wiki', 'https://wiki.archlinux.org/index.php?search=%s');
|
||||||
api.addSearchAlias('ap', 'archlinux packages', 'https://archlinux.org/packages/?q=%s');
|
api.removeSearchAlias('e');
|
||||||
api.addSearchAlias('m', 'melpa', 'https://melpa.org/#/?q=%s');
|
|
||||||
api.addSearchAlias('e', 'emacswiki', 'https://duckduckgo.com/?q=site%3Aemacswiki.org+%s&atb=v98-1&ia=web');
|
|
||||||
api.addSearchAlias(
|
api.addSearchAlias(
|
||||||
'w',
|
'w',
|
||||||
'wikipedia',
|
'wikipedia',
|
||||||
|
|
|
||||||
|
|
@ -1,8 +1,2 @@
|
||||||
set default-bg \#222424
|
|
||||||
set default-fg \#bfbfbf
|
|
||||||
set recolor
|
|
||||||
set recolor-lightcolor \#222424
|
|
||||||
set recolor-darkcolor \#bfbfbf
|
|
||||||
|
|
||||||
map n navigate next
|
map n navigate next
|
||||||
map p navigate previous
|
map p navigate previous
|
||||||
|
|
|
||||||
Loading…
Reference in a new issue