summary refs log tree commit diff stats
diff options
context:
space:
mode:
-rw-r--r--config.org30
1 files changed, 20 insertions, 10 deletions
diff --git a/config.org b/config.org index 8a959d7..a3f09e0 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 17:16:15 acdw> 8#+Time-stamp: <2021-01-07 19:41:59 acdw>
9 9
10* Basics 10* Basics
11 11
@@ -1728,6 +1728,18 @@ I’m only enabling this at home for now, since it requires building stuff.
1728 1728
1729** Smolweb 1729** Smolweb
1730 1730
1731*** A common function to make a cohesive smolweb experience
1732
1733 #+begin_src emacs-lisp
1734 (defun acdw/setup-smolweb ()
1735 "Configure emacs to view the smolweb."
1736 (setq visual-fill-column-center-text t)
1737 (visual-fill-column-mode +1)
1738 (visual-line-mode +1)
1739 (variable-pitch-mode -1)
1740 (text-scale-increase +1))
1741 #+end_src
1742
1731*** Elpher 1743*** Elpher
1732 1744
1733 #+begin_src emacs-lisp 1745 #+begin_src emacs-lisp
@@ -1741,11 +1753,11 @@ I’m only enabling this at home for now, since it requires building stuff.
1741 (cuss elpher-ipv4-always t) 1753 (cuss elpher-ipv4-always t)
1742 1754
1743 (cussface '(elpher-gemini-heading1 1755 (cussface '(elpher-gemini-heading1
1744 ((t (:inherit (modus-theme-heading-1)))))) 1756 ((t (:inherit (modus-theme-heading-1 variable-pitch))))))
1745 (cussface '(elpher-gemini-heading2 1757 (cussface '(elpher-gemini-heading2
1746 ((t (:inherit (modus-theme-heading-2)))))) 1758 ((t (:inherit (modus-theme-heading-2 variable-pitch))))))
1747 (cussface '(elpher-gemini-heading3 1759 (cussface '(elpher-gemini-heading3
1748 ((t (:inherit (modus-theme-heading-3)))))) 1760 ((t (:inherit (modus-theme-heading-3 variable-pitch))))))
1749 1761
1750 (defun elpher:eww-browse-url (original url &optional new-window) 1762 (defun elpher:eww-browse-url (original url &optional new-window)
1751 "Handle gemini/gopher links with eww." 1763 "Handle gemini/gopher links with eww."
@@ -1761,8 +1773,9 @@ I’m only enabling this at home for now, since it requires building stuff.
1761 (define-key elpher-mode-map "o" #'elpher-follow-current-link) 1773 (define-key elpher-mode-map "o" #'elpher-follow-current-link)
1762 (define-key elpher-mode-map "G" #'elpher-go-current)) 1774 (define-key elpher-mode-map "G" #'elpher-go-current))
1763 1775
1764 (add-hook 'elpher-mode-hook #'visual-fill-column-mode) 1776 (add-hook 'elpher-mode-hook #'acdw/setup-smolweb)
1765 1777
1778 (autoload 'elpher-bookmarks "elpher")
1766 (define-key acdw/map "e" #'elpher-bookmarks) 1779 (define-key acdw/map "e" #'elpher-bookmarks)
1767 #+end_src 1780 #+end_src
1768 1781
@@ -1782,11 +1795,7 @@ I’m only enabling this at home for now, since it requires building stuff.
1782 (cussface '(gemini-heading-face3 1795 (cussface '(gemini-heading-face3
1783 ((t (:inherit (elpher-gemini-heading3)))))) 1796 ((t (:inherit (elpher-gemini-heading3))))))
1784 1797
1785 (defun acdw/setup-gemini-mode () 1798 (add-hook 'gemini-mode-hook #'acdw/setup-smolweb)
1786 (visual-fill-column-mode +1)
1787 (variable-pitch-mode -1))
1788
1789 (add-hook 'gemini-mode-hook #'acdw/setup-gemini-mode)
1790 #+end_src 1799 #+end_src
1791 1800
1792*** Gemini-write 1801*** Gemini-write
@@ -1794,6 +1803,7 @@ I’m only enabling this at home for now, since it requires building stuff.
1794 #+begin_src emacs-lisp 1803 #+begin_src emacs-lisp
1795 (straight-use-package '(gemini-write 1804 (straight-use-package '(gemini-write
1796 :repo "https://alexschroeder.ch/cgit/gemini-write")) 1805 :repo "https://alexschroeder.ch/cgit/gemini-write"))
1806 (require 'gemini-write)
1797 1807
1798 ;; TODO : add tokens ... somehow 1808 ;; TODO : add tokens ... somehow
1799 #+end_src 1809 #+end_src