aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rwxr-xr-xbin/tagmail1
-rw-r--r--config/doom/config.org26
-rw-r--r--config/doom/custom.el39
-rw-r--r--config/doom/init.el2
-rw-r--r--config/mpd/mpd.conf2
-rw-r--r--config/pikaur.conf2
-rw-r--r--config/shepherd/init.d/cardano.scm1
-rw-r--r--home-dots/dot-bashrc1
-rw-r--r--home-dots/dot-sbclrc2
-rwxr-xr-xlib/guile/read-habit.scm16
10 files changed, 77 insertions, 15 deletions
diff --git a/bin/tagmail b/bin/tagmail
index 0e8f0bc..6156544 100755
--- a/bin/tagmail
+++ b/bin/tagmail
@@ -179,6 +179,7 @@ LD_LIBRARY_PATH=$HOME/.guix-profile/lib exec guile -e main -s "$0" "$@"
("+meetups" "from:info@meetup.com or from:info@email.meetup.com" "Meetups info mails")
("+immonews" "from:immobilienscout24.de")
("+newsletter" "from:venturebeat.com")
+ ("+zeihan" "from:zeihan.com")
("+freecodecamp" "from:freecodecamp.org")
))
diff --git a/config/doom/config.org b/config/doom/config.org
index 083797e..421c099 100644
--- a/config/doom/config.org
+++ b/config/doom/config.org
@@ -220,6 +220,11 @@ this new window.
(after! elfeed
(setq elfeed-feeds
'("https://sachachua.com/blog/feed"
+ "http://feeds.feedburner.com/TroyHunt"
+ "https://serokell.io/blog.rss.xml"
+ "https://www.tweag.io/rss.xml"
+ "http://kitchingroup.cheme.cmu.edu/blog/feed/index.xml"
+ "http://planet.emacsen.org/atom.xml"
"http://www.howardism.org/index.xml"
"https://reyify.com/api/rss"
"https://guix.gnu.org/feeds/blog.atom"
@@ -433,6 +438,19 @@ this new window.
#+begin_src emacs-lisp
(use-package! khardel)
#+end_src
+* IRC
+#+begin_src emacs-lisp
+(set-irc-server! "irc.libera.chat"
+ `(:tls t
+ :port 6697
+ :nick "titan-c"
+ :sasl-username ,(+pass-get-user "Social/freenode/titan-c")
+ :sasl-password (lambda (&rest _) (+pass-get-secret "Social/freenode/titan-c"))
+ :channels ("#emacs" "#guix")))
+#+end_src
+
+#+RESULTS:
+
* Ledger
Emacs mode for managing ledger text files
#+BEGIN_SRC emacs-lisp
@@ -570,11 +588,12 @@ Emacs mode for managing ledger text files
#+end_src
* Video Editing
#+begin_src emacs-lisp :tangle "packages.el"
-;; (package! subed)
+(package! subed
+ :recipe (:host github :repo "sachac/subed" :files ("subed/*.el")))
#+end_src
#+begin_src emacs-lisp
-;; (use-package! subed)
+(use-package! subed)
#+end_src
* Admin
@@ -594,10 +613,13 @@ Emacs mode for managing ledger text files
:load-path "~/dev/emacs-lisp/btc-explorer/"
:commands (on/bitcoin-rpc-connect)
:config
+ (require 'lnd)
(defun on/bitcoin-rpc-connect ()
(interactive)
(let* ((networks '(:mainnet 8332
+ :mainnet-r 8335
:testnet 18332
+ :testnet-r 18335
:regtest 18443))
(host "localhost")
(user "crazy")
diff --git a/config/doom/custom.el b/config/doom/custom.el
index b870478..7ba527d 100644
--- a/config/doom/custom.el
+++ b/config/doom/custom.el
@@ -3,12 +3,47 @@
;; If you edit it by hand, you could mess it up, so be careful.
;; Your init file should contain only one such instance.
;; If there is more than one, they won't work right.
+ '(auth-source-save-behavior nil)
'(ignored-local-variable-values
'((grep-find-ignored-directories ".git" ".venv" "node_modules" ".mypy_cache" ".pytest_cache" "SCCS" "RCS" "CVS" "MCVS" ".src" ".svn" ".git" ".hg" ".bzr" "_MTN" "_darcs" "{arch}")
(grep-find-ignored-files "*.min.js" "*.standalone.js" "*.map" "*.gz" ".#*" "*.o" "*~" "*.bin" "*.lbin" "*.so" "*.a" "*.ln" "*.blg" "*.bbl" "*.elc" "*.lof" "*.glo" "*.idx" "*.lot" "*.fmt" "*.tfm" "*.class" "*.fas" "*.lib" "*.mem" "*.x86f" "*.sparcf" "*.dfsl" "*.pfsl" "*.d64fsl" "*.p64fsl" "*.lx64fsl" "*.lx32fsl" "*.dx64fsl" "*.dx32fsl" "*.fx64fsl" "*.fx32fsl" "*.sx64fsl" "*.sx32fsl" "*.wx64fsl" "*.wx32fsl" "*.fasl" "*.ufsl" "*.fsl" "*.dxl" "*.lo" "*.la" "*.gmo" "*.mo" "*.toc" "*.aux" "*.cp" "*.fn" "*.ky" "*.pg" "*.tp" "*.vr" "*.cps" "*.fns" "*.kys" "*.pgs" "*.tps" "*.vrs" "*.pyc" "*.pyo")))
- '(package-selected-packages '(elpher adoc-mode logview))
+ '(package-selected-packages
+ '(graphviz-dot-mode elfeed-tube flycheck-elsa elpher adoc-mode logview))
'(safe-local-variable-values
- '((eval eval-after-load "yapfify"
+ '((eval let
+ ((root-dir-unexpanded
+ (locate-dominating-file default-directory ".dir-locals.el")))
+ (when root-dir-unexpanded
+ (let*
+ ((root-dir
+ (file-local-name
+ (expand-file-name root-dir-unexpanded)))
+ (root-dir*
+ (directory-file-name root-dir)))
+ (unless
+ (boundp 'geiser-guile-load-path)
+ (defvar geiser-guile-load-path 'nil))
+ (make-local-variable 'geiser-guile-load-path)
+ (require 'cl-lib)
+ (cl-pushnew root-dir* geiser-guile-load-path :test #'string-equal))))
+ (eval with-eval-after-load 'yasnippet
+ (let
+ ((guix-yasnippets
+ (expand-file-name "etc/snippets/yas"
+ (locate-dominating-file default-directory ".dir-locals.el"))))
+ (unless
+ (member guix-yasnippets yas-snippet-dirs)
+ (add-to-list 'yas-snippet-dirs guix-yasnippets)
+ (yas-reload-all))))
+ (eval setq-local guix-directory
+ (locate-dominating-file default-directory ".dir-locals.el"))
+ (eval add-to-list 'completion-ignored-extensions ".go")
+ (google-translate-default-source-language . "de")
+ (google-translate-default-target-language . "en")
+ (vc-prepare-patches-separately)
+ (diff-add-log-use-relative-names . t)
+ (vc-git-annotate-switches . "-w")
+ (eval eval-after-load "yapfify"
'(defun yapfify-call-bin
(input-buffer output-buffer start-line end-line)
"Call process yapf on INPUT-BUFFER saving the output to OUTPUT-BUFFER.
diff --git a/config/doom/init.el b/config/doom/init.el
index eaa9d09..e34b206 100644
--- a/config/doom/init.el
+++ b/config/doom/init.el
@@ -153,7 +153,7 @@
;;nim ; python + lisp at the speed of c
nix ; I hereby declare "nix geht mehr!"
;;ocaml ; an objective camel
- (org +roam2 +hugo +present) ; organize your plain life in plain text
+ (org +roam2 +hugo +present +gnuplot) ; organize your plain life in plain text
;;php ; perl's insecure younger brother
;;plantuml ; diagrams for confusing people more
;;purescript ; javascript, but functional
diff --git a/config/mpd/mpd.conf b/config/mpd/mpd.conf
index 30119e2..5d88caa 100644
--- a/config/mpd/mpd.conf
+++ b/config/mpd/mpd.conf
@@ -11,6 +11,7 @@
# file:// protocol) or streaming files over an accepted protocol.
#
music_directory "/run/media/titan/ext_backup/personal/cleaned_music/"
+# music_directory "/mnt/disk/personal/cleaned_music/"
#
# This setting sets the MPD internal playlist directory. The purpose of this
# directory is storage for playlists created by MPD. The server will use
@@ -26,6 +27,7 @@ playlist_directory "~/.config/mpd/playlists"
# files over an accepted protocol.
#
db_file "/run/media/titan/ext_backup/personal/mpd_database"
+# db_file "/mnt/disk/personal/mpd_database"
#
# These settings are the locations for the daemon log files for the daemon.
# These logs are great for troubleshooting, depending on your log_level
diff --git a/config/pikaur.conf b/config/pikaur.conf
index bf0b064..1953fba 100644
--- a/config/pikaur.conf
+++ b/config/pikaur.conf
@@ -10,9 +10,9 @@ keepbuilddir = no
keepdevbuilddir = yes
keepbuilddeps = no
skipfailedbuild = no
-alwaysusedynamicusers = no
ignorearch = no
gpgdir =
+dynamicusers = root
[review]
noedit = no
diff --git a/config/shepherd/init.d/cardano.scm b/config/shepherd/init.d/cardano.scm
index dbe40d7..bc89c84 100644
--- a/config/shepherd/init.d/cardano.scm
+++ b/config/shepherd/init.d/cardano.scm
@@ -49,7 +49,6 @@
(list ;;(string-append (getenv "HOME") "/.cabal/bin/cardano-wallet")
"cardano-wallet"
"serve"
- "+RTS" "-T" "-RTS"
"--node-socket" "/run/cardano-node-mainnet/socket"
"--database" (string-append (getenv "HOME") "/test-cardano/main/wallet")
"--mainnet")
diff --git a/home-dots/dot-bashrc b/home-dots/dot-bashrc
index 5ddf3a0..ae13f2b 100644
--- a/home-dots/dot-bashrc
+++ b/home-dots/dot-bashrc
@@ -8,6 +8,7 @@
HISTSIZE=-1
HISTFILESIZE=-1
+HISTCONTROL=ignorespace
# enable color support of ls and also add handy aliases
if [ -x /usr/bin/dircolors ]; then
diff --git a/home-dots/dot-sbclrc b/home-dots/dot-sbclrc
index e1d2c74..035c861 100644
--- a/home-dots/dot-sbclrc
+++ b/home-dots/dot-sbclrc
@@ -6,3 +6,5 @@
(user-homedir-pathname))))
(when (probe-file quicklisp-init)
(load quicklisp-init)))
+
+(push (merge-pathnames "dev/bitcoin/bp/" (user-homedir-pathname)) asdf:*central-registry*)
diff --git a/lib/guile/read-habit.scm b/lib/guile/read-habit.scm
index b3c7888..7c04422 100755
--- a/lib/guile/read-habit.scm
+++ b/lib/guile/read-habit.scm
@@ -2,19 +2,19 @@
--listen -s
!#
-(add-to-load-path "/home/titan/dev/helpful_scripts/guile/")
+(add-to-load-path "/home/titan/dev/dotfiles/lib/guile/")
-(use-modules (ice-9 rdelim)
- (ice-9 popen)
+(use-modules (ice-9 format)
(ice-9 ftw)
- (ice-9 format)
+ (ice-9 popen)
+ (ice-9 rdelim)
+ (json)
(term ansi-color)
+ (utils)
(web request)
- (json)
(web response)
(web server)
- (web uri)
- (utils))
+ (web uri))
(define habits-dir (expand-file "~/org/habits/"))
@@ -69,5 +69,5 @@
(cli-print "pull-ups.dat")
(display "pu\n")
-(cli-print "push-ups.dat")
+(cli-print "poop.dat")
;(run-server (lambda (request request-body) (handle-request request request-body)))