|
|
|
|
@ -1275,24 +1275,6 @@ |
|
|
|
|
#+BEGIN_SRC emacs-lisp |
|
|
|
|
; (setq server-name (kde-current-activity-name)) |
|
|
|
|
#+END_SRC |
|
|
|
|
** TODO elisp |
|
|
|
|
*** Paredit |
|
|
|
|
#+BEGIN_SRC emacs-lisp |
|
|
|
|
(autoload 'enable-paredit-mode "paredit" "Turn on |
|
|
|
|
pseudo-structural editing of Lisp code." t) |
|
|
|
|
(add-hook 'emacs-lisp-mode-hook #'enable-paredit-mode) |
|
|
|
|
#+END_SRC |
|
|
|
|
*** Replace last sexp |
|
|
|
|
I use this a lot to evaluate (e.g.) quick computations in files |
|
|
|
|
#+BEGIN_SRC emacs-lisp |
|
|
|
|
(defun replace-last-sexp () |
|
|
|
|
(interactive) |
|
|
|
|
(let ((value (eval (preceding-sexp)))) |
|
|
|
|
(kill-sexp -1) |
|
|
|
|
(insert (format "%S" value)))) |
|
|
|
|
(global-set-key (kbd "C-c C-x C-e") 'replace-last-sexp) |
|
|
|
|
#+END_SRC |
|
|
|
|
** TODO qml |
|
|
|
|
Load ~qml-mode~ |
|
|
|
|
#+BEGIN_SRC emacs-lisp |
|
|
|
|
(load "qml-mode.el" nil t t) |
|
|
|
|
|