about summary refs log tree commit diff stats
diff options
context:
space:
mode:
-rw-r--r--config.org75
1 files changed, 74 insertions, 1 deletions
diff --git a/config.org b/config.org index 5440fb8..8452876 100644 --- a/config.org +++ b/config.org
@@ -5,7 +5,7 @@
5#+EXPORT_FILE_NAME: README.md 5#+EXPORT_FILE_NAME: README.md
6#+OPTIONS: toc:nil 6#+OPTIONS: toc:nil
7#+BANKRUPTCY_COUNT: 3.2 7#+BANKRUPTCY_COUNT: 3.2
8#+Time-stamp: <2021-01-05 11:52:00 acdw> 8#+Time-stamp: <2021-01-05 17:16:15 acdw>
9 9
10* Basics 10* Basics
11 11
@@ -1674,6 +1674,79 @@ I’m only enabling this at home for now, since it requires building stuff.
1674 1674
1675 (define-key acdw/map "m" #'acdw/mu4e-or-warn) 1675 (define-key acdw/map "m" #'acdw/mu4e-or-warn)
1676 #+end_src 1676 #+end_src
1677
1678** Smolweb
1679
1680*** Elpher
1681
1682 #+begin_src emacs-lisp
1683 (straight-use-package '(elpher
1684 :repo "git://thelambdalab.xyz/elpher.git"))
1685
1686 (with-eval-after-load 'no-littering
1687 (cuss elpher-certificate-directory
1688 (no-littering-expand-var-file-name "elpher-certificates/")))
1689
1690 (cuss elpher-ipv4-always t)
1691
1692 (cussface '(elpher-gemini-heading1
1693 ((t (:inherit (modus-theme-heading-1))))))
1694 (cussface '(elpher-gemini-heading2
1695 ((t (:inherit (modus-theme-heading-2))))))
1696 (cussface '(elpher-gemini-heading3
1697 ((t (:inherit (modus-theme-heading-3))))))
1698
1699 (defun elpher:eww-browse-url (original url &optional new-window)
1700 "Handle gemini/gopher links with eww."
1701 (cond ((string-match-p "\\`\\(gemini\\|gopher\\)://" url)
1702 (require 'elpher)
1703 (elpher-go url))
1704 (t (funcall original url new-window))))
1705 (advice-add 'eww-browse-url :around 'elpher:eww-browse-url)
1706
1707 (with-eval-after-load 'elpher
1708 (define-key elpher-mode-map "n" #'elpher-next-link)
1709 (define-key elpher-mode-map "p" #'elpher-prev-link)
1710 (define-key elpher-mode-map "o" #'elpher-follow-current-link)
1711 (define-key elpher-mode-map "G" #'elpher-go-current))
1712
1713 (add-hook 'elpher-mode-hook #'visual-fill-column-mode)
1714
1715 (define-key acdw/map "e" #'elpher-bookmarks)
1716 #+end_src
1717
1718*** Gemini-mode
1719
1720 #+begin_src emacs-lisp
1721 (straight-use-package '(gemini-mode
1722 :repo "https://git.carcosa.net/jmcbray/gemini.el.git"))
1723
1724 (add-to-list 'auto-mode-alist
1725 '("\\.\\(gemini\\|gmi\\)\\'" . gemini-mode))
1726
1727 (cussface '(gemini-heading-face-1
1728 ((t (:inherit (elpher-gemini-heading1))))))
1729 (cussface '(gemini-heading-face2
1730 ((t (:inherit (elpher-gemini-heading2))))))
1731 (cussface '(gemini-heading-face3
1732 ((t (:inherit (elpher-gemini-heading3))))))
1733
1734 (defun acdw/setup-gemini-mode ()
1735 (visual-fill-column-mode +1)
1736 (variable-pitch-mode -1))
1737
1738 (add-hook 'gemini-mode-hook #'acdw/setup-gemini-mode)
1739 #+end_src
1740
1741*** Gemini-write
1742
1743 #+begin_src emacs-lisp
1744 (straight-use-package '(gemini-write
1745 :repo "https://alexschroeder.ch/cgit/gemini-write"))
1746
1747 ;; TODO : add tokens ... somehow
1748 #+end_src
1749
1677* Appendices 1750* Appendices
1678 1751
1679** Emacs' files 1752** Emacs' files