first commit

1 files changed, 70 insertions, 0 deletions

diff --git a/.emacs.d/init/ycp-package.el b/.emacs.d/init/ycp-package.el
new file mode 100644
index 0000000..bdf24f7
--- /dev/null
+++ b/.emacs.d/init/ycp-package.el
@@ -0,0 +1,70 @@
+;;; ycp-package.el -- My configs for package -*- lexical-binding: t -*-
+
+;; Copyright (C) 2023 Free Software Foundation.
+
+;; Author: Yuchen Pei <id@ypei.org>
+;; Package-Requires: ((emacs "28.2"))
+
+;; This file is part of dotfiles.
+
+;; dotfiles is free software: you can redistribute it and/or modify it under
+;; the terms of the GNU Affero General Public License as published by
+;; the Free Software Foundation, either version 3 of the License, or
+;; (at your option) any later version.
+
+;; dotfiles 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 Affero General
+;; Public License for more details.
+
+;; You should have received a copy of the GNU Affero General Public
+;; License along with dotfiles.  If not, see <https://www.gnu.org/licenses/>.
+
+;;; Commentary:
+
+;; My configs for package. This should be the second require in the
+;; init file after my-package.
+
+;;; Code:
+
+
+
+;; TODO: The use of `my-allowed-package' may necessitate some refactoring to
+;; hide configs under an (my-package dummy)
+(cond
+ ((equal my-profile "emms")
+  (setq my-allowed-packages '(package windmove emms my-emms)))
+ ((equal my-profile "erc")
+  (setq my-allowed-packages '(package windmove icomplete modus-themes erc)))
+ (t
+  (setq my-omit-packages
+        '(typescript-mode tide web-mode flycheck ggtags crystal-mode
+                          proof-general sml-mode emms my-emms erc))))
+
+(my-read-local-config)
+;; only start server on default profile
+(unless my-profile (server-start))
+
+;;; packages; customization
+(my-package package
+  (setq package-archives
+        '(("gnu" . "https://elpa.gnu.org/packages/")
+          ("elpa-devel" . "https://elpa.gnu.org/devel/")
+          ("nongnu" . "https://elpa.nongnu.org/nongnu/")))
+  (setq package-archive-priorities
+        '(("gnu" . 3)
+          ("nongnu" . 2)
+          ("elpa-deval" . 1)))
+  (setq package-pinned-packages
+        '((hcel . "elpa-devel")
+          (luwak . "elpa-devel")))
+  (add-hook 'package-menu-mode-hook #'hl-line-mode)
+)
+
+(my-package cus-edit
+  (my-keybind global-map
+    "C-c u u" #'customize
+    "C-c u g" #'customize-group
+    "C-c u o" #'customize-option))
+
+(provide 'ycp-package)