15 lines
334 B
Plaintext
15 lines
334 B
Plaintext
|
# -*- mode: snippet -*-
|
||
|
|
# name: hat
|
||
|
|
# key: hat
|
||
|
|
# type: command
|
||
|
|
# condition: (and (texmathp) 'auto)
|
||
|
|
# group: math
|
||
|
|
# --
|
||
|
|
(let ((argument t))
|
||
|
|
(condition-case nil
|
||
|
|
(progn
|
||
|
|
(backward-sexp)
|
||
|
|
(kill-sexp)
|
||
|
|
(delete-char 1))
|
||
|
|
(error (setq argument 'nil)))
|
||
|
|
(insert "\\hat{" (if argument (current-kill 0) "") "}"))
|