Updated
This commit is contained in:
parent
7ca803a744
commit
3b2ab71e93
|
@ -1,140 +0,0 @@
|
|||
#+TITLE: GNU Emacs Config
|
||||
#+AUTHOR: zonsopkomst
|
||||
#+DESCRIPTION: Emacs config.
|
||||
#+STARTUP: showeverything
|
||||
#+OPTIONS: toc:2
|
||||
|
||||
* TABLE OF CONTENTS :toc:
|
||||
|
||||
* IMPORTANT PROGRAMS TO LOAD FIRST
|
||||
** Elpaca Package Manager
|
||||
|
||||
#+begin_src emacs-lisp
|
||||
;;; Source for Initial Section https://medium.com/@zac.wood9/a-beginners-emacs-config-44400bcf54a1
|
||||
;;; Package config -- see https://melpa.org/#/getting-started
|
||||
(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))
|
||||
|
||||
|
||||
|
||||
(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.
|
||||
'(package-selected-packages
|
||||
'(org-roam org-bullets company exec-path-from-shell use-package)))
|
||||
(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.
|
||||
)
|
||||
|
||||
(use-package exec-path-from-shell
|
||||
:if (memq window-system '(mac ns x))
|
||||
:ensure t
|
||||
:config
|
||||
(exec-path-from-shell-initialize))
|
||||
|
||||
(use-package company
|
||||
:ensure t
|
||||
:init
|
||||
(add-hook 'after-init-hook 'global-company-mode)
|
||||
:config
|
||||
(setq company-dabbrev-downcase 0)
|
||||
(setq company-idle-delay 0.1)
|
||||
(setq company-minimum-prefix-length 1)
|
||||
(setq company-tooltip-align-annotations t))
|
||||
|
||||
;; (use-package helm
|
||||
;; :ensure t
|
||||
;; :init
|
||||
;; (require 'helm-config)
|
||||
;; :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))
|
||||
|
||||
(use-package projectile
|
||||
:ensure t
|
||||
:config
|
||||
(projectile-mode))
|
||||
|
||||
(use-package helm-projectile
|
||||
:ensure t
|
||||
:config
|
||||
(helm-projectile-on))
|
||||
|
||||
(use-package magit
|
||||
:ensure t)
|
||||
|
||||
(use-package which-key
|
||||
:ensure t
|
||||
:config
|
||||
(which-key-mode))
|
||||
|
||||
(use-package prettier-js
|
||||
:ensure t
|
||||
:config
|
||||
(setq prettier-js-args '(
|
||||
"--trailing-comma" "es5"
|
||||
"--single-quote" "true"
|
||||
"--print-width" "120"
|
||||
"--tab-width" "4"
|
||||
"--use-tabs" "false"
|
||||
"--jsx-bracket-same-line" "false"
|
||||
"--stylelint-integration" "true"
|
||||
)))
|
||||
|
||||
(use-package smartparens
|
||||
:ensure t
|
||||
:init
|
||||
(smartparens-global-mode))
|
||||
|
||||
(use-package json-mode
|
||||
:ensure t)
|
||||
|
||||
(use-package doom-themes
|
||||
:ensure t
|
||||
:preface (defvar region-fg nil) ; this prevents a weird bug with doom themes
|
||||
:init (load-theme 'doom-one t))
|
||||
|
||||
;; set font JetBrains Mono 13 pt
|
||||
(set-face-attribute 'default nil
|
||||
:family "JetBrains Mono"
|
||||
:height 150)
|
||||
|
||||
(use-package org-bullets
|
||||
:ensure t)
|
||||
(add-hook 'org-mode-hook (lambda () (org-bullets-mode 1)))
|
||||
|
||||
;; always show line numbers
|
||||
(global-linum-mode 1)
|
||||
;; insert a space if running in text mode
|
||||
(if window-system
|
||||
(progn)
|
||||
(setq linum-format "%d "))
|
||||
|
||||
(setq column-number-mode t)
|
||||
|
||||
(eval-after-load "linum"
|
||||
'(set-face-attribute 'linum nil :height 90))
|
||||
|
||||
(use-package org-roam
|
||||
:ensure t)
|
||||
#+end_src emacs-lisp
|
1658
config/emacs/init.el
1658
config/emacs/init.el
File diff suppressed because it is too large
Load diff
|
@ -1,126 +0,0 @@
|
|||
;;; org-bullets.el --- Show bullets in org-mode as UTF-8 characters
|
||||
;;; Version: 0.2.4
|
||||
;;; Author: sabof
|
||||
;;; URL: https://github.com/sabof/org-bullets
|
||||
|
||||
;; This file is NOT part of GNU Emacs.
|
||||
;;
|
||||
;; This program is free software; you can redistribute it and/or
|
||||
;; modify it under the terms of the GNU General Public License as
|
||||
;; published by the Free Software Foundation; either version 3, or (at
|
||||
;; your option) any later version.
|
||||
;;
|
||||
;; This program is distributed in the hope that it will be useful, but
|
||||
;; WITHOUT ANY WARRANTY; without even the implied warranty of
|
||||
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
|
||||
;; General Public License for more details.
|
||||
;;
|
||||
;; You should have received a copy of the GNU General Public License
|
||||
;; along with this program ; see the file COPYING. If not, write to
|
||||
;; the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
|
||||
;; Boston, MA 02111-1307, USA.
|
||||
|
||||
;;; Commentary:
|
||||
|
||||
;; The project is hosted at https://github.com/sabof/org-bullets
|
||||
;; The latest version, and all the relevant information can be found there.
|
||||
|
||||
;;; Code:
|
||||
|
||||
(eval-when-compile (require 'cl))
|
||||
|
||||
(defgroup org-bullets nil
|
||||
"Display bullets as UTF-8 characters"
|
||||
:group 'org-appearance)
|
||||
|
||||
;; A nice collection of unicode bullets:
|
||||
;; http://nadeausoftware.com/articles/2007/11/latency_friendly_customized_bullets_using_unicode_characters
|
||||
(defcustom org-bullets-bullet-list
|
||||
'(;;; Large
|
||||
"◉"
|
||||
"○"
|
||||
"✸"
|
||||
"✿"
|
||||
;; ♥ ● ◇ ✚ ✜ ☯ ◆ ♠ ♣ ♦ ☢ ❀ ◆ ◖ ▶
|
||||
;;; Small
|
||||
;; ► • ★ ▸
|
||||
)
|
||||
"This variable contains the list of bullets.
|
||||
It can contain any number of symbols, which will be repeated."
|
||||
:group 'org-bullets
|
||||
:type '(repeat (string :tag "Bullet character")))
|
||||
|
||||
(defcustom org-bullets-face-name nil
|
||||
"This variable allows the org-mode bullets face to be
|
||||
overridden. If set to a name of a face, that face will be
|
||||
used. Otherwise the face of the heading level will be used."
|
||||
:group 'org-bullets
|
||||
:type 'symbol)
|
||||
|
||||
(defvar org-bullets-bullet-map
|
||||
'(keymap
|
||||
(mouse-1 . org-cycle)
|
||||
(mouse-2
|
||||
. (lambda (e)
|
||||
(interactive "e")
|
||||
(mouse-set-point e)
|
||||
(org-cycle))))
|
||||
"Mouse events for bullets.
|
||||
Should this be undesirable, one can remove them with
|
||||
|
||||
\(setcdr org-bullets-bullet-map nil\)")
|
||||
|
||||
(defun org-bullets-level-char (level)
|
||||
(string-to-char
|
||||
(nth (mod (1- level)
|
||||
(length org-bullets-bullet-list))
|
||||
org-bullets-bullet-list)))
|
||||
|
||||
;;;###autoload
|
||||
(define-minor-mode org-bullets-mode
|
||||
"UTF8 Bullets for org-mode"
|
||||
nil nil nil
|
||||
(let* (( keyword
|
||||
`(("^\\*+ "
|
||||
(0 (let* (( level (- (match-end 0) (match-beginning 0) 1))
|
||||
( is-inline-task
|
||||
(and (boundp 'org-inlinetask-min-level)
|
||||
(>= level org-inlinetask-min-level))))
|
||||
(compose-region (- (match-end 0) 2)
|
||||
(- (match-end 0) 1)
|
||||
(org-bullets-level-char level))
|
||||
(when is-inline-task
|
||||
(compose-region (- (match-end 0) 3)
|
||||
(- (match-end 0) 2)
|
||||
(org-bullets-level-char level)))
|
||||
(when (facep org-bullets-face-name)
|
||||
(put-text-property (- (match-end 0)
|
||||
(if is-inline-task 3 2))
|
||||
(- (match-end 0) 1)
|
||||
'face
|
||||
org-bullets-face-name))
|
||||
(put-text-property (match-beginning 0)
|
||||
(- (match-end 0) 2)
|
||||
'face (list :foreground
|
||||
(face-attribute
|
||||
'default :background)))
|
||||
(put-text-property (match-beginning 0)
|
||||
(match-end 0)
|
||||
'keymap
|
||||
org-bullets-bullet-map)
|
||||
nil))))))
|
||||
(if org-bullets-mode
|
||||
(progn
|
||||
(font-lock-add-keywords nil keyword)
|
||||
(font-lock-fontify-buffer))
|
||||
(save-excursion
|
||||
(goto-char (point-min))
|
||||
(font-lock-remove-keywords nil keyword)
|
||||
(while (re-search-forward "^\\*+ " nil t)
|
||||
(decompose-region (match-beginning 0) (match-end 0)))
|
||||
(font-lock-fontify-buffer))
|
||||
)))
|
||||
|
||||
(provide 'org-bullets)
|
||||
|
||||
;;; org-bullets.el ends here
|
Loading…
Reference in a new issue