From 8a6e186b9596e963eb4652ba5d4c9d263240b94a Mon Sep 17 00:00:00 2001
From: colin <colin@cicadas.surf>
Date: Fri, 1 Dec 2023 20:23:51 -0800
Subject: dropped some stuff

---
 init-el.org | 69 +++++++++++++++++++++++++------------------------------------
 1 file changed, 28 insertions(+), 41 deletions(-)

diff --git a/init-el.org b/init-el.org
index 2e67c20..87efd81 100644
--- a/init-el.org
+++ b/init-el.org
@@ -261,30 +261,6 @@ I'm using melpa and elpa package archives.
   (insert "\n")
   (insert (format "#+begin_src %s :noweb no-export\n\n#+end_src" lang)))
 
-(defvar +cicadas-surf-task-status-file+ "/ssh:colin@cicadas.surf:~/.task")
-
-(defun clock-in-external-log-advice (&rest args)
-  "to be added as advice to org-clock-in"
-  (when +cicadas-surf-task-status-file+
-    (with-temp-buffer
-      (insert "👷 ")
-      (insert
-       (first
-        (split-string
-         (buffer-name (marker-buffer org-clock-marker))
-         "\\.")))
-      (insert " -- ")
-      (insert org-clock-heading)
-      (insert " 👷")
-      (write-file +cicadas-surf-task-status-file+))))
-
-(defun clock-out-external-log-advice (&rest args) 
-  (when +cicadas-surf-task-status-file+
-    (with-temp-buffer
-      (write-file +cicadas-surf-task-status-file+))))
-
-(advice-add 'org-clock-in :after #'clock-in-external-log-advice)
-(advice-add 'org-clock-out :after #'clock-out-external-log-advice)
 #+end_src
 
 #+RESULTS: org-mode-main-config
@@ -624,18 +600,18 @@ e.g. here's one for org capture
 #+name: modeline-config
 #+begin_src elisp :noweb no-export :results none
 
-(package-install 'diminish)
-(require 'diminish)
-(diminish 'company-mode)
-(diminish 'paredit-mode)
-(diminish 'projectile-mode)
-(diminish 'ivy-mode)
-(diminish 'org-src-mode)
-(diminish 'eldoc-mode)
-(diminish 'beacon-mode)
-(diminish 'visual-line-mode)
-(diminish 'org-auto-tangle-mode)
-(diminish 'abbrev-mode)
+;; (package-install 'diminish)
+;; (require 'diminish)
+;; ;(diminish 'company-mode)
+;; ;(diminish 'paredit-mode)
+;; ;(diminish 'projectile-mode)
+;; (diminish 'ivy-mode)
+;; (diminish 'org-src-mode)
+;; (diminish 'eldoc-mode)
+;; (diminish 'beacon-mode)
+;; (diminish 'visual-line-mode)
+;; (diminish 'org-auto-tangle-mode)
+;; (diminish 'abbrev-mode)
 
 (package-install 'feline)
 
@@ -1360,7 +1336,9 @@ code in emacs org blocks.
 #+name: company
 #+begin_src elisp :results none
 ;(package-install 'company)
-;(add-hook 'after-init-hook 'global-company-mode)
+
+                                        ;(add-hook 'after-init-hook 'global-company-mode)
+
 
 
 ;; (setq company-frontends
@@ -1414,6 +1392,7 @@ association one shell with each perspective layout
 
 
 
+
 #+end_src
 
 *** Starting SLIME with different Lisps
@@ -1509,20 +1488,28 @@ from debian contrib
 #+name: common-lisp-editing-config
 #+begin_src elisp :results none
 
-;; (slime-setup '(slime-fancy ;slime-company
-;;                slime-fuzzy slime-asdf
-;;                ))
+(slime-setup '(slime-fancy ; slime-company
+               slime-fuzzy ; slime-asdf
+               ))
 
 ;; (setq slime-company-completion 'fuzzy
 ;;       slime-company-after-completion 'slime-company-just-one-space)
 
+(package-install 'ac-slime)
+(require 'ac-slime)
+(add-hook 'slime-mode-hook 'set-up-slime-ac)
+(add-hook 'slime-repl-mode-hook 'set-up-slime-ac)
+(eval-after-load "auto-complete"
+  '(add-to-list 'ac-modes 'slime-repl-mode 'lisp-mode))
+
+
 (autoload 'enable-paredit-mode "paredit" "Turn on pseudo-structural editing of Lisp code." t)
 (add-hook 'emacs-lisp-mode-hook       #'enable-paredit-mode)
 (add-hook 'eval-expression-minibuffer-setup-hook #'enable-paredit-mode)
 (add-hook 'lisp-mode-hook             #'enable-paredit-mode)
 (add-hook 'lisp-interaction-mode-hook #'enable-paredit-mode)
 (add-hook 'scheme-mode-hook           #'enable-paredit-mode)
-(add-hook 'clojure-mode-hook          #'paredit-mode)
+
 
 
 (defun space-for-delimiter-after-$-p (delimiter endp)
-- 
cgit v1.2.3