From c57cdb05c71669e760076d637e28d20796819d19 Mon Sep 17 00:00:00 2001 From: Case Duckworth Date: Thu, 30 Sep 2021 18:22:58 -0500 Subject: Update org-mode recipe --- init.el | 19 +++++++++++++++---- 1 file changed, 15 insertions(+), 4 deletions(-) (limited to 'init.el') diff --git a/init.el b/init.el index fff1782..afc3e6e 100644 --- a/init.el +++ b/init.el @@ -1183,8 +1183,8 @@ specific to most general, they are these: (crux-reopen-as-root-mode +1)) (setup (:straight-if (define-repeat-map - :host nil - :repo "https://tildegit.org/acdw/define-repeat-map.el") + :host nil + :repo "https://tildegit.org/acdw/define-repeat-map.el") (acdw/system :home)) (require 'define-repeat-map ; just for me @@ -1793,8 +1793,19 @@ browser defined in `browse-url-secondary-browser-function'." ((string-suffix-p "~" pattern) `(orderless-flex . ,(substring pattern 0 -1)))))) -(setup (:straight org - org-contrib) +(setup (:straight (org + :type git + :repo "https://git.savannah.gnu.org/git/emacs/org-mode.git" + :local-repo "org" + :depth full + :pre-build (straight-recipes-org-elpa--build) + :build (:not autoloads) + :files (:defaults + "lisp/*.el" + ("etc/styles/" "etc/styles/*"))) + (org-contrib + :type git + :repo "https://git.sr.ht/~bzg/org-contrib")) (:also-load acdw-org) (require 'chd nil 'noerror) (:option org-adapt-indentation nil -- cgit 1.4.1-21-gabe81 From 012305d5adbe73d3a71d94111c14fe92d73a3288 Mon Sep 17 00:00:00 2001 From: Case Duckworth Date: Thu, 30 Sep 2021 23:16:30 -0500 Subject: Add #emacsconf-org to list of autojoined channels --- init.el | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'init.el') diff --git a/init.el b/init.el index afc3e6e..a9377d9 100644 --- a/init.el +++ b/init.el @@ -1009,7 +1009,8 @@ specific to most general, they are these: circe-network-inhibit-autoconnect '("Pissnet" "Twitch IRC") circe-network-options `(("Libera Chat" - :channels ("#emacs" "#systemcrafters" "##webpals") + :channels ("#emacs" "#systemcrafters" "##webpals" + "#emacsconf-org") :sasl-username ,circe-default-nick :sasl-password ,(acdw/make-password-fetcher :host "libera.chat")) -- cgit 1.4.1-21-gabe81 From b7b43e326a356e66aa603d989c5b3df6c1e0b0b5 Mon Sep 17 00:00:00 2001 From: Case Duckworth Date: Thu, 30 Sep 2021 23:16:51 -0500 Subject: Hook more things into circe --- init.el | 8 ++++++-- 1 file changed, 6 insertions(+), 2 deletions(-) (limited to 'init.el') diff --git a/init.el b/init.el index a9377d9..62d46f8 100644 --- a/init.el +++ b/init.el @@ -1057,7 +1057,8 @@ specific to most general, they are these: #'enable-circe-color-nicks ;; #'enable-circe-display-images #'enable-circe-new-day-notifier - #'circe-chat@set-prompt)) + #'circe-chat@set-prompt + #'topsy-mode)) (autoload 'circe-nick-color-reset "circe-color-nicks") (add-hook 'modus-themes-after-load-theme-hook @@ -1065,13 +1066,16 @@ specific to most general, they are these: (:with-mode lui-mode (:option lui-fill-column (+ fill-column acdw-irc/left-margin) - lui-fill-type (repeat-string acdw-irc/left-margin " ") + lui-fill-type nil ;;(repeat-string acdw-irc/left-margin " ") lui-time-stamp-position 'right-margin lui-time-stamp-format "%H:%M" lui-track-behavior 'before-switch-to-buffer lui-track-indicator 'fringe lui-fill-remove-face-from-newline nil) + (:hook #'visual-fill-column-mode + #'visual-line-mode) + (:local-set fringes-outside-margins t right-margin-width 5 scroll-margin 0 -- cgit 1.4.1-21-gabe81 From bc4f54512badf8e5e2675967f3138620aaa3aa0a Mon Sep 17 00:00:00 2001 From: Case Duckworth Date: Thu, 30 Sep 2021 23:17:08 -0500 Subject: Add visual-fill-column --- init.el | 11 +++++++++++ 1 file changed, 11 insertions(+) (limited to 'init.el') diff --git a/init.el b/init.el index 62d46f8..5cd1c8d 100644 --- a/init.el +++ b/init.el @@ -1741,6 +1741,17 @@ browser defined in `browse-url-secondary-browser-function'." indicate-buffer-boundaries nil) (acdw/setup-fringes))))) +(setup (:straight visual-fill-column) + (:option visual-fill-column-width (+ fill-column 4) + visual-fill-column-center-text t + (append reading-modes) '(visual-fill-column-mode . +1)) + (:hook (defun visual-fill-column@setup () + (if visual-fill-column-mode + (setq-local indicate-empty-lines nil + indicate-buffer-boundaries nil) + (acdw/setup-fringes)))) + (:advise text-scale-adjust :after #'visual-fill-column-adjust)) + (setup (:straight (orderless :host github :repo "oantolin/orderless")) -- cgit 1.4.1-21-gabe81 From 8c14455783a84941616001e1b08e12baeb405a12 Mon Sep 17 00:00:00 2001 From: Case Duckworth Date: Thu, 30 Sep 2021 23:17:21 -0500 Subject: Remove custom bindings for winum The defaults are fine --- init.el | 18 ------------------ 1 file changed, 18 deletions(-) (limited to 'init.el') diff --git a/init.el b/init.el index 5cd1c8d..366f0f1 100644 --- a/init.el +++ b/init.el @@ -2307,24 +2307,6 @@ If used with a numeric prefix argument N, N backticks will be inserted." winum-ignored-buffers '(" *which-key*") winum-format " %s") - (when-unfocused winum-map-keys - (defvar winum--keys-mapped nil - "Whether `winum' keys have been mapped already.") - (when (and (not winum--keys-mapped) - (display-graphic-p)) - (:with-map winum-keymap - (:bind "M-0" #'winum-select-window-0-or-10 - "M-1" #'winum-select-window-1 - "M-2" #'winum-select-window-2 - "M-3" #'winum-select-window-3 - "M-4" #'winum-select-window-4 - "M-5" #'winum-select-window-5 - "M-6" #'winum-select-window-6 - "M-7" #'winum-select-window-7 - "M-8" #'winum-select-window-8 - "M-9" #'winum-select-window-9)) - (setq winum--keys-mapped t))) - (winum-mode +1)) (setup (:straight xr)) -- cgit 1.4.1-21-gabe81