ablemacs/config.el

;;;;;;;;;;;;;;;;;;;;
;; File Locations ;;
;;;;;;;;;;;;;;;;;;;;

(setq org-directory "~/org-mode/")


;;;;;;;;;;;;;;;;;
;; Keybindings ;;
;;;;;;;;;;;;;;;;;

;; Cut/paste like a normal human being.
(cua-mode 1)

;; Tab key binding.
(global-set-key (kbd "TAB") #'self-insert-command)

;; Spam Ctrl + s to save.
(global-set-key (kbd "C-s") 'save-buffer)

;; Prevent backspace from turning a tab character into 4 spaces.
(setq backward-delete-char-untabify-method nil)

;;;;;;;;;;;;;;;;;;;;;
;; Display Options ;;
;;;;;;;;;;;;;;;;;;;;;

;; This theme is inspired by the atom one dark theme
(setq doom-theme 'doom-one)

;; Display line numbers the normal way.
(setq display-line-numbers-type t)

;; Display time in specific formats.
(setq display-time-24hr-format 1)
(setq display-time-day-and-date 1)
;; Enable diplaying time
(display-time-mode 1)


;; Restore the menu bar because doom-emacs disables it.
(defun restore-menu-bar()
  (interactive)
  (if (fboundp 'tool-bar-mode) (tool-bar-mode 1))
  (if (fboundp 'menu-bar-mode) (menu-bar-mode 1)))
(restore-menu-bar)


;; Start emacs maximized.
(add-hook 'window-setup-hook #'toggle-frame-maximized)

;; Set tab width, Doesn't seem to work :( ;;
(setq-default tab-width 1)


;;;;;;;;;;;;;;;;;
;; Minor Modes ;;
;;;;;;;;;;;;;;;;;

(defun do-nothing ()
  "Don't do anything"
  (interactive))

(define-minor-mode no-backspace-mode
  "Disable the backspace key"
  :global t
  :lighter " noBackspace")

(defvar no-backspace--emulation-alist
  `((no-backspace-mode
     . ,(let ((map (make-sparse-keymap)))
          (define-key map (kbd "DEL") #'do-nothing)
          map))))

(add-to-list 'emulation-mode-map-alists 'no-backspace--emulation-alist)



;;;;;;;;;;;;;;;;;
;; HBLang Mode ;;
;;;;;;;;;;;;;;;;;


(defvar hblang-mode-syntax-table
  (let ((table (make-syntax-table)))
    ;; C and C++-style comments.
    (modify-syntax-entry ?/  ". 124b" table)
    (modify-syntax-entry ?*  ". 23" table)
    (modify-syntax-entry ?\n "> b" table)
    table)
  "Syntax table for `hblang-mode'.")

(defvar hblang-font-lock-keywords
  ;; Change the "" quoted regex to do various forms of highlighting.
  '(("" (1 font-lock-function-name-face))
    ("" (1 font-lock-variable-name-face)))
  "Highlight rules for `hblang-mode'.")

(define-derived-mode hblang-mode prog-mode "hb"
  "Major mode for editing hblang files."
  (setq font-lock-defaults '(hblang-font-lock-keywords nil)))


(add-to-list 'auto-mode-alist '("\\.hb\\'" . hblang-mode))

(provide 'hblang-mode)