ryuslash/dotfiles
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Compare commits

base: ryuslash:eaf92fbf1b40bfb8960d4265611899a65c9c33bc
Branches Tags
ryuslash:master
..
compare: ryuslash:ebf711890afd44c68200b444e0e9365696f8bcf1
Branches Tags
ryuslash:master

No commits in common. "eaf92fbf1b40bfb8960d4265611899a65c9c33bc" and "ebf711890afd44c68200b444e0e9365696f8bcf1" have entirely different histories.
eaf92fbf1b ... ebf711890a

21 changed files with 185 additions and 452 deletions
Show stats Expand all files Collapse all files

2
abcde/.abcde.conf
View file

@ -52,7 +52,7 @@ CDPARANOIAOPTS="--never-skip=40"
CDDISCID=cd-discid
# Give the base location here for the encoded music files.
OUTPUTDIR="$HOME/tmp/music"
OUTPUTDIR="$HOME/music"
# The default actions that abcde will take.
ACTIONS=cddb,read,encode,tag,move,clean

44
oni/home/config/rincewind.scm
View file

@ -96,15 +96,11 @@
home-emacs-golden-ratio-service-type
home-emacs-pinentry-service-type
home-emacs-vterm-service-type
home-emacs-vterm-configuration
home-emacs-org-modern-service-type))
home-emacs-vterm-configuration))
#:use-module ((oni home services environment)
#:select (home-environment-service))
#:use-module ((oni home services flameshot)
#: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)
#:select (home-kdeconnect-service-type))
#:use-module ((oni home services mpd)
@ -112,8 +108,7 @@
home-mpd-configuration
<home-mpd-audio-output>
home-mpc-update-service-type
home-mpd-notify-service-type
home-mpdscrobble-service-type))
home-mpd-notify-service-type))
#:use-module ((oni home services mpv)
#:select (home-mpv-service-type
home-mpv-mpris-service-type))
@ -199,11 +194,12 @@
emacs-oni-embrace
emacs-oni-yaml
emacs-oni-python
emacs-oni-git-commit
emacs-oni-php))
emacs-oni-git-commit))
#:use-module ((oni packages hlwm-run-or-raise)
#:select (hlwm-run-or-raise))
#:use-module ((oni packages inbox-size)
#:select (inbox-size))
#:use-module ((oni packages mpd)
#:use-module ((oni packages mpd-random-albums)
#:select (mpd-random-albums))
#:use-module ((oni packages notmuch-collect-tasks)
#:select (notmuch-collect-tasks))
@ -245,8 +241,6 @@
(wintypes
'((dnd (shadow . #f))
(dock (shadow . #f))))
(rounded-corners-exclude
'("window_type *= \\\"dock\\\""))
(corner-radius 15)
(blur-background #f)
(blur-background-frame #f)
@ -259,6 +253,7 @@
(specification->package+output "glibc-locales")
(specification->package+output "font-fantasque-sans")
(specification->package+output "font-comic-neue")
hlwm-run-or-raise
pick-random-wallpaper
notmuch-collect-tasks
notmuch-tag-mailinglists
@ -328,7 +323,6 @@
emacs-oni-python
emacs-nginx-mode
emacs-oni-git-commit
emacs-oni-php
tree-sitter-bash
tree-sitter-scheme
@ -371,7 +365,7 @@
(list
(channel
(name 'oni)
(url "git://ryuslash.org/guix-packages.git")
(url "https://code.ryuslash.org/ryuslash/guix-packages.git")
(introduction
(make-channel-introduction
"646573578b7adfbff415645fed201269076cebf6"
@ -451,7 +445,6 @@
(service home-emacs-vterm-service-type
(home-emacs-vterm-configuration
(buffer-name-string "*vterm* %s")))
(service home-emacs-org-modern-service-type)
(service home-flameshot-service-type)
@ -472,7 +465,6 @@
#:format "44100:16:2")))))
(service home-mpc-update-service-type)
(service home-mpd-notify-service-type)
(service home-mpdscrobble-service-type)
(service home-mpv-service-type)
;; [2024-01-05 Fri] mpv-mpris fails to compile:
@ -541,22 +533,4 @@
(ssh-support? #f)
(extra-content
"allow-emacs-pinentry\n")))
(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))))))))
(service home-ssh-agent-service-type))))

51
oni/home/services/emacs.scm
View file

@ -15,8 +15,7 @@
emacs-eros
emacs-ace-link
emacs-pinentry
emacs-vterm
emacs-org-modern))
emacs-vterm))
#:use-module ((gnu home services)
#:select (service-type
service-extension
@ -68,10 +67,7 @@
home-emacs-pinentry-configuration
home-emacs-vterm-service-type
home-emacs-vterm-configuration
home-emacs-org-modern-service-type
home-emacs-org-modern-configuration))
home-emacs-vterm-configuration))
(define-maybe string)
@ -504,10 +500,8 @@
"fi\n"
(if (maybe-value-set? (home-emacs-vterm-configuration-buffer-name-string config))
(string-append
"vterm_chpwd(){ print -Pn \"\\e]2;%m:%2~\\a\" }\n"
"if [[ \"$INSIDE_EMACS\" = 'vterm' ]]; then\n"
" chpwd_functions+=(vterm_chpwd)\n"
"fi\n")
"autoload -U add-zsh-hook\n"
"add-zsh-hook -Uz chpwd (){ print -Pn \"\\e]2;%m:%2~\\a\" }\n")
"")
"vterm_prompt_end() {\n"
" vterm_printf \"51;A$(whoami)@$(hostname):$(pwd)\"\n"
@ -544,40 +538,3 @@
(compose identity)
(default-value (home-emacs-vterm-configuration))
(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.")))

85
oni/home/services/gnuzilla.scm
View file

@ -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.")))

51
oni/home/services/mpd.scm
View file

@ -9,9 +9,8 @@
#:use-module (srfi srfi-1)
#:use-module (oop goops)
#:use-module (ice-9 string-fun)
#:use-module ((oni packages mpd)
#:select (mpd-notify
mpdscrobble))
#:use-module ((oni packages mpd-notify)
#:select (mpd-notify))
#:export (home-mpd-service-type
home-mpd-configuration
@ -21,10 +20,7 @@
home-mpc-update-configuration
home-mpd-notify-service-type
home-mpd-notify-configuration
home-mpdscrobble-service-type
home-mpdscrobble-configuration))
home-mpd-notify-configuration))
(define (serialize-boolean field value)
"")
@ -208,44 +204,3 @@
(compose identity)
(default-value (home-mpd-notify-configuration))
(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.")))

3
oni/home/services/picom.scm
View file

@ -113,9 +113,6 @@
(wintypes
(alist '())
"Window-type-specific settings")
(rounded-corners-exclude
(list '())
"Specify a list of conditions of windows that should have no rounded corners")
(corner-radius
(number 0)
"Sets the radius of rounded window corners")

1
oni/home/services/stumpwm.scm
View file

@ -56,6 +56,7 @@
(define (add-stumpwm-packages config)
(append (list sbcl
(home-stumpwm-configuration-package config)
(list stumpwm "lib")
(home-stumpwm-configuration-stumpish-package config))))
(define (home-stumpwm-extensions original-config extension-configs)

24
oni/home/services/stumpwm/config
View file

@ -39,7 +39,7 @@ after it has been unlocked."
(defcommand raise-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 "s-b") "raise-browser")
@ -93,26 +93,6 @@ after it has been unlocked."
"^*5^B[VPN]^b^n "
""))
"%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)
;;; Screenshots
@ -152,8 +132,6 @@ after it has been unlocked."
(define-frame-preference "teams"
(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)
(which-key-mode)

2
oni/packages/count-emails.scm
View file

@ -5,7 +5,7 @@
#:use-module ((guix licenses) #:prefix license:)
#:use-module (gnu packages base)
#:use-module (gnu packages bash)
#:use-module (gnu packages shells)
#:use-module (oni packages scsh)
#:use-module (gnu packages mail))
(define-public count-emails

41
oni/packages/emacs-config.scm
View file

@ -14,7 +14,7 @@
#:use-module (oni packages emacs))
(define-public emacs-oni-config
(let ((commit "f404ee603285efc62c73f03b178bd367d115fcbc")
(let ((commit "5d0fe5971995503f57798601cd3a9e9e9c4c7b9d")
(revision "0"))
(package
(name "emacs-oni-config")
@ -23,13 +23,13 @@
(origin
(method git-fetch)
(uri (git-reference
(url "git://code.ryuslash.org/emacs-config.git")
(url "https://code.ryuslash.org/ryuslash/emacs-config.git")
(commit commit)))
(file-name (git-file-name name version))
(sha256
(base32 "1q9qh3b9r06j87pwscabj5mqjhbnysiw1a0xb31c4wn24bnmm143"))))
(base32 "0lqh3qblhlbps6742w3wv3c7nlv3mipi1cjfcbw1i3b8bsc2c6rv"))))
(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")
(description "This package provides my configuration for emacs")
(license license:gpl3+))))
@ -322,14 +322,21 @@ Emacs")))
#:emacs ,emacs))
(propagated-inputs
(list emacs-oni-yasnippet
emacs-oni-alert
emacs-oni-hydra
emacs-org-roam
emacs-org
emacs-org-contrib
emacs-org-bullets
emacs-org-edna
emacs-diminish
emacs-all-the-icons
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")
(description "This package provides my configuration for org")))
@ -909,27 +916,3 @@ Emacs")))
emacs-yaml-pro))
(synopsis "My configuration for yaml-mode.")
(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.")))

29
oni/packages/emacs.scm
View file

@ -215,14 +215,14 @@ custom pairs?)")
(source
(origin
(uri (git-reference
(url "git://code.ryuslash.org/eshell-fringe-status.git")
(url "https://code.ryuslash.org/ryuslash/eshell-fringe-status.git")
(commit commit)))
(method git-fetch)
(file-name (git-file-name name version))
(sha256
(base32 "0frx1lc0rf6p01m5gjyaazl64f839856qn88v263rdls5rpncmz9"))))
(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")
(description "Show last status in fringe")
(license license:gpl3+))))
@ -630,36 +630,15 @@ faster and I highly recommend its usage if your Emacs version permits.")
(source
(origin
(uri (git-reference
(url "git://code.ryuslash.org/yoshi-theme.git")
(url "https://code.ryuslash.org/ryuslash/yoshi-theme.git")
(commit commit)))
(method git-fetch)
(file-name (git-file-name name version))
(sha256
(base32 "0bb5mf194iw72w7zcvs9jmlxx5ngvslx5i6c6rna9bj3y0zm8jlb"))))
(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")
(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.")
(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+))))

4
oni/packages/inbox-size.scm
View file

@ -5,7 +5,7 @@
#:use-module ((guix licenses) #:prefix license:)
#:use-module (gnu packages base)
#:use-module (gnu packages bash)
#:use-module (gnu packages shells))
#:use-module (oni packages scsh))
(define-public (inbox-size emacs)
(let ((commit "e9a94db05e45be9357ccc757601c1cd890a6254c")
@ -16,7 +16,7 @@
(source
(origin
(uri (git-reference
(url "git://code.ryuslash.org/util/tom/inbox-size.git")
(url "https://code.ryuslash.org/ryuslash/inbox-size.git")
(commit commit)))
(method git-fetch)
(sha256

2
oni/packages/inkplate.scm
View file

@ -17,7 +17,7 @@
(origin
(method git-fetch)
(uri (git-reference
(url "git://code.ryuslash.org/guile-inkplate/")
(url "https://code.ryuslash.org/ryuslash/guile-inkplate/")
(commit "27cbc844dee8f9f9b8a0a175f7ebf005cb205046")))
(file-name "guile-inkplate-0.1-checkout")
(sha256 (base32 "00qx2d16xma19myq4lla3gnq8rljsqbns53ma5hwamkyvwwyd55s"))))

42
oni/packages/mpd-notify.scm Normal file
View 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
View 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+))))

106
oni/packages/mpd.scm
View file

@ -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
View 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))))

35
oni/packages/stumpwm.scm
View file

@ -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)))))))

2
oni/packages/utilities.scm
View file

@ -17,7 +17,7 @@
(source
(origin
(uri (git-reference
(url "git://code.ryuslash.org/util/tom/inkplate-display.git")
(url "https://code.ryuslash.org/ryuslash/inkplate-display.git")
(commit commit)))
(method git-fetch)
(sha256

4
surfingkeys/surfingkeys.js
View file

@ -9,9 +9,7 @@ function orgCapture() {
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.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.removeSearchAlias('e');
api.addSearchAlias(
'w',
'wikipedia',

6
zathura/.config/zathura/zathurarc
View file

@ -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 p navigate previous