From f7d134af3b36069ac267a5bc68ed41a1a140bbe2 Mon Sep 17 00:00:00 2001
From: dx <aryadevchavali1@gmail.com>
Date: Thu, 11 Jun 2020 20:51:51 +0100
Subject: ~clean up config

---
 Doom/.doom.d/init.el          | 2 +-
 Doom/.doom.d/org/config.org   | 8 +-------
 Doom/.doom.d/org/personal.org | 2 +-
 3 files changed, 3 insertions(+), 9 deletions(-)

(limited to 'Doom')

diff --git a/Doom/.doom.d/init.el b/Doom/.doom.d/init.el
index c8d5ff5..ea4c402 100644
--- a/Doom/.doom.d/init.el
+++ b/Doom/.doom.d/init.el
@@ -13,7 +13,7 @@
        (ocaml +lsp)
        (rss +elfeed)
        (narrow)
-       (completion)
+       ;;(completion)
 
        :input
        ;;chinese
diff --git a/Doom/.doom.d/org/config.org b/Doom/.doom.d/org/config.org
index 17da87f..a536af1 100644
--- a/Doom/.doom.d/org/config.org
+++ b/Doom/.doom.d/org/config.org
@@ -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
diff --git a/Doom/.doom.d/org/personal.org b/Doom/.doom.d/org/personal.org
index d8813cd..b07dd4e 100644
--- a/Doom/.doom.d/org/personal.org
+++ b/Doom/.doom.d/org/personal.org
@@ -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
-- 
cgit v1.2.3-13-gbd6f