Something went wrong. Try again.
Monorepo for Aesthetic.Computer aesthetic.computer
Something went wrong. Try again.
123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778;; Safe Aesthetic Computer Emacs Configuration for debugging
;; Performance settings(setq native-comp-async-report-warnings-errors nil native-comp-deferred-compilation nil x-gtk-use-system-tooltips nil mac-option-modifier 'meta warning-minimum-level :emergency)
;; Basic UI settings(setq inhibit-startup-screen t eshell-banner-message "" initial-scratch-message nil)(global-display-line-numbers-mode)(menu-bar-mode -1)(tool-bar-mode -1)
;; Tab bar(tab-bar-mode t)(setq tab-bar-new-tab-choice "*scratch*" tab-bar-hints t tab-bar-format '(tab-bar-format-tabs tab-bar-separator) tab-bar-close-button-show nil)
;; Basic editor behavior(setq-default indent-tabs-mode nil tab-width 2 truncate-lines t)
(global-set-key (kbd "M-z") 'toggle-truncate-lines)
;; Package management - minimal setup(setq package-enable-at-startup nil)
;; Minimal straight.el bootstrap (with shorter timeout)(defvar bootstrap-version)(let ((bootstrap-file (expand-file-name "straight/repos/straight.el/bootstrap.el" (or (bound-and-true-p straight-base-dir) user-emacs-directory))) (bootstrap-version 7)) (unless (file-exists-p bootstrap-file) (condition-case err (with-timeout (10 (error "Bootstrap download timed out")) (with-current-buffer (url-retrieve-synchronously "https://raw.githubusercontent.com/radian-software/straight.el/develop/install.el" 'silent 'inhibit-cookies) (goto-char (point-max)) (eval-print-last-sexp))) (error (message "Failed to bootstrap straight.el: %s" err)))) (when (file-exists-p bootstrap-file) (load bootstrap-file nil 'nomessage)))
(setq straight-use-package-by-default t straight-vc-git-default-clone-depth 1)
;; Essential packages only(use-package fish-mode)
;; Safe aesthetic function that doesn't auto-start everything(defun aesthetic-backend-safe (target-tab) "Safe version that only creates tabs without auto-starting processes" (interactive) (message "Use 'M-x aesthetic-backend-start' to manually start all services") (tab-rename "code"))
;; Function to manually start services when ready(defun aesthetic-backend-start () "Manually start all aesthetic computer services" (interactive) (when (y-or-n-p "Start all AC services? This will spawn many processes: ") (load-file "/workspaces/aesthetic-computer/dotfiles/dot_config/emacs.el") (aesthetic-backend "code")))
(message "Safe emacs config loaded. Use 'M-x aesthetic-backend-start' to start services.")