|
@@ -1367,6 +1367,8 @@ THEM are function and its args." |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
;; bookmarks |
|
|
;; bookmarks |
|
|
|
|
|
;; C-x B: Add bookmark |
|
|
|
|
|
;; C-x b: List bookmarks |
|
|
|
|
|
|
|
|
(set-variable 'bookmark-default-file |
|
|
(set-variable 'bookmark-default-file |
|
|
(expand-file-name (concat user-emacs-directory |
|
|
(expand-file-name (concat user-emacs-directory |
|
@@ -1404,12 +1406,14 @@ THEM are function and its args." |
|
|
ORIG-FUNC is the target function, and ARGS is the argument when it is called." |
|
|
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) |
|
|
(apply orig-func args) |
|
|
(apply orig-func args) |
|
|
(bookmark-save)) |
|
|
|
|
|
|
|
|
(bookmark-save nil bookmark-default-file)) |
|
|
|
|
|
|
|
|
(with-eval-after-load 'bookmark |
|
|
(with-eval-after-load 'bookmark |
|
|
(advice-add 'bookmark-set-internal |
|
|
(advice-add 'bookmark-set-internal |
|
|
:around |
|
|
:around |
|
|
'my-bookmark-set--advice)) |
|
|
|
|
|
|
|
|
'my-bookmark-set--advice) |
|
|
|
|
|
(unless (file-readable-p bookmark-default-file) |
|
|
|
|
|
(bookmark-save nil bookmark-default-file))) |
|
|
(define-key ctl-x-map "b" 'list-bookmarks) |
|
|
(define-key ctl-x-map "b" 'list-bookmarks) |
|
|
(when (fboundp 'counsel-bookmark) |
|
|
(when (fboundp 'counsel-bookmark) |
|
|
(define-key ctl-x-map "b" 'counsel-bookmark)) |
|
|
(define-key ctl-x-map "b" 'counsel-bookmark)) |
|
@@ -1837,9 +1841,11 @@ ORIG-FUNC is the target function, and ARGS is the argument when it is called." |
|
|
'(setq reb-re-syntax 'foreign-regexp) |
|
|
'(setq reb-re-syntax 'foreign-regexp) |
|
|
)) |
|
|
)) |
|
|
|
|
|
|
|
|
(with-eval-after-load 'sql |
|
|
|
|
|
(require 'sql-indent nil t)) |
|
|
|
|
|
(set-variable 'sqlind-basic-offset 4) |
|
|
|
|
|
|
|
|
;; sqlind does not support create role so disable it... |
|
|
|
|
|
(set-variable 'sql-use-indent-support nil) |
|
|
|
|
|
;; (with-eval-after-load 'sql |
|
|
|
|
|
;; (require 'sql-indent nil t)) |
|
|
|
|
|
;; (set-variable 'sqlind-basic-offset 4) |
|
|
(add-to-list 'auto-mode-alist |
|
|
(add-to-list 'auto-mode-alist |
|
|
'("\\.hql\\'" . sql-mode)) |
|
|
'("\\.hql\\'" . sql-mode)) |
|
|
(set-variable 'sql-product 'postgres) |
|
|
(set-variable 'sql-product 'postgres) |
|
|