diff options
| -rwxr-xr-x | bin/tagmail | 1 | ||||
| -rw-r--r-- | config/doom/config.org | 26 | ||||
| -rw-r--r-- | config/doom/custom.el | 39 | ||||
| -rw-r--r-- | config/doom/init.el | 2 | ||||
| -rw-r--r-- | config/mpd/mpd.conf | 2 | ||||
| -rw-r--r-- | config/pikaur.conf | 2 | ||||
| -rw-r--r-- | config/shepherd/init.d/cardano.scm | 1 | ||||
| -rw-r--r-- | home-dots/dot-bashrc | 1 | ||||
| -rw-r--r-- | home-dots/dot-sbclrc | 2 | ||||
| -rwxr-xr-x | lib/guile/read-habit.scm | 16 |
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))) |