29 lines
729 B
EmacsLisp
29 lines
729 B
EmacsLisp
;;; st.el --- terminal initialization for st -*- lexical-binding:t -*-
|
|
|
|
;; Copyright (C) 2020-2024 Free Software Foundation, Inc.
|
|
|
|
;;; Commentary:
|
|
|
|
;; Support for the st terminal emulator.
|
|
;; https://st.suckless.org/
|
|
|
|
;;; Code:
|
|
|
|
(require 'term/xterm)
|
|
|
|
(defcustom xterm-st-extra-capabilities '(modifyOtherKeys)
|
|
"Extra capabilities supported under \"stterm\"."
|
|
:version "28.1"
|
|
:type xterm--extra-capabilities-type
|
|
:group 'xterm)
|
|
|
|
(defun terminal-init-st ()
|
|
"Terminal initialization function for st."
|
|
;; Using `check' leads to a two-second timeout.
|
|
(let ((xterm-extra-capabilities xterm-st-extra-capabilities))
|
|
(tty-run-terminal-initialization (selected-frame) "xterm")))
|
|
|
|
(provide 'term/st)
|
|
|
|
;;; st.el ends here
|