~clean up config

This commit is contained in:
dx
2020-06-11 20:51:51 +01:00
parent 93326421fe
commit f7d134af3b
3 changed files with 3 additions and 9 deletions

View File

@@ -13,7 +13,7 @@
(ocaml +lsp)
(rss +elfeed)
(narrow)
(completion)
;;(completion)
:input
;;chinese

View File

@@ -99,9 +99,6 @@ Set the dashboard functions (segments in overall buffer), set the sections of th
:icon (all-the-icons-octicon "calendar" :face 'font-lock-keyword-face)
:when (fboundp 'org-agenda)
:action org-agenda)
("Check the weather"
:icon (all-the-icons-wicon "rain" :face 'font-lock-keyword-face)
:action dx:weather)
("Jump to bookmark"
:icon (all-the-icons-octicon "bookmark" :face 'font-lock-keyword-face)
:action bookmark-jump)))
@@ -545,10 +542,7 @@ General keymap
Remapping functions that other modules set to default functions.
#+BEGIN_SRC elisp
(define-key!
[remap compile] #'compile
[remap find-file] #'find-file
[remap describe-function] #'describe-function
[remap describe-variable] #'describe-variable)
[remap compile] #'compile)
#+END_SRC
** Other
*** Leader

View File

@@ -79,7 +79,7 @@ Shamelessly copied from rosetta code.
#+BEGIN_SRC elisp
(defun dx:org/count-sub (str pat)
(loop with z = 0 with s = 0 while s do
(when (setf s (search pat str :start2 s))
(when (setf s (cl-search pat str :start2 s))
(incf z) (incf s (length pat)))
finally (return z)))
#+END_SRC