From c66719c5e54c41e203e1adfae60e63239bc7f727 Mon Sep 17 00:00:00 2001 From: qorg11 Date: Sun, 7 Jun 2020 12:29:20 +0200 Subject: [PATCH] Initial commit --- .gitignore | 2 + .ignore | 1 + config.el | 168 ++++++++++++++++++++++++++++++++++ config.org | 262 +++++++++++++++++++++++++++++++++++++++++++++++++++++ init.el | 18 ++++ markup.el | 47 ++++++++++ recentf | 10 ++ 7 files changed, 508 insertions(+) create mode 100644 .gitignore create mode 100644 .ignore create mode 100644 config.el create mode 100644 config.org create mode 100644 init.el create mode 100644 markup.el create mode 100644 recentf diff --git a/.gitignore b/.gitignore new file mode 100644 index 0000000..4eda2ab --- /dev/null +++ b/.gitignore @@ -0,0 +1,2 @@ +auto-save-list +elpa diff --git a/.ignore b/.ignore new file mode 100644 index 0000000..cc970e1 --- /dev/null +++ b/.ignore @@ -0,0 +1 @@ +elpa diff --git a/config.el b/config.el new file mode 100644 index 0000000..72d5813 --- /dev/null +++ b/config.el @@ -0,0 +1,168 @@ +(setq name "qorg11") +(setq email "qorg@vxempire.xyz") + +(require 'package) +(let* ((no-ssl (and (memq system-type '(windows-nt ms-dos)) + (not (gnutls-available-p)))) + (proto (if no-ssl "http" "https"))) + ;; Comment/uncomment these two lines to enable/disable MELPA and MELPA Stable as desired + (add-to-list 'package-archives (cons "melpa" (concat proto "://melpa.org/packages/")) t) + ;;(add-to-list 'package-archives (cons "melpa-stable" (concat proto "://stable.melpa.org/packages/")) t) + (when (< emacs-major-version 24) + ;; For important compatibility libraries like cl-lib + (add-to-list 'package-archives '("gnu" . (concat proto "://elpa.gnu.org/packages/"))))) +(package-initialize) +(unless (package-installed-p 'use-package) + (package-refresh-contents) + (package-install 'use-package)) + +(defun untabify-buffer () + (interactive) + (untabify (point-min) (point-max))) + +(defun indent-buffer () + (interactive) + (indent-region (point-min) (point-max))) + +(defun cleanup-buffer () + "Perform a bunch of operations on the whitespace content of a buffer. +Including indent-buffer, which should not be called automatically on save." + (interactive) + (untabify-buffer) + (delete-trailing-whitespace) + (indent-buffer)) + +(global-set-key (kbd "C-c n") 'cleanup-buffer) +(global-set-key (kbd "M-m") 'mark-whole-buffer) + +(setq package-enable-at-startup nil) (package-initialize) + +(setq make-backup-files nil) ; stop creating backup~ files +(setq auto-save-default nil) ; stop creating #autosave# files +(put 'upcase-region 'disabled nil) + + +(defun contextual-menubar (&optional frame) +"Display the menubar in FRAME (default: selected frame) if on a +graphical display, but hide it if in terminal." +(interactive) +(set-frame-parameter frame 'menu-bar-lines +(if (display-graphic-p frame) +1 0))) + +(add-hook 'after-make-frame-functions 'contextual-menubar) +(add-hook 'sgml-mode-hook 'zencoding-mode) +(setq-default dired-details-hidden-string "---- ") + +;; (icomplete-mode 1) Deprecated, used ido-mode instead + +(scroll-bar-mode -1) +(tool-bar-mode -1) +(menu-bar-mode -1) +(set-frame-font "IBM Plex Mono 14" nil t) + (load-file "~/.emacs.d/markup.el") + (global-set-key (kbd "M-x") 'smex) + + + (setq-default major-mode 'text-mode) + +(defadvice smex (around space-inserts-hyphen activate compile) + +(let ((ido-cannot-complete-command +`(lambda () +(interactive) +(if (string= " " (this-command-keys)) +(insert ?-) +(funcall ,ido-cannot-complete-command))))) +ad-do-it)) + +(show-paren-mode 1) + (setq show-paren-style 'mixed) + + (setq startup/gc-cons-threshold gc-cons-threshold) + (setq gc-cons-threshold most-positive-fixnum) + (defun startup/reset-gc () (setq gc-cons-threshold startup/gc-cons-threshold)) + (add-hook 'emacs-startup-hook 'startup/reset-gc) + +(defun open-pdf() + (interactive) + (setq file (buffer-substring (mark) (point))) + (shell-command (concat "zathura " file "&") + )) + ;; Borders + (set-face-attribute 'fringe nil + :foreground (face-foreground 'default) + :background (face-background 'default)) + +(add-hook 'org-mode-hook 'org-bullets-mode) +(setq org-hide-emphasis-markers t) + +(use-package linum-relative +:ensure t +:init +(setq-default display-line-numbers-type 'relative +display-line-numbers-current-relative t +display-line-numbers-width 1 +display-line-numbers-widen t) + +(add-hook 'text-mode-hook #'display-line-numbers-mode) +(add-hook 'prog-mode-hook #'display-line-numbers-mode) +(column-number-mode 1)) + +(use-package flycheck +:ensure t +:init +(add-hook 'after-init-hook #'global-flycheck-mode)) + +(use-package zerodark-theme +:ensure t +:config +(load-theme 'zerodark t)) + +(setq erc-nick name) + +(with-eval-after-load 'tex + (setq TeX-source-correlate-method 'synctex) + (TeX-source-correlate-mode) + (setq TeX-source-correlate-start-server t) + + (add-to-list 'TeX-view-program-selection + '(output-pdf "Zathura"))) + +(setq shell "/bin/bash") + (defadvice ansi-term (before force-bsah) +(interactive (list shell))) +(ad-activate 'ansi-term) + +(use-package ido-vertical-mode + :ensure t + :init +(setq ido-enable-flex-matching nil) +(setq ido-create-new-buffer 'always) +(setq ido-everywhere t) +(ido-mode 1) +(ido-vertical-mode 1) +(setq ido-vertical-define-keys 'C-n-and-C-p-only) +(global-set-key (kbd "C-x C-b") 'ido-switch-buffer)) + +(use-package dashboard +:ensure t +:init +(dashboard-setup-startup-hook) +(setq dashboard-items '((recents . 5) +(bookmarks . 5))) +(setq dashboard-startup-banner 'logo) +(setq dashboard-banner-logo-title "Welcome to Editor MACroS") + +(setq dashboard-set-heading-icons t) +(setq dashboard-set-file-icons t)) + +(use-package powerline +:ensure t +:init +(powerline-default-theme) + + (set-face-background 'mode-line + "#080c0d") + (set-face-foreground 'mode-line + "#cad5d8")) diff --git a/config.org b/config.org new file mode 100644 index 0000000..2dc2722 --- /dev/null +++ b/config.org @@ -0,0 +1,262 @@ +#+AUTHOR: qorg11 +#+TITLE: emacs config +#+OPTIONS: toc:nil + +* qorg's Emacs config + + This is my Emacs configuration. Hope you like it. + +** Installation + + Just copy this repository to your .emacs.d. Nothing else is needed. + +** Why? + * I can + * I don't like doom emacs + * I don't like spacemacs + * I don't want to learn doom emacs + * I don't want to learn spacemacs + +** About me + Here I set variables about personal information i'll use later in + this config. + #+BEGIN_SRC emacs-lisp + (setq name "qorg11") + (setq email "qorg@vxempire.xyz") + #+END_SRC +* melpa crap + melpa, where you get the packages. This also installs use-package + #+BEGIN_SRC emacs-lisp +(require 'package) +(let* ((no-ssl (and (memq system-type '(windows-nt ms-dos)) + (not (gnutls-available-p)))) + (proto (if no-ssl "http" "https"))) + ;; Comment/uncomment these two lines to enable/disable MELPA and MELPA Stable as desired + (add-to-list 'package-archives (cons "melpa" (concat proto "://melpa.org/packages/")) t) + ;;(add-to-list 'package-archives (cons "melpa-stable" (concat proto "://stable.melpa.org/packages/")) t) + (when (< emacs-major-version 24) + ;; For important compatibility libraries like cl-lib + (add-to-list 'package-archives '("gnu" . (concat proto "://elpa.gnu.org/packages/"))))) +(package-initialize) +(unless (package-installed-p 'use-package) + (package-refresh-contents) + (package-install 'use-package)) + + #+END_SRC + +* Autoindentation + C-c n for indent-buffer. I don't use the rest. + #+BEGIN_SRC emacs-lisp + +(defun untabify-buffer () + (interactive) + (untabify (point-min) (point-max))) + +(defun indent-buffer () + (interactive) + (indent-region (point-min) (point-max))) + +(defun cleanup-buffer () + "Perform a bunch of operations on the whitespace content of a buffer. +Including indent-buffer, which should not be called automatically on save." + (interactive) + (untabify-buffer) + (delete-trailing-whitespace) + (indent-buffer)) + #+END_SRC + +* Shorcuts + + #+BEGIN_SRC emacs-lisp +(global-set-key (kbd "C-c n") 'cleanup-buffer) +(global-set-key (kbd "M-m") 'mark-whole-buffer) + #+END_SRC + +* No idea + #+BEGIN_SRC emacs-lisp + (setq package-enable-at-startup nil) (package-initialize) + + (setq make-backup-files nil) ; stop creating backup~ files + (setq auto-save-default nil) ; stop creating #autosave# files + (put 'upcase-region 'disabled nil) + + + (defun contextual-menubar (&optional frame) + "Display the menubar in FRAME (default: selected frame) if on a + graphical display, but hide it if in terminal." + (interactive) + (set-frame-parameter frame 'menu-bar-lines + (if (display-graphic-p frame) + 1 0))) + + (add-hook 'after-make-frame-functions 'contextual-menubar) + (add-hook 'sgml-mode-hook 'zencoding-mode) + (setq-default dired-details-hidden-string "---- ") + + ;; (icomplete-mode 1) Deprecated, used ido-mode instead + #+END_SRC + +* customization + Emacs customization, Here is where most of the configuration is. +** Disable bars font and pandoc export options. + Basic customization. I also use smex instead of default M-x. I + don't like heml + #+BEGIN_SRC emacs-lisp + (scroll-bar-mode -1) + (tool-bar-mode -1) + (menu-bar-mode -1) + (set-frame-font "IBM Plex Mono 14" nil t) + (load-file "~/.emacs.d/markup.el") + (global-set-key (kbd "M-x") 'smex) + + + (setq-default major-mode 'text-mode) + #+END_SRC +*** Space to - (Like normal M-x) + #+BEGIN_SRC emacs-lisp + + (defadvice smex (around space-inserts-hyphen activate compile) + + (let ((ido-cannot-complete-command + `(lambda () + (interactive) + (if (string= " " (this-command-keys)) + (insert ?-) + (funcall ,ido-cannot-complete-command))))) + ad-do-it)) + #+END_SRC + +** Highlight matching parentheses + #+BEGIN_SRC emacs-lisp + (show-paren-mode 1) + (setq show-paren-style 'mixed) + + (setq startup/gc-cons-threshold gc-cons-threshold) + (setq gc-cons-threshold most-positive-fixnum) + (defun startup/reset-gc () (setq gc-cons-threshold startup/gc-cons-threshold)) + (add-hook 'emacs-startup-hook 'startup/reset-gc) + #+END_SRC +** Open pdf using zathura + I don't know how necessary this is. But I use it when working with + pandoc and that kind of crap. + #+BEGIN_SRC emacs-lisp +(defun open-pdf() + (interactive) + (setq file (buffer-substring (mark) (point))) + (shell-command (concat "zathura " file "&") + )) + ;; Borders + (set-face-attribute 'fringe nil + :foreground (face-foreground 'default) + :background (face-background 'default)) + #+END_SRC +** org-mode + #+BEGIN_SRC emacs-lisp + (add-hook 'org-mode-hook 'org-bullets-mode) + (setq org-hide-emphasis-markers t) + #+END_SRC + +** Relative lines + #+BEGIN_SRC emacs-lisp + (use-package linum-relative + :ensure t + :init + (setq-default display-line-numbers-type 'relative + display-line-numbers-current-relative t + display-line-numbers-width 1 + display-line-numbers-widen t) + + (add-hook 'text-mode-hook #'display-line-numbers-mode) + (add-hook 'prog-mode-hook #'display-line-numbers-mode) + (column-number-mode 1)) + #+END_SRC +** Flycheck + Flycheck is a syntax validator or somehting like that + #+BEGIN_SRC emacs-lisp + (use-package flycheck + :ensure t + :init + (add-hook 'after-init-hook #'global-flycheck-mode)) + #+END_SRC +** theme + #+BEGIN_SRC emacs-lisp + (use-package zerodark-theme + :ensure t + :config + (load-theme 'zerodark t)) + #+END_SRC + +** erc + Emacs Irc Client, better than irssi and weechat. + #+BEGIN_SRC emacs-lisp + (setq erc-nick name) + #+END_SRC +** AucTeX + This basically opens zathura when compiling with auctex (C-c C-a) + #+BEGIN_SRC emacs-lisp +(with-eval-after-load 'tex + (setq TeX-source-correlate-method 'synctex) + (TeX-source-correlate-mode) + (setq TeX-source-correlate-start-server t) + + (add-to-list 'TeX-view-program-selection + '(output-pdf "Zathura"))) + #+END_SRC +** Shell + #+BEGIN_SRC emacs-lisp + (setq shell "/bin/bash") + (defadvice ansi-term (before force-bsah) + (interactive (list shell))) + (ad-activate 'ansi-term) + + #+END_SRC +* ido + Ido is a replacement for keybindings such as C-x C-f and C-x b. Here + I rebinded C-x C-b to ido-switch-buffer because I always press C-x + C-b instead of C-x b + #+BEGIN_SRC emacs-lisp + (use-package ido-vertical-mode + :ensure t + :init + (setq ido-enable-flex-matching nil) + (setq ido-create-new-buffer 'always) + (setq ido-everywhere t) + (ido-mode 1) + (ido-vertical-mode 1) + (setq ido-vertical-define-keys 'C-n-and-C-p-only) + (global-set-key (kbd "C-x C-b") 'ido-switch-buffer)) + + + #+END_SRC + +* Dashboard + Dashboard. You can change + ~/.emacs.d/elpa/dashboard-20200306.1344/banners/logo.png to use your + own logo instead of Lain. + #+BEGIN_SRC emacs-lisp + (use-package dashboard + :ensure t + :init + (dashboard-setup-startup-hook) + (setq dashboard-items '((recents . 5) + (bookmarks . 5))) + (setq dashboard-startup-banner 'logo) + (setq dashboard-banner-logo-title "Welcome to Editor MACroS") + + (setq dashboard-set-heading-icons t) + (setq dashboard-set-file-icons t)) + #+END_SRC +* Powerline + Powerline, because emacs default bar sucks + #+BEGIN_SRC emacs-lisp + +(use-package powerline +:ensure t +:init +(powerline-default-theme) + + (set-face-background 'mode-line + "#080c0d") + (set-face-foreground 'mode-line + "#cad5d8")) + #+END_SRC diff --git a/init.el b/init.el new file mode 100644 index 0000000..464ab6c --- /dev/null +++ b/init.el @@ -0,0 +1,18 @@ +(org-babel-load-file "~/.emacs.d/config.org") +(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 + ("bffa9739ce0752a37d9b1eee78fc00ba159748f50dc328af4be661484848e476" "18cd5a0173772cdaee5522b79c444acbc85f9a06055ec54bb91491173bc90aaa" default))) + '(package-selected-packages + (quote + (spacemacs-theme use-package minsk-theme auctex htmlize plan9-theme zencoding-mode wdl-mode visual-fill-column twittering-mode tramp-term tracking tetris ssh srv smiles-mode smex slime seti-theme scheme-complete s rust-mode restclient projectile plsense pdf-tools org-bullets nav-flash mutt-mode multiple-cursors markdown-mode magit ivy-youtube haskell-mode flycheck evil emms diredfl dired-details dashboard cyberpunk-theme button-lock all-the-icons)))) +(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. + ) diff --git a/markup.el b/markup.el new file mode 100644 index 0000000..dc16c24 --- /dev/null +++ b/markup.el @@ -0,0 +1,47 @@ + +(defun groff-compile() + (interactive) + (setq filename (buffer-file-name (current-buffer))) + + (setq command (concat "groff -ms " filename " -Tpdf >" filename ".pdf")) + (shell-command command) + + ) + +(defun groff-compile-to-ps() + (interactive) + (setq filename (buffer-file-name (current-buffer))) + + (setq command (concat "groff -ms " filename "> " filename ".ps")) + (shell-command command) + + ) + +(defun pandoc-compile-to-pdf() + (interactive) + (setq filename (buffer-file-name (current-buffer))) + + (setq command (concat "pandoc " filename " -o " filename ".pdf")) + (shell-command command) + + ) + + +(defun pandoc-compile-to-html() + (interactive) + (setq filename (buffer-file-name (current-buffer))) + + (setq command (concat "pandoc " filename " -o " filename ".html")) + (shell-command command) + + ) + +(defun pandoc-beamer-compile() + (interactive) + (setq filename (buffer-file-name (current-buffer))) + + (setq command (concat "pandoc " filename " -t beamer -o " filename ".pdf")) + (shell-command command) + + ) + diff --git a/recentf b/recentf new file mode 100644 index 0000000..d8bfa9f --- /dev/null +++ b/recentf @@ -0,0 +1,10 @@ +;;; Automatically generated by ‘recentf’ on Sun Jun 7 12:27:19 2020. + +(setq recentf-list 'nil) + +(setq recentf-filter-changer-current 'nil) + + +;; Local Variables: +;; coding: utf-8-emacs +;; End: