Add config file and install instructions

README.md

@@ -1,3 +1,12 @@
 # hyprchan
 
-wallpaper generator
+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.

hyprchan

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

hyprchan.conf

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