#+TITLE: emacs startup hook orgfile
#+AUTHOR: screwlisp
#+PROPERTY: header-args:elisp :tangle no
#+PROPERTY: header-args:elisp :eval  no
This org file's blocks are yes/no executed on emacs-startup-hook.

:eval yes when you want to be prompted for it during startup.

Startup should be like

==emacs==

or

==emacsclient -c -a ""==

so you can make the interactive choices.

==emacs --daemon==

will silently decline to execute anything (noninteractive behaviour).

* Add block                                        :call_this_for_new_blocks:
#+CALL: config.org:define-and-screwtape-block() :eval no

* blocks

** slime
#+name: clim-sbcl-start
#+begin_src elisp :eval yes

  (eshell)
  (insert "sbcl --load ~/common-lisp/slime*/start-swank.lisp --eval '(progn (require :mcclim) (asdf:load-system :rmoo))'")
  (eshell-send-input)
  (sleep-for 5)
  (switch-to-prev-buffer)

#+end_src

#+RESULTS: clim-sbcl-start
: #<buffer config-startup.org>

Yourtext

..

** my-heading
#+name: slime-connect
#+begin_src elisp :eval yes
(slime-connect "localhost" 4005)
#+end_src

#+RESULTS: slime-connect
: #<process SLIME Lisp>

#+RESULTS: my-name
: #<process SLIME Lisp>

.
..

..

** my-heading
#+name: dump-moo-text-lisp
#+begin_src elisp :eval no

  (add-hook 'rmoo-handle-text-hooks
	    (lambda ()
	      (slime-eval
	       `(cl-user:save-*moo-text*
		 ,(buffer-substring-no-properties (point-min) (point-max))))))

#+end_src

#+RESULTS: dump-moo-text-lisp
| lambda | nil | (slime-eval `(cl-user:save-*moo-text* ,(buffer-substring-no-properties (point-min) (point-max)))) |

.
..

** my-heading
#+name: elisp-list-moo
#+begin_src elisp :eval yes
  (add-hook 'rmoo-handle-text-hooks
	    (lambda ()
	      (my-capture-moo
	       (buffer-substring-no-properties (point-min) (point-max)))))
#+end_src

#+RESULTS: elisp-list-moo
| lambda | nil | (my-capture-moo (buffer-substring-no-properties (point-min) (point-max))) |

.
..


.
..

** Connect moo
#+name: connect-moo
#+begin_src elisp
(rmoo)
#+end_src
Probably type L and mash tab, then RET
.