diff options
author | Case Duckworth | 2021-01-05 17:17:18 -0600 |
---|---|---|
committer | Case Duckworth | 2021-01-05 17:17:18 -0600 |
commit | f1382440134ce4256e411ce437b8a7d2961d6db7 (patch) | |
tree | 2f2040e15d529fd11992f09a15a04fe4dfd15565 | |
parent | Add mu4e shortcuts and keybinding (diff) | |
download | emacs-f1382440134ce4256e411ce437b8a7d2961d6db7.tar.gz emacs-f1382440134ce4256e411ce437b8a7d2961d6db7.zip |
Add smolweb stuff
-rw-r--r-- | config.org | 75 |
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 |