conditional loading distel

conditional loading distel.txt

*** Welcome to IELM ***  Type (describe-mode) for help.
ELISP> 
ELISP> 
ELISP> 1
1 (#o1, #x1, ?\C-a)
ELISP> '(1 2 4 5)
(1 2 4 5)

ELISP> [1 2]
[1 2]

ELISP> +1 2 
*** IELM error ***  More than one sexp in input
ELISP> (+1 2 3 4 5)
*** Eval error ***  Invalid function: 1
ELISP> (+1 2)
*** Eval error ***  Invalid function: 1
ELISP> (+ 1 4)
5 (#o5, #x5, ?\C-e)
ELISP> 
5 (#o5, #x5, ?\C-e)
ELISP> 
ELISP> (+ 1 4 45 6 6 7 7 )
5 (#o5, #x5, ?\C-e)
ELISP> (+ 1 4 45 6 6 7 7 )
76 (#o114, #x4c, ?L)
ELISP> ( *1 2)
*** Eval error ***  Symbol's function definition is void: *1
ELISP> (* 1 2)
*** Eval error ***  Symbol's function definition is void: *1
ELISP> (* 1 2)
2 (#o2, #x2, ?\C-b)
ELISP> (defun add-nums (a b) (+ a b))
add-nums
ELISP> (add-nums 1 2)
3 (#o3, #x3, ?\C-c)
ELISP> (car 1 3)
*** Eval error ***  Wrong type argument: listp, [1 3]
ELISP> (car '(1 3))
*** Eval error ***  Wrong number of arguments: car, 2
ELISP> (cdr '(1 3))
1 (#o1, #x1, ?\C-a)
ELISP> (cdr '(1 3 4 6 ))
(3)

ELISP> (cdr '(1 3 4 6 ))
(3 4 6)

ELISP> (require 'ert)
ert
ELISP> (ert-deftest add-nums-pos () (should (equal (add-nums 10 10) 20)))
add-nums-pos
ELISP> (add-nums-pos)
*** Eval error ***  Symbol's function definition is void: add-nums-pos
ELISP> (defun add-nums (a b) (+ a b))
add-nums
ELISP> (add-nums 1 2)
*** Eval error ***  Symbol's function definition is void: addnums
ELISP> (add-nums 1 (add-nums 2 3) )
3 (#o3, #x3, ?\C-c)
ELISP> (add-nums 1 (add-nums 2 3) )
6 (#o6, #x6, ?\C-f)
ELISP> 



;; This buffer is for notes you don't want to save, and for Lisp evaluation.
;; If you want to create a file, visit that file with C-x C-f,
;; then enter the text in that file's own buffer.

(setq x (1+ 2))
x

( 
(setq distel-install-path
      (concat (getenv "HOME") "/.emacs.d/share/distel/elisp") )
distel-install-path )



(quote[1 2 "d"])

 (let distel-install-path "foo")
 (distel-in

(when 
    (file-accessible-directory-p distel-install-path) t)

(when (require 'distel nil 'noerror)
  'do-things)
 
(add-to-list 'load-path "/home/deeee")
(require 'distel)
(distel-setup)
 
(when (require 'company-distel nil 'noerror)
(add-to-list 'company-backends 'company-distel)
(setq distel-completion-get-doc-from-internet t))

-;;
-;;;; Load the Erlang editing support if kerl has set the variable _KERL_ACTIVE_DIR
-;;(when 
-;;(setq load-path -;;(setq erlang-root-dir (concat (car (file-expand-wildcards (concat (getenv "_KERL_ACTIVE_DIR") "/lib/erts-*" ))) "/" ))
-;;(setq exec-path (cons (concat (getenv "_KERL_ACTIVE_DIR") "/lib/bin" ) exec-path) )
-;;(require 'erlang-start)
-;;)

(eval '(cdr '(1 3 4)))