 (setq-default search-whitespace-regexp nil)
 ;;  truncate long lines
 (setq-default truncate-lines t)
+(bind-key "M-o c" 'canonically-space-region)
+(bind-key "C-x c" 'capitalize-region)
 (defun my/set-word-processor()
+  (turn-on-auto-fill)
+  (refill-mode)
+  (setq indent-tabs-mode nil)
+  (font-lock-mode -1)
+  (setq default-justification 'full)
   (visual-line-mode 1)
   ;; uncomment to move by logical lines, not visual lines
   ;; (setq line-move-visual nil)

  (mapc (lambda(mode)
          (add-to-list 'ac-modes mode))
        '(sql-mode nxml-mode cmake-mode folio-mode protobuf-mode
                   python-mode dos-mode gud-mode sh-mode
                   makefile-mode makefile-automake-mode makefile-gmake-mode
                   autoconf-mode gdb-script-mode awk-mode csv-mode
                   mock-mode org-mode html-mode text-mode sql-mode
                   sql-interactive-mode conf-mode
                   git-commit-mode mock-mode
                   ))
  (use-package auto-complete-config)
  (setq-default ac-sources

  ;; altering movement commands to use visual lines rather than logical ones.
  ;; (setq truncate-lines nil)
  ;; (setq word-wrap t)
  )
;; default tab width
(setq-default tab-width 4)
