aboutsummaryrefslogtreecommitdiff
path: root/emacs
diff options
context:
space:
mode:
Diffstat (limited to 'emacs')
-rw-r--r--emacs/.emacs.d/init/ycp-complete.el6
-rw-r--r--emacs/.emacs.d/init/ycp-org.el31
-rw-r--r--emacs/.emacs.d/lisp/my/my-magit.el5
3 files changed, 37 insertions, 5 deletions
diff --git a/emacs/.emacs.d/init/ycp-complete.el b/emacs/.emacs.d/init/ycp-complete.el
index e59bbfd..8e27f8e 100644
--- a/emacs/.emacs.d/init/ycp-complete.el
+++ b/emacs/.emacs.d/init/ycp-complete.el
@@ -143,11 +143,15 @@
(define-key corfu-map [remap previous-line] nil)
(define-key corfu-map [remap beginning-of-buffer] nil)
(define-key corfu-map [remap end-of-buffer] nil)
+ (define-key corfu-map [remap move-beginning-of-line] nil)
+ (define-key corfu-map [remap move-end-of-line] nil)
(my-keybind corfu-map
"C-j" #'corfu-insert
"<RET>" nil
"C-s" #'corfu-next
- "C-r" #'corfu-previous)
+ "C-r" #'corfu-previous
+ "C-a" nil
+ )
(require 'my-corfu)
(add-hook 'minibuffer-setup-hook
#'my-corfu-enable-always-in-minibuffer 1)
diff --git a/emacs/.emacs.d/init/ycp-org.el b/emacs/.emacs.d/init/ycp-org.el
index edf2dca..513f719 100644
--- a/emacs/.emacs.d/init/ycp-org.el
+++ b/emacs/.emacs.d/init/ycp-org.el
@@ -1,8 +1,35 @@
-;; -*- lexical-binding: t; -*-
+;;; ycp-org.el -- My config for org -*- 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 dotted.
+
+;; dotted 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.
+
+;; dotted 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 dotted. If not, see <https://www.gnu.org/licenses/>.
+
+;;; Commentary:
+
+;; My config for org.
+
+;;; Code:
+
+
;;; the glorious org mode
(my-package org
- (require 'my-org)
(my-keybind global-map
"M-u" #'org-store-link
"C-c a" #'org-agenda
diff --git a/emacs/.emacs.d/lisp/my/my-magit.el b/emacs/.emacs.d/lisp/my/my-magit.el
index cf6749b..c6fc0f6 100644
--- a/emacs/.emacs.d/lisp/my/my-magit.el
+++ b/emacs/.emacs.d/lisp/my/my-magit.el
@@ -32,9 +32,10 @@
(require 'my-project)
(require 'org)
-(defun magit-clone-org-source (arg)
+(defun my-magit-clone-org-source (arg)
(interactive "P")
- (let* ((url (org-entry-get (point) "Source"))
+ (let* ((url (or (org-entry-get (point) "Source")
+ (org-entry-get (point) "Website")))
(default-base-dir
(alist-get "3p" my-projects-root-dirs nil nil 'string=))
(default-name