diff options
| author | Jesus E <heckyel@riseup.net> | 2023-05-12 23:08:14 -0400 |
|---|---|---|
| committer | Jesus E <heckyel@riseup.net> | 2023-05-12 23:08:14 -0400 |
| commit | df9488c7459effbbd35e08ae110aa44e624a64e1 (patch) | |
| tree | 967d4e4ded2dcb5fd229c6d6ef045c3793f227ba /lisp | |
| parent | 4177899f78cdbf3d8d2270b1ff06dc36ff66e50e (diff) | |
| download | emacs-base-df9488c7459effbbd35e08ae110aa44e624a64e1.tar.lz emacs-base-df9488c7459effbbd35e08ae110aa44e624a64e1.tar.xz emacs-base-df9488c7459effbbd35e08ae110aa44e624a64e1.zip | |
refactoring code
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/init-editing-utils.el | 1 | ||||
| -rw-r--r-- | lisp/init-elpa.el | 23 | ||||
| -rw-r--r-- | lisp/init-modeline.el | 1 | ||||
| -rw-r--r-- | lisp/init-php.el | 1 | ||||
| -rw-r--r-- | lisp/init-utils.el | 3 | ||||
| -rw-r--r-- | lisp/lib/myemacs.el | 18 |
6 files changed, 9 insertions, 38 deletions
diff --git a/lisp/init-editing-utils.el b/lisp/init-editing-utils.el index 5f65ef7..433ef69 100644 --- a/lisp/init-editing-utils.el +++ b/lisp/init-editing-utils.el @@ -32,5 +32,4 @@ (setq-default indent-tabs-mode nil) -(myemacs/elapsed-time) (provide 'init-editing-utils) diff --git a/lisp/init-elpa.el b/lisp/init-elpa.el index 5ba04d2..7fa39aa 100644 --- a/lisp/init-elpa.el +++ b/lisp/init-elpa.el @@ -12,23 +12,18 @@ ;; Repositories ;; ================ (setq package-archives - '(("melpa" . "https://melpa.org/packages/") - ;;("melpa-stable" . "https://stable.melpa.org/packages/") - ("gnu" . "https://elpa.gnu.org/packages/") - ("org" . "https://orgmode.org/elpa/"))) + '(("GNU ELPA" . "https://elpa.gnu.org/packages/") + ("MELPA Stable" . "https://stable.melpa.org/packages/") + ("ORG" . "https://orgmode.org/elpa/") + ("MELPA" . "https://melpa.org/packages/")) + package-archive-priorities + '(("MELPA Stable" . 10) + ("GNU ELPA" . 5) + ("ORG" . 3) + ("MELPA" . 0))) -(setq package-archive-priorities - '(("melpa" . 4) - ("melpa-stable" . 0) - ("gnu" . 1) - ("org" . 3))) ;; ================= -;; Refresh packages in Emacs -;; ========================== -(when (not package-archive-contents) - (package-refresh-contents)) - ;;; Find packages if not installed ;; ================================ ;;; On-demand installation of packages diff --git a/lisp/init-modeline.el b/lisp/init-modeline.el index b0db030..daf25b3 100644 --- a/lisp/init-modeline.el +++ b/lisp/init-modeline.el @@ -42,5 +42,4 @@ (global-set-key (kbd "M-%") 'anzu-query-replace) (global-set-key (kbd "s-<SPC>") 'anzu-query-replace) -(myemacs/elapsed-time) (provide 'init-modeline) diff --git a/lisp/init-php.el b/lisp/init-php.el index d4fa09b..a16dd00 100644 --- a/lisp/init-php.el +++ b/lisp/init-php.el @@ -60,5 +60,4 @@ (add-hook 'php-mode-hook 'my/php-mode-stuff) -(myemacs/elapsed-time) (provide 'init-php) diff --git a/lisp/init-utils.el b/lisp/init-utils.el index 64dadc6..0490986 100644 --- a/lisp/init-utils.el +++ b/lisp/init-utils.el @@ -18,7 +18,4 @@ '(eval-after-load ,feature '(progn ,@body)))) -;; Elapsed time -(myemacs/elapsed-time) - (provide 'init-utils) diff --git a/lisp/lib/myemacs.el b/lisp/lib/myemacs.el deleted file mode 100644 index 6846bdc..0000000 --- a/lisp/lib/myemacs.el +++ /dev/null @@ -1,18 +0,0 @@ -;;---------------------------------------------------------------------------- -;; Some cool functions -;;---------------------------------------------------------------------------- -;; These functions are made by me (Quitter: @heckyel) or -;; heavily modified by me - -;;---------------------------------------------------------------------------- -;; Toggles fullscreen -;;---------------------------------------------------------------------------- -(defun myemacs/toggle-fullscreen () - (interactive) - (x-send-client-message nil 0 nil "_NET_WM_STATE" 32 - '(2 "_NET_WM_STATE_FULLSCREEN" 0))) - -(defun myemacs/elapsed-time () - (let ((elapsed (float-time (time-subtract (current-time) - emacs-start-time)))) - (message "[STARTUP] Loading %s ... done (%.3fs)" load-file-name elapsed)))
\ No newline at end of file |