mirror of
https://github.com/jimeh/.emacs.d.git
synced 2026-02-19 13:46:41 +00:00
28 lines
697 B
EmacsLisp
28 lines
697 B
EmacsLisp
;;; siren-core.el --- jimeh's Emacs Siren: Core Siren functions.
|
|
|
|
;;; Commentary:
|
|
|
|
;; Core Siren functions used a bit all over the place. Some of them shamelessly
|
|
;; ripped from Emacs Prelude.
|
|
|
|
;;; Code:
|
|
|
|
(defun siren-smart-open-line-above ()
|
|
"Insert an empty line above the current line.
|
|
Position the cursor at it's beginning, according to the current mode."
|
|
(interactive)
|
|
(move-beginning-of-line nil)
|
|
(newline-and-indent)
|
|
(forward-line -1)
|
|
(indent-according-to-mode))
|
|
|
|
(defun siren-wrap-with (s)
|
|
"Create a wrapper function for smartparens using S."
|
|
`(lambda (&optional arg)
|
|
(interactive "P")
|
|
(sp-wrap-with-pair ,s)))
|
|
|
|
|
|
(provide 'siren-core)
|
|
;;; siren-core.el ends here
|