Emacs Conf

.emacs

;; Cosmetique
(setq inhibit-startup-screen t
      inhibit-startup-message t
      inhibit-startup-echo-area-message t
      initial-scratch-message nil)

(menu-bar-mode -1)
(scroll-bar-mode -1)
(tool-bar-mode -1)
(tooltip-mode -1)

(setq visible-bell nil
      ring-bell-function 'ignore)

(load-theme 'misterioso)
(set-default 'cursor-type '(hbar . 2))
(set-face-attribute 'default nil :font "VictorMono NF" :height 120)
(set-cursor-color "#FFB300")

(setq inhibit-compacting-font-caches t)
(setq find-file-visit-truename t)
(setq user-full-name "Tracnac"
      user-mail-address "tracnac@devmobs.fr")

(setq widget-image-enable nil)
(setq org-hide-emphasis-markers t)
(setq initial-buffer-choice nil)
(setq frame-title-format nil)
(setq use-file-dialog nil)
(setq use-dialog-box nil)
(setq pop-up-windows nil)
(setq indicate-empty-lines nil)
(setq cursor-in-non-selected-windows nil)
(setq initial-major-mode 'text-mode)
(setq default-major-mode 'text-mode)
(setq font-lock-maximum-decoration nil)
(setq font-lock-maximum-size nil)
(setq auto-fill-mode nil)
(setq fill-column 80)
(setq confirm-nonexistent-file-or-buffer nil)
(setq completion-styles '(basic substring))
(setq org-return-follows-link t)

(fset 'yes-or-no-p 'y-or-n-p)

(setq-default indent-tabs-mode nil)
(setq-default tab-width 4)

(temp-buffer-resize-mode)
(setq temp-buffer-max-height 8)

(setq window-min-height 1)

;; Buffer encoding
(prefer-coding-system       'utf-8)
(set-default-coding-systems 'utf-8)
(set-terminal-coding-system 'utf-8)
(set-keyboard-coding-system 'utf-8)
(set-language-environment   'utf-8)

;; Unique buffer names
(require 'uniquify)
(setq uniquify-buffer-name-style 'reverse
      uniquify-separator " • "
      uniquify-after-kill-buffer-p t
      uniquify-ignore-buffers-re "^\\*")


;; PACKAGES
(setq package-enable-at-startup nil)

(defvar bootstrap-version)
(let ((bootstrap-file
               (expand-file-name "straight/repos/straight.el/bootstrap.el" user-emacs-directory))
            (bootstrap-version 5))
    (unless (file-exists-p bootstrap-file)
          (with-current-buffer
                    (url-retrieve-synchronously
                               "https://raw.githubusercontent.com/raxod502/straight.el/develop/install.el"
                                        'silent 'inhibit-cookies)
                          (goto-char (point-max))
                                (eval-print-last-sexp)))
      (load bootstrap-file nil 'nomessage))

;; Les "Must Have" paquets
;; (straight-use-package 'projectile)
;; (straight-use-package 'counsel)
;; (straight-use-package 'magit)
;; (straight-use-package 'eshell)
;; (straight-use-package 'helpful)
(straight-use-package 'smartparens)
(straight-use-package 'rainbow-delimiters)
;; (straight-use-package 'telephone-line)
;; (straight-use-package 'notmuch)
;; (straight-use-package 'exwm)
(straight-use-package
  '(nano-emacs :type git :host github :repo "rougier/nano-emacs"))

;; Initialisation
;;(require 'telephone-line)
;;(setq telephone-line-lhs
;;      '((evil   . (telephone-line-evil-tag-segment))
;;	(accent . (telephone-line-vc-segment
;; 	   telephone-line-erc-modified-channels-segment
;;		   telephone-line-process-segment))
;;	(nil    . (telephone-line-minor-mode-segment
;;		   telephone-line-buffer-segment))))
;;(setq telephone-line-rhs
;;      '((nil    . (telephone-line-misc-info-segment))
;;	(accent . (telephone-line-major-mode-segment))
;;	(evil   . (telephone-line-airline-position-segment))))
;;
;;(setq telephone-line-evil-use-short-tag t)
;;(telephone-line-mode 1)

;;
;;(require 'projectile)
;;(projectile-mode)
;;
;;(require 'magit)
;;;; (magit-mode)
;;
;;(require 'counsel)
;;(counsel-mode)
;;
;;(require 'helpful)
;;
;;(require 'notmuch)
;;(setq send-mail-function 'sendmail-send-it
;;      sendmail-program "/usr/bin/msmtp"
;;      mail-specify-envelope-from t
;;      message-sendmail-envelope-from 'header
;;      mail-envelope-from 'header)
;;
(require 'smartparens)
(smartparens-mode)
;;
(require 'rainbow-delimiters)
(rainbow-delimiters-mode)
;;
;;(require 'exwm)
;;(require 'exwm-config)
;;(exwm-config-default)

(setq nano-font-family-monospaced "VictorMono NF")
(setq nano-font-family-proportional nil)
(setq nano-font-size 14)
(require 'nano-theme-dark)
(require 'nano-base-colors)
(require 'nano-faces)
(nano-faces)
(require 'nano-session)
(require 'nano-modeline)

(let ((inhibit-message t))
     (message "Welcome to GNU Emacs T R /\\ C N /\\ C. Edition")
     (message (format "Initialization time: %s" (emacs-init-time))))

(custom-set-variables
 ;; custom-set-variables was added by Custom.
 ;; If you edit it by hand, you could mess it up, so be careful.
 ;; Your init file should contain only one such instance.
 ;; If there is more than one, they won't work right.
(custom-set-faces
 ;; custom-set-faces was added by Custom.
 ;; If you edit it by hand, you could mess it up, so be careful.
 ;; Your init file should contain only one such instance.
 ;; If there is more than one, they won't work right.
 )
)

;;(setq initial-major-mode (quote text-mode))
;;(setq initial-buffer-choice 'new-empty-buffer)

(defun new-empty-buffer ()
  (interactive)
  (let (($buf (generate-new-buffer "untitled")))
    (switch-to-buffer $buf)
    (funcall initial-major-mode)
    (setq buffer-offer-save t)
    $buf
    ))

(put 'upcase-region 'disabled nil)
(put 'downcase-region 'disabled nil)