From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: from mp0 ([2001:41d0:2:4a6f::]) (using TLSv1.3 with cipher TLS_AES_256_GCM_SHA384 (256/256 bits)) by ms0.migadu.com with LMTPS id 0OWYH//EImFA8QAAgWs5BA (envelope-from ) for ; Sun, 22 Aug 2021 23:43:27 +0200 Received: from aspmx1.migadu.com ([2001:41d0:2:4a6f::]) (using TLSv1.3 with cipher TLS_AES_256_GCM_SHA384 (256/256 bits)) by mp0 with LMTPS id ONRBG//EImGVTwAA1q6Kng (envelope-from ) for ; Sun, 22 Aug 2021 21:43:27 +0000 Received: from lists.gnu.org (lists.gnu.org [209.51.188.17]) (using TLSv1.2 with cipher ECDHE-RSA-AES256-GCM-SHA384 (256/256 bits)) (No client certificate requested) by aspmx1.migadu.com (Postfix) with ESMTPS id 749291EC39 for ; Sun, 22 Aug 2021 23:43:26 +0200 (CEST) Received: from localhost ([::1]:48342 helo=lists1p.gnu.org) by lists.gnu.org with esmtp (Exim 4.90_1) (envelope-from ) id 1mHvFU-0006ZO-QN for larch@yhetil.org; Sun, 22 Aug 2021 17:43:24 -0400 Received: from eggs.gnu.org ([2001:470:142:3::10]:53926) by lists.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.90_1) (envelope-from ) id 1mHvFK-0006Yv-Lr for help-guix@gnu.org; Sun, 22 Aug 2021 17:43:14 -0400 Received: from sender4-of-o51.zoho.com ([136.143.188.51]:21199) by eggs.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.90_1) (envelope-from ) id 1mHvFH-000565-NR for help-guix@gnu.org; Sun, 22 Aug 2021 17:43:14 -0400 ARC-Seal: i=1; a=rsa-sha256; t=1629668586; cv=none; d=zohomail.com; s=zohoarc; b=mSwkNdHTjjL73v4pyqYXjNNEWw6f/8iHcTu6HlLbQvz8YLkzP8Ztg0DsGe7yM5+uFfST+jR1v4c1vwtSQruxcxZuuyrXx57l2fa69syhNIyiN7BmT+sOs1m9U7+FukpHsERWPSwzY6e20iMNKsZhVyWIAIxk3DB8B+SqEFHCQ28= ARC-Message-Signature: i=1; a=rsa-sha256; c=relaxed/relaxed; d=zohomail.com; s=zohoarc; t=1629668586; h=Content-Type:Content-Transfer-Encoding:Date:From:MIME-Version:Message-ID:Subject:To; bh=YcrEYt/r4ZUZ4rUNxScryLpo26Xfdv8/G6EoHxVO/rA=; b=UAhmGthLsIIiFaoLECczzgUtqENoFHJQ6bN5pSWya/gNvKW4FbygN/qBM+Tjtla2ClapHnyWckHqw3FVu0lFrn4gR3tMDqgZOjhYfL7UfpQqB7RMAPKwSenQi9aLLkNfbB9cYXBmJqmYuw3g5qw9kXeha1L+xgEaqJVvQvjF6Bs= ARC-Authentication-Results: i=1; mx.zohomail.com; dkim=pass header.i=a-rx.info; spf=pass smtp.mailfrom=rx@a-rx.info; dmarc=pass header.from= DKIM-Signature: v=1; a=rsa-sha256; q=dns/txt; c=relaxed/relaxed; t=1629668586; s=zoho; d=a-rx.info; i=rx@a-rx.info; h=From:To:Subject:Date:Message-ID:MIME-Version:Content-Type:Content-Transfer-Encoding; bh=YcrEYt/r4ZUZ4rUNxScryLpo26Xfdv8/G6EoHxVO/rA=; b=iefZ4TAkFCgVKZ8C2jkWoiPAA2nsK+6IUaWaYOC/u77icTswlwxHhF3Keq4Ixyzu Gx8tSn4OcpITW4jYSOv0Mk3UO4wrIFcYZFBmbyFS6gQw20PP0+ni2RpaKmhUa7PVbqT Xz6OE/cUP0LCt1XH9JtHwJ9GJL53gt51vCTxTeHQ= Received: from softland (host5-81-182-246.range5-81.btcentralplus.com [5.81.182.246]) by mx.zohomail.com with SMTPS id 1629668584553751.3438935283431; Sun, 22 Aug 2021 14:43:04 -0700 (PDT) Received: from rx by softland with local (Exim 4.94.2) (envelope-from ) id 1mHvF7-0029mo-Le for help-guix@gnu.org; Sun, 22 Aug 2021 22:43:01 +0100 From: Andreas Reuleaux To: help-guix Users Subject: emacs + straight.el Date: Sun, 22 Aug 2021 22:43:01 +0100 Message-ID: <87k0kd5f6i.fsf@softland> User-Agent: Gnus/5.13 (Gnus v5.13) Emacs/27.1 (gnu/linux) MIME-Version: 1.0 Content-Type: text/plain Content-Transfer-Encoding: quoted-printable X-ZohoMailClient: External Received-SPF: pass client-ip=136.143.188.51; envelope-from=rx@a-rx.info; helo=sender4-of-o51.zoho.com X-Spam_score_int: -20 X-Spam_score: -2.1 X-Spam_bar: -- X-Spam_report: (-2.1 / 5.0 requ) BAYES_00=-1.9, DKIM_SIGNED=0.1, DKIM_VALID=-0.1, DKIM_VALID_AU=-0.1, DKIM_VALID_EF=-0.1, RCVD_IN_DNSWL_NONE=-0.0001, RCVD_IN_MSPIKE_H2=-0.001, SPF_HELO_NONE=0.001, SPF_PASS=-0.001 autolearn=ham autolearn_force=no X-Spam_action: no action X-BeenThere: help-guix@gnu.org X-Mailman-Version: 2.1.23 Precedence: list List-Id: List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: help-guix-bounces+larch=yhetil.org@gnu.org Sender: "Help-Guix" X-Migadu-Flow: FLOW_IN ARC-Message-Signature: i=2; a=rsa-sha256; c=relaxed/relaxed; d=yhetil.org; s=key1; t=1629668606; h=from:from:sender:sender:reply-to:subject:subject:date:date: message-id:message-id:to:to:cc:mime-version:mime-version: content-type:content-type: content-transfer-encoding:content-transfer-encoding:list-id:list-help: list-unsubscribe:list-subscribe:list-post:dkim-signature; bh=YcrEYt/r4ZUZ4rUNxScryLpo26Xfdv8/G6EoHxVO/rA=; b=YvOx5giufbMDHn7k5VOKNDIKImGPW9q/gb0CVxHf7QGdMWU1Z2xzSCiHFeUYEi0qnINynx lyR9FZ2SaUcaiudfDeRL4Ty3K5ec86R7NSpFV79yOHfVKYlEg6yOCeSxbsD0GjrQooqXVR 4f9VHVq0zcaiIwAv+S0zOJ2Ba+SLzKWsfGxZKNTTrE7V3dHCjmb2RXpwhNp0ArKyaLDEwt YFe8pLe6SNQDgbolPhlvZR8KIwAq9sV1OzsP/CmKKyHlndYZbQanDNItgzrbrWpVoPAfQB sfkG/b+h3jxjuHAc65Ri1hix4c/bKfbOXZ30hipzBI7sU0t8X5roCfBht1AzgA== ARC-Seal: i=2; s=key1; d=yhetil.org; t=1629668606; a=rsa-sha256; cv=pass; b=FLMzvLnmcAlCrhQ43CHIzq538tuu/lz0/K1J+ewhulgd8dIlDDoL4aaGQmV+1j0vyJMmMA F4lelsDhd3+ULuQwRoajg3ZtQgbZWZa8qH5sp28Bj7pQUdt45JEx7vuaMHZ+lLEstsrfBn JghjqKunEMlT0WbkYVFb8pHjroRvAsStFQQ5mdhn+hbq+KGN1GvRYn75S14HBMzX4Af5Qy u83aAUQBD+xC/nWO3934+N4C/RleJn9TIx3YKpblDdihwA3xSUmvdwi+kgKErRmivP+kMn QDqYo/Kpwa/Akid0yqbeUlRwkU7LzISdsjdcmu01gZQQtEV4j9AzQczfX+CKDg== ARC-Authentication-Results: i=2; aspmx1.migadu.com; dkim=pass header.d=a-rx.info header.s=zoho header.b=iefZ4TAk; arc=pass ("zohomail.com:s=zohoarc:i=1"); dmarc=none; spf=pass (aspmx1.migadu.com: domain of help-guix-bounces@gnu.org designates 209.51.188.17 as permitted sender) smtp.mailfrom=help-guix-bounces@gnu.org X-Migadu-Spam-Score: -0.63 Authentication-Results: aspmx1.migadu.com; dkim=pass header.d=a-rx.info header.s=zoho header.b=iefZ4TAk; arc=pass ("zohomail.com:s=zohoarc:i=1"); dmarc=none; spf=pass (aspmx1.migadu.com: domain of help-guix-bounces@gnu.org designates 209.51.188.17 as permitted sender) smtp.mailfrom=help-guix-bounces@gnu.org X-Migadu-Queue-Id: 749291EC39 X-Spam-Score: -0.63 X-Migadu-Scanner: scn0.migadu.com X-TUID: GlP8/dWBjaxP OK, next question - I am progressing at least :-) My emacs configuration is in terms of straight.el: https://github.com/raxod502/straight.el this works by placing the following stanza in my ~/.emacs.d/init.el (as explained on the straight.el website): -------------------- (defvar bootstrap-version) (let ((bootstrap-file (expand-file-name "straight/repos/straight.el/bootstrap.el" user-ema= cs-directory)) (bootstrap-version 5)) (unless (file-exists-p bootstrap-file) (with-current-buffer (url-retrieve-synchronously "https://raw.githubusercontent.com/raxod502/straight.el/develop/in= stall.el" 'silent 'inhibit-cookies) (goto-char (point-max)) (eval-print-last-sexp))) (load bootstrap-file nil 'nomessage)) -------------------- or similar: running my script myrun.el from the command line, which install= some packages: leaf, flycheck... as well. -------------------- :;exec /usr/bin/env emacs -batch -Q -l "$0" -f main "$@" (require 'cl-lib) (defun main () (interactive) (cl-destructuring-bind (&optional fst snd) command-line-args-left =20=20=20 =20=20=20=20 (progn =20=20=20=20=20 (message (concat "cmd line default dir: " command-line-default-directo= ry)) (message (concat "usr emacs dir: " user-emacs-directory)) (message (concat "run w/ [user emacs dir] straight: " user-emacs= -directory "straight")) =20=20=20=20 =09=09=20=20=20=20=20=20 (defvar bootstrap-version) (let ((bootstrap-file (expand-file-name "straight/repos/straight.el/bootstrap.el" user-emacs= -directory)) (bootstrap-version 5)) (unless (file-exists-p bootstrap-file) (with-current-buffer (url-retrieve-synchronously "https://raw.githubusercontent.com/raxod502/straight.el/develop/inst= all.el" 'silent 'inhibit-cookies) (goto-char (point-max)) (eval-print-last-sexp))) (load bootstrap-file nil 'nomessage)) =20=20=20=20=20 (straight-use-package 'leaf) (straight-use-package 'flycheck) (straight-use-package 'flycheck-haskell) =20=20=20=20=20 =20=20=20=20=20 ) ) ) ---------- In either case: these work fine for me under debian, but under guix I get some nasty error message: Failed to run git... I *do* have git installed with guix package -i git and it lives in rx@dell ~$ type git git is /run/current-system/profile/bin/git Has anyone been successful with this? Is there a way to specify the git executable in straight.el - should I ask on the straight.el issue tracker instead? Thanks in advance. -A rx@dell ~/st$ ./myrun.el cmd line default dir: ~/st/ usr emacs dir: ~/.emacs.d/ require pkgs from [cmd line default dir]: ~/st/pkgs.el run w/ [user emacs dir] straight: ~/.emacs.d/straight Bootstrapping straight.el... Debugger entered--Lisp error: (error "straight.el bootstrap failed: Failed = to run \"git\";...") signal(error ("straight.el bootstrap failed: Failed to run \"git\";...")) error("straight.el bootstrap failed: %s" "Failed to run \"git\"; see buff= er *straight-process*...") (if (=3D 0 (call-process (let ((emacs-binary-path (expand-file-name invoc= ation-name invocation-directory)) (runemacs-binary-path (if (straight--wind= ows-os-p) (progn ...)))) (if (and runemacs-binary-path (file-exists-p runem= acs-binary-path)) runemacs-binary-path emacs-binary-path)) nil '(t t) nil "= --batch" "--no-window-system" "--quick" "--load" temp-file)) nil (error "st= raight.el bootstrap failed: %s" (buffer-string))) (progn (if (=3D 0 (call-process (let ((emacs-binary-path (expand-file-nam= e invocation-name invocation-directory)) (runemacs-binary-path (if ... ...)= )) (if (and runemacs-binary-path (file-exists-p runemacs-binary-path)) rune= macs-binary-path emacs-binary-path)) nil '(t t) nil "--batch" "--no-window-= system" "--quick" "--load" temp-file)) nil (error "straight.el bootstrap fa= iled: %s" (buffer-string)))) (unwind-protect (progn (if (=3D 0 (call-process (let ((emacs-binary-path = ...) (runemacs-binary-path ...)) (if (and runemacs-binary-path ...) runemac= s-binary-path emacs-binary-path)) nil '(t t) nil "--batch" "--no-window-sys= tem" "--quick" "--load" temp-file)) nil (error "straight.el bootstrap faile= d: %s" (buffer-string)))) (and (buffer-name temp-buffer) (kill-buffer temp-= buffer))) (save-current-buffer (set-buffer temp-buffer) (unwind-protect (progn (if = (=3D 0 (call-process (let (... ...) (if ... runemacs-binary-path emacs-bina= ry-path)) nil '(t t) nil "--batch" "--no-window-system" "--quick" "--load" = temp-file)) nil (error "straight.el bootstrap failed: %s" (buffer-string)))= ) (and (buffer-name temp-buffer) (kill-buffer temp-buffer)))) (let ((temp-buffer (generate-new-buffer " *temp*"))) (save-current-buffer= (set-buffer temp-buffer) (unwind-protect (progn (if (=3D 0 (call-process (= let ... ...) nil '... nil "--batch" "--no-window-system" "--quick" "--load"= temp-file)) nil (error "straight.el bootstrap failed: %s" (buffer-string))= )) (and (buffer-name temp-buffer) (kill-buffer temp-buffer))))) (let ((temp-file (make-temp-file "straight.el~"))) (write-region nil nil = temp-file nil 'silent) (let ((temp-buffer (generate-new-buffer " *temp*")))= (save-current-buffer (set-buffer temp-buffer) (unwind-protect (progn (if (= =3D 0 (call-process ... nil ... nil "--batch" "--no-window-system" "--quick= " "--load" temp-file)) nil (error "straight.el bootstrap failed: %s" (buffe= r-string)))) (and (buffer-name temp-buffer) (kill-buffer temp-buffer)))))) (save-current-buffer (set-buffer (url-retrieve-synchronously (format (con= cat "https://raw.githubusercontent.com/" "raxod502/straight.el/install/%s/s= traight.el") (substring (symbol-name version) 1)) 'silent 'inhibit-cookies)= ) (if (equal url-http-response-status 200) nil (error "Unknown recipe versi= on: %S" version)) (delete-region (point-min) url-http-end-of-headers) (goto= -char (point-min)) (princ ";; -*- coding: utf-8 -*-" (current-buffer)) (pri= nt (cons 'progn (let* ((vars nil) (regexps '("bootstrap-version" "straight-= [a-z-]+" "user-emacs-directory")) (regexp (format "^\\(%s\\)$" (mapconcat .= .. regexps "\\|")))) (mapatoms #'(lambda (sym) (if ... ...))) (mapcar #'(la= mbda (var) (list ... var ...)) vars))) (current-buffer)) (goto-char (point-= max)) (print '(progn (straight-use-package-no-build `(straight :type git :h= ost github :repo ,... :branch ,...)) (unless (and (boundp 'bootstrap-versio= n) (integerp bootstrap-version) (>=3D bootstrap-version 3)) (let* ((recipe = ...) (local-repo ...) (link-target ...) (link-name ...)) (ignore-errors (de= lete-file link-name)) (if (bound-and-true-p straight-use-symlinks) (if ... = ... ...) (with-temp-file link-name ...))))) (current-buffer)) (let ((temp-f= ile (make-temp-file "straight.el~"))) (write-region nil nil temp-file nil '= silent) (let ((temp-buffer (generate-new-buffer " *temp*"))) (save-current-= buffer (set-buffer temp-buffer) (unwind-protect (progn (if (=3D 0 ...) nil = (error "straight.el bootstrap failed: %s" ...))) (and (buffer-name temp-buf= fer) (kill-buffer temp-buffer))))))) (let ((version nil) (straight-profiles (if (boundp 'straight-profiles) st= raight-profiles '((nil . "default.el")))) (straight-install-dir (or (and (b= oundp 'straight-base-dir) straight-base-dir) user-emacs-directory)) (print-= length nil) (print-level nil)) (let ((--dolist-tail-- (mapcar #'cdr straigh= t-profiles)) lockfile-name) (while --dolist-tail-- (setq lockfile-name (car= --dolist-tail--)) (let ((lockfile-path (concat straight-install-dir "strai= ght/versions/" lockfile-name))) (if (file-exists-p lockfile-path) (progn (c= ondition-case nil (let ... ...) (end-of-file ...))))) (setq --dolist-tail--= (cdr --dolist-tail--)))) (if version nil (setq version :beta)) (save-curre= nt-buffer (set-buffer (url-retrieve-synchronously (format (concat "https://= raw.githubusercontent.com/" "raxod502/straight.el/install/%s/straight.el") = (substring (symbol-name version) 1)) 'silent 'inhibit-cookies)) (if (equal = url-http-response-status 200) nil (error "Unknown recipe version: %S" versi= on)) (delete-region (point-min) url-http-end-of-headers) (goto-char (point-= min)) (princ ";; -*- coding: utf-8 -*-" (current-buffer)) (print (cons 'pro= gn (let* ((vars nil) (regexps '...) (regexp (format "^\\(%s\\)$" ...))) (ma= patoms #'(lambda ... ...)) (mapcar #'(lambda ... ...) vars))) (current-buff= er)) (goto-char (point-max)) (print '(progn (straight-use-package-no-build = `(straight :type git :host github :repo ... :branch ...)) (unless (and (bou= ndp ...) (integerp bootstrap-version) (>=3D bootstrap-version 3)) (let* (..= . ... ... ...) (ignore-errors ...) (if ... ... ...)))) (current-buffer)) (l= et ((temp-file (make-temp-file "straight.el~"))) (write-region nil nil temp= -file nil 'silent) (let ((temp-buffer (generate-new-buffer " *temp*"))) (sa= ve-current-buffer (set-buffer temp-buffer) (unwind-protect (progn (if ... n= il ...)) (and (buffer-name temp-buffer) (kill-buffer temp-buffer)))))))) (progn (message "Bootstrapping straight.el...") (let ((min-version "25.1"= )) (if (version< emacs-version min-version) (progn (error (concat "straight= .el requires at least Emacs %s, " "but you are running Emacs %s") min-versi= on emacs-version)))) (if (boundp 'straight-repository-branch) (progn (if (s= tringp straight-repository-branch) nil (error "The `straight-repository-bra= nch' must be a string ..." straight-repository-branch)))) (if (executable-f= ind "git") nil (user-error "Git executable not found. straight.el requires = git")) (require 'cl-lib) (require 'url-http) (defvar url-http-end-of-header= s) (defvar url-http-response-status) (defalias 'straight--windows-os-p #'(l= ambda nil "Check if the current operating system is Windows." (memq system-= type '(ms-dos windows-nt)))) (let ((version nil) (straight-profiles (if (bo= undp 'straight-profiles) straight-profiles '((nil . "default.el")))) (strai= ght-install-dir (or (and (boundp 'straight-base-dir) straight-base-dir) use= r-emacs-directory)) (print-length nil) (print-level nil)) (let ((--dolist-t= ail-- (mapcar #'cdr straight-profiles)) lockfile-name) (while --dolist-tail= -- (setq lockfile-name (car --dolist-tail--)) (let ((lockfile-path (concat = straight-install-dir "straight/versions/" lockfile-name))) (if (file-exists= -p lockfile-path) (progn (condition-case nil ... ...)))) (setq --dolist-tai= l-- (cdr --dolist-tail--)))) (if version nil (setq version :beta)) (save-cu= rrent-buffer (set-buffer (url-retrieve-synchronously (format (concat "https= ://raw.githubusercontent.com/" "raxod502/straight.el/install/%s/straight.el= ") (substring (symbol-name version) 1)) 'silent 'inhibit-cookies)) (if (equ= al url-http-response-status 200) nil (error "Unknown recipe version: %S" ve= rsion)) (delete-region (point-min) url-http-end-of-headers) (goto-char (poi= nt-min)) (princ ";; -*- coding: utf-8 -*-" (current-buffer)) (print (cons '= progn (let* ((vars nil) (regexps ...) (regexp ...)) (mapatoms #'...) (mapca= r #'... vars))) (current-buffer)) (goto-char (point-max)) (print '(progn (s= traight-use-package-no-build `...) (unless (and ... ... ...) (let* ... ... = ...))) (current-buffer)) (let ((temp-file (make-temp-file "straight.el~")))= (write-region nil nil temp-file nil 'silent) (let ((temp-buffer (generate-= new-buffer " *temp*"))) (save-current-buffer (set-buffer temp-buffer) (unwi= nd-protect (progn ...) (and ... ...))))))) (message "Bootstrapping straight= .el...done")) eval((progn (message "Bootstrapping straight.el...") (let ((min-version "= 25.1")) (if (version< emacs-version min-version) (progn (error (concat "str= aight.el requires at least Emacs %s, " "but you are running Emacs %s") min-= version emacs-version)))) (if (boundp 'straight-repository-branch) (progn (= if (stringp straight-repository-branch) nil (error "The `straight-repositor= y-branch' must be a string ..." straight-repository-branch)))) (if (executa= ble-find "git") nil (user-error "Git executable not found. straight.el requ= ires git")) (require 'cl-lib) (require 'url-http) (defvar url-http-end-of-h= eaders) (defvar url-http-response-status) (defalias 'straight--windows-os-p= #'(lambda nil "Check if the current operating system is Windows." (memq sy= stem-type '(ms-dos windows-nt)))) (let ((version nil) (straight-profiles (i= f (boundp 'straight-profiles) straight-profiles '(...))) (straight-install-= dir (or (and (boundp ...) straight-base-dir) user-emacs-directory)) (print-= length nil) (print-level nil)) (let ((--dolist-tail-- (mapcar #'cdr straigh= t-profiles)) lockfile-name) (while --dolist-tail-- (setq lockfile-name (car= --dolist-tail--)) (let ((lockfile-path ...)) (if (file-exists-p lockfile-p= ath) (progn ...))) (setq --dolist-tail-- (cdr --dolist-tail--)))) (if versi= on nil (setq version :beta)) (save-current-buffer (set-buffer (url-retrieve= -synchronously (format (concat "https://raw.githubusercontent.com/" "raxod5= 02/straight.el/install/%s/straight.el") (substring ... 1)) 'silent 'inhibit= -cookies)) (if (equal url-http-response-status 200) nil (error "Unknown rec= ipe version: %S" version)) (delete-region (point-min) url-http-end-of-heade= rs) (goto-char (point-min)) (princ ";; -*- coding: utf-8 -*-" (current-buff= er)) (print (cons 'progn (let* (... ... ...) (mapatoms ...) (mapcar ... var= s))) (current-buffer)) (goto-char (point-max)) (print '(progn (straight-use= -package-no-build ...) (unless ... ...)) (current-buffer)) (let ((temp-file= (make-temp-file "straight.el~"))) (write-region nil nil temp-file nil 'sil= ent) (let ((temp-buffer ...)) (save-current-buffer (set-buffer temp-buffer)= (unwind-protect ... ...)))))) (message "Bootstrapping straight.el...done")= ) nil) elisp--eval-last-sexp(t) eval-last-sexp(t) eval-print-last-sexp() (save-current-buffer (set-buffer (url-retrieve-synchronously "https://raw= .githubusercontent.com/raxod502/straigh..." 'silent 'inhibit-cookies)) (got= o-char (point-max)) (eval-print-last-sexp)) (if (file-exists-p bootstrap-file) nil (save-current-buffer (set-buffer (= url-retrieve-synchronously "https://raw.githubusercontent.com/raxod502/stra= igh..." 'silent 'inhibit-cookies)) (goto-char (point-max)) (eval-print-last= -sexp))) (let ((bootstrap-file (expand-file-name "straight/repos/straight.el/boots= trap.el" user-emacs-directory)) (bootstrap-version 5)) (if (file-exists-p b= ootstrap-file) nil (save-current-buffer (set-buffer (url-retrieve-synchrono= usly "https://raw.githubusercontent.com/raxod502/straigh..." 'silent 'inhib= it-cookies)) (goto-char (point-max)) (eval-print-last-sexp))) (load bootstr= ap-file nil 'nomessage)) (progn (message (concat "cmd line default dir: " command-line-default-dir= ectory)) (message (concat "usr emacs dir: " user-emacs-directory)) (message= (concat "require pkgs from [cmd line default dir]: " command-line-default-= directory "pkgs.el")) (message (concat "run w/ [user emacs dir] straight: "= user-emacs-directory "straight")) (defvar bootstrap-version) (let ((bootst= rap-file (expand-file-name "straight/repos/straight.el/bootstrap.el" user-e= macs-directory)) (bootstrap-version 5)) (if (file-exists-p bootstrap-file) = nil (save-current-buffer (set-buffer (url-retrieve-synchronously "https://r= aw.githubusercontent.com/raxod502/straigh..." 'silent 'inhibit-cookies)) (g= oto-char (point-max)) (eval-print-last-sexp))) (load bootstrap-file nil 'no= message)) (straight-use-package 'leaf) (straight-use-package 'flycheck) (st= raight-use-package 'flycheck-haskell)) (progn (if --cl-rest-- (signal 'wrong-number-of-arguments (list '(&option= al fst snd) (+ 2 (length --cl-rest--))))) (progn (message (concat "cmd line= default dir: " command-line-default-directory)) (message (concat "usr emac= s dir: " user-emacs-directory)) (message (concat "require pkgs from [cmd li= ne default dir]: " command-line-default-directory "pkgs.el")) (message (con= cat "run w/ [user emacs dir] straight: " user-emacs-directory "straight")) = (defvar bootstrap-version) (let ((bootstrap-file (expand-file-name "straigh= t/repos/straight.el/bootstrap.el" user-emacs-directory)) (bootstrap-version= 5)) (if (file-exists-p bootstrap-file) nil (save-current-buffer (set-buffe= r (url-retrieve-synchronously "https://raw.githubusercontent.com/raxod502/s= traigh..." 'silent 'inhibit-cookies)) (goto-char (point-max)) (eval-print-l= ast-sexp))) (load bootstrap-file nil 'nomessage)) (straight-use-package 'le= af) (straight-use-package 'flycheck) (straight-use-package 'flycheck-haskel= l))) (let* ((--cl-rest-- command-line-args-left) (fst (car-safe (prog1 --cl-re= st-- (setq --cl-rest-- (cdr --cl-rest--))))) (snd (car-safe (prog1 --cl-res= t-- (setq --cl-rest-- (cdr --cl-rest--)))))) (progn (if --cl-rest-- (signal= 'wrong-number-of-arguments (list '(&optional fst snd) (+ 2 (length --cl-re= st--))))) (progn (message (concat "cmd line default dir: " command-line-def= ault-directory)) (message (concat "usr emacs dir: " user-emacs-directory)) = (message (concat "require pkgs from [cmd line default dir]: " command-line-= default-directory "pkgs.el")) (message (concat "run w/ [user emacs dir] str= aight: " user-emacs-directory "straight")) (defvar bootstrap-version) (let = ((bootstrap-file (expand-file-name "straight/repos/straight.el/bootstrap.el= " user-emacs-directory)) (bootstrap-version 5)) (if (file-exists-p bootstra= p-file) nil (save-current-buffer (set-buffer (url-retrieve-synchronously "h= ttps://raw.githubusercontent.com/raxod502/straigh..." ... ...)) (goto-char = (point-max)) (eval-print-last-sexp))) (load bootstrap-file nil 'nomessage))= (straight-use-package 'leaf) (straight-use-package 'flycheck) (straight-us= e-package 'flycheck-haskell)))) main() funcall-interactively(main) call-interactively(main nil nil) command-execute(main) command-line-1(("-l" "./myrun.el" "-f" "main")) command-line() normal-top-level()