uMtMu

(+ 2 5 34 32 (/ 22 3))

(defun add-nums (a b c)
(+ a b c)
)

(add-nums 10 23)

;; test lib
(require 'ert)
(ert-deftest add-nums-pos () 
  should (equal (add-nums-pos 11 10) 21))
;; M - x ert

(org-src-debug)
(setq a 10 b 32)
(+ a b)
(null nil)

'(1 2 3 4)
(equal nil '())
(setq my_list '(1 2 3 4))
(car my_list)
(cdr my_list)
(nth 0 my_list)
(member 4 my_list)
(defun does_exist (number my-list)
  (
   (member number my-list)))

(require 'ert)
(ert-deftest check-number
    ((should (does_exist 1 '(1 2 3 4)) )
     )

  (ert-deftest check-number
      ((should (not (does_exist 5 '(1 2 3 4)) ))
       )
    )

  (ert-deftest check-number ()
    (should (does_exist 1 '(1 2 3 4)))
    (should (not (does_exist 5 '(1 2 3 4))))
    )

(setq my_list '(1 2 3 4))
;; loop through list and print even number
(dolist (elm my_list)
  (when (= (mod elm 2) 0) 
    (print elm) ;; writes to mini buffer
    (message (number-to-string elm)) ;; durumu tam anlamadım
    ))
(let (some-var) ;; sets scope, some-var will work only in let
  (when (null some-var)
    (message "var is null") 
    ))

(let ((some-var 0)
      (other-var 99))
  (if (null some-var)
      (message "null")
    (message "not null")
    ))

(defun sum-evens (some-list)
  (let ((sum 0))
    (dolist (elm some-list)
      (when (= (mod 2 elm))
	(setq sum (+ sum elm))))
    (message (number-to-string sum))
    ))
(sum-evens '(1 2 3 4))

;; C-h f get help for function
;; C-h k get help for key
(defun cheap-count-words ()
  (interactive)
  (let ((words 0))
    (save-excursion ;; imlecin son yerini hatırla
      (goto-char (point-min)) ;; buffer'ın en başına gel
      (while (forward-word) ;; bir kelime ilerle
	(setq words (+ 1 words)))
      (message (format "Words in buffer: %s" words))
      words)) ;; sadece let çalıştığı zaman fonksiyon hata veriyor. words'ü de yazdırıyoruz ??
  )


(require 'ert)
(ert-deftest count-words-test ()
  (get-buffer-create "*test*") ;; bu isimli buffer yoksa oluştur
  (with-current-buffer "*test*"
    (erase-buffer)
    (insert "Hello Worlds") ;; buffera yaz
    (should (= (cheap-count-words) 2))
    )
  (kill-buffer "*test*")
  )

;; C-x C-e M-x ert

(defvar boolcase-mode-words '("true" "false")
  "Words to capitalize"  
  )

(defun boolcase-mode-check ()
  "Check if we capitalize or not"
  ;; iif it's "e"
  (if (= last-command-event 101)
      (boolcase-mode-fix)))

(defun boolcase-mode-fix ()
  (save-excursion
    (copy-region-as-kill (point) (progn (backward-sexp) (point)))
    (when (member (current-kill 0) boolcase-mode-words)
      (capitalize-word 1))
    ;; Remove the element from kill ring
    (setq kill-ring (cdr kill-ring))
    )
  )


(define-minor-mode boolcase-mode
  "Auto capitalize"
  :lighter " BC"
  (if boolcase-mode
      (add-hook 'post-self-insert-hook
		'boolcase-mode-check nil t)
    (remove-hook 'post-self-insert-hook
		 'boolcase-mode-check t)
    )
  )