2019-10-03 02:46:44 +02:00
|
|
|
;;; st.el --- terminal initialization for st -*- lexical-binding:t -*-
|
2020-08-11 09:23:40 +02:00
|
|
|
|
2022-01-01 02:45:51 -05:00
|
|
|
;; Copyright (C) 2020-2022 Free Software Foundation, Inc.
|
2019-10-03 02:46:44 +02:00
|
|
|
|
2020-08-11 09:23:40 +02:00
|
|
|
;;; Commentary:
|
|
|
|
|
|
|
|
|
|
;; Support for the st terminal emulator.
|
|
|
|
|
;; https://st.suckless.org/
|
|
|
|
|
|
|
|
|
|
;;; Code:
|
|
|
|
|
|
2019-10-03 02:46:44 +02:00
|
|
|
(require 'term/xterm)
|
|
|
|
|
|
2021-08-25 16:27:37 +02:00
|
|
|
(defcustom xterm-st-extra-capabilities '(modifyOtherKeys)
|
2021-08-19 15:19:23 +02:00
|
|
|
"Extra capabilities supported under \"stterm\"."
|
2021-08-19 14:18:27 +02:00
|
|
|
:version "28.1"
|
|
|
|
|
:type xterm--extra-capabilities-type
|
|
|
|
|
:group 'xterm)
|
|
|
|
|
|
2019-10-03 02:46:44 +02:00
|
|
|
(defun terminal-init-st ()
|
|
|
|
|
"Terminal initialization function for st."
|
2021-08-19 14:18:27 +02:00
|
|
|
;; Using `check' leads to a two-second timeout.
|
|
|
|
|
(let ((xterm-extra-capabilities xterm-st-extra-capabilities))
|
|
|
|
|
(tty-run-terminal-initialization (selected-frame) "xterm")))
|
2019-10-03 02:46:44 +02:00
|
|
|
|
|
|
|
|
(provide 'term/st)
|
|
|
|
|
|
2021-04-19 12:21:01 +02:00
|
|
|
;;; st.el ends here
|
