diff options
Diffstat (limited to 'config/doom/config.org')
| -rw-r--r-- | config/doom/config.org | 55 |
1 files changed, 36 insertions, 19 deletions
diff --git a/config/doom/config.org b/config/doom/config.org index 1063299..1fe34a4 100644 --- a/config/doom/config.org +++ b/config/doom/config.org @@ -17,6 +17,14 @@ numbers are disabled. For relative line numbers, set this to `relative'. #+begin_src emacs-lisp ;(setq display-line-numbers-type 'relative) #+end_src +** Frame title includes file being used +#+BEGIN_SRC emacs-lisp + ;;http://emacs-fu.blogspot.fr/2011/01/setting-frame-title.html + (setq frame-title-format + '("" invocation-name ": "(:eval (if (buffer-file-name) + (abbreviate-file-name (buffer-file-name)) + "%b")))) +#+END_SRC ** Keybindings #+begin_src emacs-lisp (map! :leader @@ -179,11 +187,24 @@ this new window. (add-to-list 'org-latex-packages-alist '("AUTO" "babel" nil)) ) #+END_SRC +** Feeds +#+begin_src emacs-lisp +(after! elfeed + (set-evil-initial-state! 'elfeed-search-mode 'emacs) + (setq elfeed-feeds + '("https://sachachua.com/blog/feed" + "https://www.howardism.org/index.xml"))) + +#+end_src + +#+RESULTS: +| https://sachachua.com/blog/feed | https://www.howardism.org/index.xml | + * Email ** Notmuch #+begin_src emacs-lisp :tangle "packages.el" -(package! notmuch :pin "3df2281746d57abbb45790ecb432ef40533c30bc") -(package! org-mime :pin "eb21c02ba8f97fe69c14dc657a7883b982664649") +(package! notmuch :pin "7b5921877e748338359a25dae578771f768183af") +(package! org-mime :pin "a7bf07316f93015e4f853ea0fc5b8d05b4a7695d") (package! ol-notmuch :pin "126fb446d8fa9e54cf21103afaf506fd81273c02") #+end_src #+BEGIN_SRC emacs-lisp @@ -240,19 +261,18 @@ this new window. ("flagged" . notmuch-search-flagged-face) ("unread" . notmuch-search-unread-face))) + (defun notmuch-toggle-tag (tag tags-present) + (concat (if (member tag tags-present) "-" "+") tag)) + (defun notmuch-show-delete-message () "Delete current message if already marked as deleted undo." (interactive) - (apply #'notmuch-show-tag-message - (if (member "deleted" (notmuch-show-get-tags)) - '("-deleted") '("+deleted" "-inbox" "-unread")))) + (notmuch-show-tag-message (notmuch-toggle-tag "deleted" (notmuch-show-get-tags)))) (defun notmuch-show-tag-spam () "Tag spam on current message if already marked as spam undo." (interactive) - (apply #'notmuch-show-tag-message - (if (member "spam" (notmuch-show-get-tags)) - '("-spam") '("+spam" "-inbox" "-unread")))) + (notmuch-show-tag-message (notmuch-toggle-tag "spam" (notmuch-show-get-tags)))) (defun notmuch-show-delete-thread-then-exit () "Delete all messages in the current buffer, then exit back to search results." @@ -264,9 +284,7 @@ this new window. "Delete all messages in the current thread or undelete" (interactive) (notmuch-search-tag - (if (member "deleted" (notmuch-search-get-tags)) - '("-deleted") - '("+deleted" "-inbox" "-unread")))) + (list (notmuch-toggle-tag "deleted" (notmuch-search-get-tags))))) (defun notmuch-search-delete-all() "Delete all messages in the current buffer" @@ -274,15 +292,12 @@ this new window. (notmuch-search-tag-all '("+deleted" "-inbox" "-unread"))) - (define-key notmuch-tree-mode-map "d" (lambda () "delete message" (interactive) (notmuch-tree-tag - (if (member "deleted" (notmuch-tree-get-tags)) - '("-deleted") - '("+deleted" "-inbox" "-unread")))))) + (list (notmuch-toggle-tag "deleted" (notmuch-tree-get-tags))))))) (use-package! org-mime :after (org notmuch) @@ -346,19 +361,21 @@ Emacs mode for managing ledger text files :init (defun on/cardano-set-network () (interactive) - (let* ((networks '((:mainnet "/tmp/alinamn.socket" "--mainnet") - (:testnet "/tmp/alinatn.socket" "--testnet-magic" "1097911063") - (:alonzo-purple "~/test-cardano/purple/socket" "--testnet-magic" "8"))) + (let* ((networks '((:mainnet "/tmp/alinamn.socket" "http://localhost:8090" "--mainnet") + (:testnet "/tmp/alinatn.socket" "http://localhost:8091" "--testnet-magic" "1097911063") + )) (pick (alist-get (completing-read "Pick network" networks) networks nil nil #'string=))) (setq cardano-cli-node-socket (expand-file-name (car pick)) - cardano-cli-network-args (cdr pick)))) + cardano-api-url (cadr pick) + cardano-cli-network-args (cddr pick)))) :config (setq cardano-log-level 'debug) (setq cardano-cli-command (expand-file-name "~/dev/cardano/cardano-node/cli")) (setq cardano-address-keyring-dir "~/dev/cardano/emacs-wallet/keys/demo")) + (setq cardano-address-keyring-dir "~/dev/cardano/emacs-wallet/keys/HD") #+end_src * Books #+begin_src emacs-lisp :tangle "packages.el" |