blob: f1cbad6d59f64caa1a8bf76f98588e075a9d809a (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
|
;;; st.el --- terminal initialization for st -*- lexical-binding:t -*-
;; Copyright (C) 2020-2021 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 getSelection
setSelection)
"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
|
