terminal-title.elv

# DO NOT EDIT THIS FILE DIRECTLY
# This is a file generated from a literate programing source file located at
# https://github.com/zzamboni/elvish-modules/blob/master/terminal-title.org
# You should make any changes there and regenerate it from Emacs org-mode using C-c C-v t

use ./prompt-hooks
use re
use str

var start = "\e]0;"
var end = "\007"

fn set-title {|@title|
  var title-str = (str:join ' ' $title)
  print $start$title-str$end
}

var title-during-prompt = {
  put "elvish "(tilde-abbr $pwd)
}

var title-during-command = {|cmd|
  put (edit:wordify $cmd | take 1)" "(tilde-abbr $pwd)
}

fn init {
  prompt-hooks:add-before-readline {
    set-title ($title-during-prompt)
  }
  prompt-hooks:add-after-readline {|cmd|
    set-title ($title-during-command $cmd)
  }
  set after-chdir = [ $@after-chdir {|dir|
    set-title ($title-during-prompt)
  } ]
}

init