daniel/dotfiles
1
0
Fork 0
Code Activity Actions

wezterm: check pane user_vars instead of relying on custom ligature tracking

Browse source
This commit is contained in:
Daniel Kempkens 2025-01-04 23:17:55 +01:00
parent 0e1403bdd5
commit 8e7b9d103c
Signed by: daniel
SSH key fingerprint: SHA256:Ks/MyhQYcPRQiwMKLAKquWCdCPe3JXlb1WttgnAoSeM
2 changed files with 15 additions and 15 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

26
home/config/wezterm/config.fnl
View file

@ -19,9 +19,8 @@
:shell "#F8F8F2"} :shell "#F8F8F2"}
enable-ligatures-flags [:calt=1 :clig=1 :liga=1] enable-ligatures-flags [:calt=1 :clig=1 :liga=1]
disable-ligatures-flags [:calt=0 :clig=0 :liga=0]] disable-ligatures-flags [:calt=0 :clig=0 :liga=0]]
(var ligature-panes [])
(var latest-pane-update nil) (var latest-pane-update nil)
;; Event: Tab format ;; Helper functions
(fn extract-tab-title [tab] (fn extract-tab-title [tab]
(let [title tab.tab_title] (let [title tab.tab_title]
@ -94,15 +93,19 @@
(extract-tab-info (t:gsub "^op%srun%s%-%-%s(.*)" "%1")) (extract-tab-info (t:gsub "^op%srun%s%-%-%s(.*)" "%1"))
_ {: title :icon " " :color colors.shell})) _ {: title :icon " " :color colors.shell}))
(fn is-ssh-domain [pane] (fn ssh-domain? [pane]
(or (= (?. pane :user_vars :cmd_domain) :ssh) (or (= (?. pane :user_vars :cmd-domain) :ssh)
(= (string.sub pane.domain_name 1 3) :SSH))) (= (string.sub pane.domain_name 1 3) :SSH)))
(fn show-tab-activity-indicator [panes] (fn enable-ligatures? [user-vars]
(= (?. user-vars :enable-ligatures) :t))
(fn tab-activity-indicator? [panes]
(each [_ pane (ipairs panes)] (each [_ pane (ipairs panes)]
(when pane.has_unseen_output (lua "return true"))) (when pane.has_unseen_output (lua "return true")))
false) false)
;; Event: Tab Format
(wezterm.on :format-tab-title (wezterm.on :format-tab-title
(fn [tab _tabs _panes _config _hover max-width] (fn [tab _tabs _panes _config _hover max-width]
(let [raw-title (extract-tab-title tab) (let [raw-title (extract-tab-title tab)
@ -110,11 +113,11 @@
title (wezterm.truncate_right tab-info.title title (wezterm.truncate_right tab-info.title
(- max-width 5)) (- max-width 5))
active-indicator-color (if (or tab-info.ssh-domain active-indicator-color (if (or tab-info.ssh-domain
(is-ssh-domain tab.active_pane)) (ssh-domain? tab.active_pane))
colors.active-indicator-ssh colors.active-indicator-ssh
colors.active-indicator) colors.active-indicator)
(activity-indicator activity-color) (if (and (not tab-info.ignore-activity) (activity-indicator activity-color) (if (and (not tab-info.ignore-activity)
(show-tab-activity-indicator tab.panes)) (tab-activity-indicator? tab.panes))
(values "  " (values "  "
"#FFB86C") "#FFB86C")
(values " " nil))] (values " " nil))]
@ -156,7 +159,7 @@
(when (not= latest-pane-update pane-id) (when (not= latest-pane-update pane-id)
(let [overrides (or (window:get_config_overrides) {})] (let [overrides (or (window:get_config_overrides) {})]
(set latest-pane-update pane-id) (set latest-pane-update pane-id)
(if (. ligature-panes pane-id) (if (enable-ligatures? (pane:get_user_vars))
(do (do
(set overrides.harfbuzz_features (set overrides.harfbuzz_features
enable-ligatures-flags) enable-ligatures-flags)
@ -166,19 +169,16 @@
disable-ligatures-flags) disable-ligatures-flags)
(window:set_config_overrides overrides))))))) (window:set_config_overrides overrides)))))))
(wezterm.on :user-var-changed (wezterm.on :user-var-changed
(fn [window pane name value] (fn [window _pane name value]
(let [overrides (or (window:get_config_overrides) {}) (let [overrides (or (window:get_config_overrides) {})]
pane-id (pane:pane_id)]
(case [name value] (case [name value]
[:enable-ligatures :t] (do [:enable-ligatures :t] (do
(set overrides.harfbuzz_features (set overrides.harfbuzz_features
enable-ligatures-flags) enable-ligatures-flags)
(tset ligature-panes pane-id true)
(window:set_config_overrides overrides)) (window:set_config_overrides overrides))
[:enable-ligatures :f] (do [:enable-ligatures :f] (do
(set overrides.harfbuzz_features (set overrides.harfbuzz_features
disable-ligatures-flags) disable-ligatures-flags)
(tset ligature-panes pane-id nil)
(window:set_config_overrides overrides)))))) (window:set_config_overrides overrides))))))
;; Event: Screen options ;; Event: Screen options
(wezterm.on :window-resized (wezterm.on :window-resized

4
home/programs/zsh/functions/mediaservercmd
View file

@ -1,5 +1,5 @@
printf "\033]1337;SetUserVar=%s=%s\007" cmd_domain `echo -n ssh | base64` printf "\033]1337;SetUserVar=%s=%s\007" cmd-domain `echo -n ssh | base64`
et -c "$*" mediaserver et -c "$*" mediaserver
printf "\033]1337;SetUserVar=%s=%s\007" cmd_domain `echo -n local | base64` printf "\033]1337;SetUserVar=%s=%s\007" cmd-domain `echo -n local | base64`