 
 (defun sws-at-bol-p ()
   "If point is at beginning of line"
+  (interactive)
   (= (point) (point-at-bol)))
 
 (defun sws-at-bot-p ()


  ;; keymap
  (use-local-map sws-mode-map)

  (setq major-mode 'sws-mode))

(provide 'sws-mode)

      (sws-move-region (region-beginning) (region-end) '-)
    (if (sws-at-bol-p)
        (progn
          (message "at mother fucking bol")
          (delete-horizontal-space)
          (indent-to (sws-max-indent)))
      (let ((ci (current-indentation)))
