Initial commit.

Author: aartaka

COPYING

@@ -0,0 +1,25 @@
+BSD 2-Clause License
+
+Copyright (c) 2020, Artyom Bologov <[email protected]>
+All rights reserved.
+
+Redistribution and use in source and binary forms, with or without
+modification, are permitted provided that the following conditions are met:
+
+1. Redistributions of source code must retain the above copyright notice, this
+   list of conditions and the following disclaimer.
+
+2. Redistributions in binary form must reproduce the above copyright notice,
+   this list of conditions and the following disclaimer in the documentation
+   and/or other materials provided with the distribution.
+
+THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
+AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
+IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE
+DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT HOLDER OR CONTRIBUTORS BE LIABLE
+FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
+DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR
+SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER
+CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY,
+OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE
+OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.

README.org

@@ -0,0 +1,19 @@
+#+TITLE:My Nyxt Configuration Files
+
+This is my repo with small tweaks to Nyxt that make it more
+comfortable and personal. Things of interest here:
+
+* Alternative format for status-buffer
+
+I don't like the default wordy version of status-buffer (especially
+with long mode names), so I define my own =short-format-status= to make
+modeline a bit more minimalistic. Several helper functions
+(=format-short-status-*=) are there to make things easier. 
+
+This can evolve into an extension someday.
+
+* Status-buffer tweaking for big screens
+
+Small change in =status-buffer= CSS to make it more readable on a big
+screen. It's commented for now, but I'll uncomment it once I fully
+migrate to a big-screen PC.

init.lisp

@@ -0,0 +1,115 @@
+(in-package #:nyxt-user)
+
+(load-after-system :slynk (nyxt-init-file "slynk.lisp"))
+
+(define-configuration browser
+  ((session-restore-prompt :always-ask)))
+
+(defun format-short-status-modes (&optional (buffer (current-buffer)))
+  (str:replace-using
+   '("-mode" ""
+     "base" ""
+     "emacs" "ξ" ; Xi looks like Emacs logo...
+     "force-https" "ϕ"
+     "auto" "α"
+     "blocker" "β"
+     "proxy" "π"
+     "reduce-tracking" "τ"
+     "certificate-exception" "χ"
+     "style" "σ"
+     "web" "ω"
+     "help" "?")
+   (format nil "~{~a~^ ~}"
+           (mapcar (alexandria:compose #'str:downcase #'mode-name)
+                   (modes buffer)))))
+
+(defun format-short-status-load-status (&optional (buffer (current-buffer)))
+  (when (web-buffer-p buffer)
+    (case (slot-value buffer 'nyxt::load-status)
+      (:unloaded "∅")
+      (:loading "∞")
+      (:finished ""))))
+
+(defun format-short-status-url (&optional (buffer (current-buffer)))
+  (markup:markup
+   (:a :class "button"
+       :href (lisp-url '(nyxt:set-url-from-current-url))
+       (str:concat
+        (format-short-status-load-status buffer)
+        (format nil " ~a — ~a"
+                (ppcre:regex-replace-all
+                 "(https://|www\\.|/$)"
+                 (object-display (url buffer))
+                 "")
+                (title buffer))))))
+
+(defun short-format-status (window)
+  (let ((buffer (current-buffer window)))
+    (markup:markup
+     (:div :id "container"
+           (:div :id "controls" (markup:raw ""))
+           (:div :class "arrow arrow-right"
+                 :style "background-color:rgb(80,80,80)" "")
+           (:div :id "url" (markup:raw (format-short-status-url buffer)))
+           (:div :class "arrow arrow-right"
+                 :style "background-color:rgb(120,120,120)" "")
+           (:div :id "tabs" (markup:raw (format-status-tabs)))
+           (:div :class "arrow arrow-left"
+                 :style "background-color:rgb(120,120,120)" "")
+           (:div :id "modes" (format-short-status-modes buffer))))))
+
+(define-configuration window
+  ((status-formatter #'short-format-status)
+   (message-buffer-style
+    (str:concat
+     %slot-default
+     (cl-css:css
+      '((body
+         :background-color "black"
+         :color "white")))))))
+
+;; ;; An experimental setting for transition to a bigger screen.
+;; (define-configuration status-buffer
+;;   ((height 30)
+;;    (style (str:concat %slot-default
+;;                       (cl-css:css
+;;                        '((body
+;;                           :font-size "20px"
+;;                           :line-height "30px")
+;;                          (".arrow"
+;;                           :height "30px")))))))
+
+(define-configuration minibuffer
+  ((style
+    (str:concat
+     %slot-default
+     (cl-css:css
+      '((body
+         :background-color "black"
+         :color "#808080")))))))
+
+(define-configuration buffer
+  ((default-modes `(emacs-mode ,@%slot-default))
+   (conservative-word-move t)
+   ;; QWERTY home row.
+   (hints-alphabet "DSJKHLFAGNMXCWEIO")))
+
+(define-configuration web-buffer
+  ((default-modes `(emacs-mode auto-mode blocker-mode force-https-mode
+                               ,@%slot-default))))
+
+(define-configuration internal-buffer
+  ((style
+    (str:concat
+     %slot-default
+     (cl-css:css
+      '((body
+         :background-color "black"
+         :color "lightgray")
+        (hr
+         :color "darkgray")
+        (.button
+         :color "#333333")))))))
+
+(define-configuration nyxt/auto-mode:auto-mode
+  ((nyxt/auto-mode:prompt-on-mode-toggle t)))

install.sh

@@ -0,0 +1,3 @@
+#!/bin/sh
+
+ln -sf . ~/.config/nyxt

slynk.lisp

@@ -0,0 +1,13 @@
+(define-command start-slynk (&optional (slynk-port *swank-port*))
+  "Start a Slynk server that can be connected to, for instance, in
+Emacs via SLY.
+Warning: This allows Next to be controlled remotely, that is, to
+execute arbitrary code with the privileges of the user running Next.
+Make sure you understand the security risks associated with this
+before running this command."
+  (slynk:create-server :port slynk-port :dont-close t)
+  (echo "Slynk server started at port ~a" slynk-port))
+
+;; Start slynk by default.
+(unless nyxt::*keep-alive*
+  (slynk:create-server :port 4006 :dont-close t))