From 658f6bb1da57ee3b9fbc5ce0c2c7b1fd19010c95 Mon Sep 17 00:00:00 2001
From: Gerardo Marx <gmarx_cc@itmorelia.edu.mx>
Date: Tue, 25 May 2021 00:39:54 -0500
Subject: [PATCH] basic configuration

---
 .emacs | 103 ++++++++++++++++++++++++++-------------------------------
 1 file changed, 46 insertions(+), 57 deletions(-)

diff --git a/.emacs b/.emacs
index a5ad28a..5f50b32 100644
--- a/.emacs
+++ b/.emacs
@@ -1,76 +1,65 @@
 ;;; My basic configuration Gerardo Marx 20/May/2021
+;;; Ubuntu version
 ;;--------
 ;; Melpa repository:
 (require 'package)
 (add-to-list 'package-archives
 	     '("melpa" . "https://melpa.org/packages/")t)
 (package-initialize)
-;;++++++++++++++++
-;; use-package
-(unless (package-installed-p 'use-package)
-  (package-refresh-contents)
-  (package-install 'use-package))
+;; is-installed function
+(defun is-installed (package)
+  "A function to determine if a packge is installed, otherwise will be installed"
+  (unless (package-installed-p package)
+    (package-refresh-contents)
+    (package-install package)))
 ;;+++++++++++++
-;; frame size
+;; 1 Very basic emacs configuration:
+;;
 (setq initial-frame-alist '((top . 0)(left . 0)
-			    (width . 80)(height . 50)))
+			    (width . 80)(height . 50)));;frame size
+(add-to-list 'default-frame-alist
+	     '(font . "Source Code Pro-16"));; Set default font:
+(setq inhibit-startup-message t) ;;inhibit startup message
+(tool-bar-mode -1) ;; no toolbar
+(menu-bar-mode -1) ;; no menubar
+(global-hl-line-mode +1) ;; highlith current line
+(delete-selection-mode +1) ;; deletes selected text and replace it
+(scroll-bar-mode -1) ;; no scroll bar
+(setq ns-right-alternate-modifier nil) ;; right option macos key enable
+(fset 'yes-or-no-p 'y-or-n-p) ;; Ask y/n instead of yes/no
+(add-hook 'prog-mode-hook 'display-line-numbers-mode) ;; display line number when programming
+(show-paren-mode +1) ;; show matching parentheses
+;;===========
+;; 2. Packages for Emacs
+;;------------
 ;;+++++++++++
-;; Doom-themes, all-the-icons, mode-line and font
-(unless (package-installed-p 'doom-themes)
-  (package-install 'doom-themes))
-(unless (package-installed-p 'all-the-icons)
-  (package-install 'all-the-icons))
+;; 2.1: Doom-themes, all-the-icons and mode-line
+(is-installed 'doom-themes) ; install doom-themes
+(is-installed 'all-the-icons) ; install beauty icons for emacs
 (require 'doom-themes)
-;; Global settings (defaults)
-(setq doom-themes-enable-bold t    ; if nil, bold is universally disabled
-      doom-themes-enable-italic t) ; if nil, italics is universally disabled
-;; Load the theme (doom-one, doom-molokai, etc); keep in mind that each
-;; theme may have their own settings.
-(load-theme 'doom-one t)
-;; Enable flashing mode-line on errors
-(doom-themes-visual-bell-config)
+(setq doom-themes-enable-bold t   ; if nil, bold is universally disabled
+      doom-themes-enable-italic t); if nil, italics is universally disabled
+(load-theme 'doom-one t) ;default theme
+(doom-themes-visual-bell-config);; Enable flashing mode-line on errors
 ;; Enable custom neotree theme
 (doom-themes-neotree-config)  ; all-the-icons fonts must be installed!
-;; Installling doom-modeline:
-(unless (package-installed-p 'doom-modeline)
-  (package-install 'doom-modeline))
-(require 'doom-modeline)
-(doom-modeline-mode 1)
-;;Intalling all-the-icons font:
-(unless (package-installed-p 'all-the-icons)
-  (package-install 'all-the-icons))
-;; Set default font:
-(add-to-list 'default-frame-alist
-	     '(font . "Source Code Pro-24"))
+(is-installed 'doom-modeline);; Installling doom-modeline:
+(require 'doom-modeline) ;loading modeline
+(doom-modeline-mode 1);enabling modeline
+;; 2.2 helm
+(is-installed 'helm)
+(require 'helm-config)
+(global-set-key (kbd "M-x") 'helm-M-x)
+(global-set-key (kbd "C-x r b") #'helm-filtered-bookmarks)
+(global-set-key (kbd "C-x C-f") #'helm-find-files)
+(helm-mode 1)
+;; 2.3 which-key: Support to learn emacs keybindings
+(is-installed 'which-key)
+(require 'which-key)
+(which-key-mode)
 ;;+++++++
 ;;auctex:
 (setq TeX-auto-save t)
 (setq TeX-parse-self t)
 (setq-default TeX-master nil)
 ;;--end----
-;;++++++++
-;; emacs startup config
- (setq inhibit-startup-message t) ;;inhibit startup
- (tool-bar-mode -1)
- (menu-bar-mode -1)
- (global-hl-line-mode +1) ;; highlith current line
- (delete-selection-mode +1) ;; deletes selected text and replace it
- (scroll-bar-mode -1)
- (setq ns-right-alternate-modifier nil) ;; right option macos key enable
- (fset 'yes-or-no-p 'y-or-n-p) ;; Ask y/n instead of yes/no
- (add-hook 'prog-mode-hook 'display-line-numbers-mode) ;; display line number when programming
- (show-paren-mode +1) ;; show matching parentheses
-(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-safe-themes
-   (quote
-    ("08a27c4cde8fcbb2869d71fdc9fa47ab7e4d31c27d40d59bf05729c4640ce834" default))))
-(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.
- )