|
|
|
|
@ -777,16 +777,17 @@ |
|
|
|
|
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) |
|
|
|
|
(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 |
|
|
|
|
** qml |
|
|
|
|
Load ~qml-mode~ |
|
|
|
|
#+BEGIN_SRC emacs-lisp |
|
|
|
|
(load "qml-mode.el" nil t t) |
|
|
|
|
(autoload 'qml-mode "qml-mode.el" t) |
|
|
|
|
(add-to-list 'auto-mode-alist '("\\.qml\\'" . qml-mode)) |
|
|
|
|
#+END_SRC |
|
|
|
|
** C and C++ |
|
|
|
|
|