3 Commits

Author SHA1 Message Date
  10sr 4a61097cc2 Add 3 weeks ago
  10sr d8c602af59 Update 3 weeks ago
  10sr b8a557ff7a Overwrite bookmark when loading 4 months ago
1 changed files with 15 additions and 1 deletions
Split View
  1. +15
    -1
      emacs.el

+ 15
- 1
emacs.el View File

@@ -630,6 +630,16 @@ THEM are function and its args."
(setq-default fill-column 80)
;; (add-hook 'text-mode-hook 'turn-on-auto-fill)


;; kill ring
(defun my-kill-ring-save-buffer-file-name ()
"Save current buffer file name to kill ring."
(interactive)
(let* ((str (or buffer-file-name
default-directory))
(str (expand-file-name str)))
(kill-new str)))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; title and mode-line

@@ -1420,7 +1430,7 @@ THEM are function and its args."
"Function for `bookmark-set-internal'.

ORIG-FUNC is the target function, and ARGS is the argument when it is called."
(bookmark-load bookmark-default-file)
(bookmark-load bookmark-default-file t)
(apply orig-func args)
(bookmark-save nil bookmark-default-file))

@@ -2007,6 +2017,10 @@ ORIG-FUNC is the target function, and ARGS is the argument when it is called."
(with-eval-after-load 'yaml-mode
(defvar yaml-mode-map (make-sparse-keymap))
(define-key yaml-mode-map (kbd "C-m") 'newline))
(when (fboundp 'yaml-mode)
(add-to-list 'auto-mode-alist
'("\\.yaml\\.gotmpl\\'" . yaml-mode)))


(with-eval-after-load 'html-mode
(defvar html-mode-map (make-sparse-keymap))


Loading…
Cancel
Save