configs

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