Guest User

Untitled

a guest
Jul 4th, 2020
50
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Lisp 1.95 KB | None | 0 0
  1. (eval-and-compile
  2.   (defvar package-user-dir "~/.emacs.d/elpa")
  3.   (defvar package-archives '(("gnu"   . "https://elpa.gnu.org/packages/")
  4.                              ("melpa" . "https://stable.melpa.org/packages/")
  5.                              ("org"   . "https://orgmode.org/elpa/"))))
  6.  
  7. (require 'package)
  8. (package-initialize)
  9.  
  10. (defvar required-packages '(auto-complete
  11.                 nlinum
  12.                 slime
  13.                             smartparens
  14.                 sr-speedbar))
  15.  
  16. (defun packages-installed-p ()
  17.   (loop for package in required-packages
  18.         unless (package-installed-p package)
  19.           do (return nil)
  20.         finally (return t)))
  21.  
  22. (unless (packages-installed-p)
  23.   (package-refresh-contents)
  24.   (dolist (package required-packages)
  25.     (unless (package-installed-p package)
  26.       (package-install package))))
  27.  
  28. (custom-set-variables
  29.  ;; custom-set-variables was added by Custom.
  30.  ;; If you edit it by hand, you could mess it up, so be careful.
  31.  ;; Your init file should contain only one such instance.
  32.  ;; If there is more than one, they won't work right.
  33.  '(package-selected-packages
  34.    (quote
  35.     (use-package undo-tree sr-speedbar smartparens slime nlinum list-utils auto-complete))))
  36. (custom-set-faces
  37.  ;; custom-set-faces was added by Custom.
  38.  ;; If you edit it by hand, you could mess it up, so be careful.
  39.  ;; Your init file should contain only one such instance.
  40.  ;; If there is more than one, they won't work right.
  41.  )
  42.  
  43. (require 'sr-speedbar)
  44. (setq speedbar-show-unknown-files t)
  45. (setq sr-speedbar-right-side nil)
  46. (global-set-key (kbd "<f2>") 'sr-speedbar-toggle)
  47.  
  48. (require 'nlinum)
  49. (setq linum-format "\u2502%d")
  50. (global-linum-mode 1)
  51.  
  52. (setq show-paren-style 'expression)
  53. (show-paren-mode 1)
  54.  
  55. ;(require 'smartparens-config)
  56. ;(smartparens-global-mode)
  57.  
  58. (require 'ido)
  59. (ido-mode t)
  60. (setq ido-mode-flex-matching t)
  61.  
  62. (require 'auto-complete-config)
  63. (ac-config-default)
  64.  
  65. (require 'cl)
  66. (setq-default inferior-lisp-program "sbcl")
Advertisement
Add Comment
Please, Sign In to add comment