mir/hyprchan
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Add config file and install instructions

Browse Source
This commit is contained in:
MitchMarq42 2023-10-14 13:41:35 -08:00
parent 48b7fd434b
commit 66608e92b9
3 changed files with 31 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
README.md
View File

@ -1,3 +1,12 @@
# hyprchan
wallpaper generator
## Install
1. Copy or symlink `hyprchan` to a directory in your $PATH, such as ~/.local/bin.
2. Make the directory `~/.config/hyprchan` and copy/symlink hyprchan.conf there.
### Dependencies
hyprchan depends on `f.el` and `dash.el`. By default the config file will bootstrap straight.el to install them. If you have these packages available system-wide (EG with debian's elisp packages), you can comment it out.

4
hyprchan
View File

@ -2,9 +2,7 @@
":"; exec emacs --quick --script "$0" "$@" # -*- mode: emacs-lisp; lexical-binding: t; -*-
;;; hyprchan --- Generate and set a hyprland-style background, in elisp.
(load-file "~/.config/emacs.mitch/elabiasu.el")
(elabiasu-ensure-package 'f)
(elabiasu-ensure-package 'dash)
(load-file "~/.config/hyprchan/hyprchan.conf")
(require 'f)
(require 'dash)

20
hyprchan.conf Normal file
View File

@ -0,0 +1,20 @@
;; Config file for Hyprchan -*- mode: emacs-lisp -*-
(defvar waifudir "~/.local/share/waifus/"
"Directory to search for waifus.
All images should be transparent PNGs, preferably large. Small images will be ugly when scaled up.")
(defvar wallpapers "~/.local/share/backgrounds/"
"Directory to search for wallpapers. Images may be JPG or PNG.")
(defvar cachedir "~/.cache/hyprchan/"
"Directory to cache intermediate files - waifus and logos and such.")
(defvar logosrc "/usr/share/hyprland/hyprland.png"
"Transparent PNG logo of the window manager/system.")
(defvar splash (string-trim (shell-command-to-string "hyprctl splash"))
"Splash message, displayed at bottom center on final background.")
;;; Hyprchan depends on two elisp libraries, `f' and `dash'.
;;; If these are not installed system-wide, uncomment below to install them with straight.el
(defvar bootstrap-version) (let ((bootstrap-file (expand-file-name "straight/repos/straight.el/bootstrap.el" user-emacs-directory)) (bootstrap-version 6)) (unless (file-exists-p bootstrap-file) (with-current-buffer (url-retrieve-synchronously "https://raw.githubusercontent.com/radian-software/straight.el/develop/install.el" 'silent 'inhibit-cookies) (goto-char (point-max)) (eval-print-last-sexp))) (load bootstrap-file nil 'nomessage)) (straight-use-package 'f) (straight-use-package 'dash)