cage/tinmop
1
0
Fork 0
mirror of https://codeberg.org/cage/tinmop/ synced 2025-02-09 07:18:39 +01:00
Code Issues

- shadowed 'split-lines' from croatoan.

Browse Source 
- fixed regex for opening some files with tinmop

(example: Open a gemini file with tinmop only if a local file or served trough gemini protocol.
This commit is contained in:
cage 2021-06-16 16:14:09 +02:00
parent e0e202ba32
commit c2f3f155aa
2 changed files with 142 additions and 117 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
etc/shared.conf
View File

@ -176,6 +176,6 @@ color-regexp = ":rendering" cyan
# if you want to open some kind of file with tinmop try the following # if you want to open some kind of file with tinmop try the following
# valid values are "tinmop" "me" "internal" # valid values are "tinmop" "me" "internal"
# ▼▼▼▼▼▼▼▼ # ▼▼▼▼▼▼▼▼
open "gmi$" with "tinmop" open "^((gemini://)|(\\.)|(/)).+gmi$" with "tinmop"
open "txt$" with "tinmop" open "^((gemini://)|(\\.)|(/)).+txt$" with "tinmop"
open ".sh$" with "tinmop" open "^((gemini://)|(\\.)|(/)).+sh$" with "tinmop"

253
src/package.lisp
View File

@ -39,7 +39,7 @@
(defpackage :constants (defpackage :constants
(:use :cl (:use :cl
:alexandria :alexandria
:config) :config)
(:export (:export
:+help-about-message+ :+help-about-message+
@ -64,7 +64,7 @@
(defpackage :conditions (defpackage :conditions
(:use :cl (:use :cl
:config) :config)
(:export (:export
:text-error :text-error
:text :text
@ -79,7 +79,7 @@
(defpackage :num-utils (defpackage :num-utils
(:use :cl (:use :cl
:constants) :constants)
(:nicknames :num) (:nicknames :num)
(:export (:export
:safe-parse-number :safe-parse-number
@ -116,7 +116,7 @@
(defpackage :misc-utils (defpackage :misc-utils
(:use :cl (:use :cl
:constants) :constants)
(:nicknames :misc) (:nicknames :misc)
(:export (:export
:when-debug :when-debug
@ -414,11 +414,11 @@
(defpackage :resources-utils (defpackage :resources-utils
(:use :cl (:use :cl
:cl-ppcre :cl-ppcre
:config :config
:constants :constants
:filesystem-utils :filesystem-utils
:text-utils) :text-utils)
(:nicknames :res) (:nicknames :res)
(:export (:export
:init :init
@ -433,9 +433,9 @@
(defpackage :crypto-utils (defpackage :crypto-utils
(:use :cl (:use :cl
:alexandria :alexandria
:cl-ppcre :cl-ppcre
:config :config
:constants) :constants)
(:export (:export
:crypto-text-p :crypto-text-p
@ -445,9 +445,9 @@
(defpackage :interfaces (defpackage :interfaces
(:use :cl (:use :cl
:alexandria :alexandria
:constants :constants
:misc) :misc)
(:shadowing-import-from :misc :random-elt :shuffle) (:shadowing-import-from :misc :random-elt :shuffle)
(:export (:export
:clone :clone
@ -703,56 +703,56 @@
:dump-certificate)) :dump-certificate))
(defpackage :db-utils (defpackage :db-utils
(:use (:use
:cl :cl
:alexandria :alexandria
:cl-ppcre :cl-ppcre
:sxql :sxql
:local-time :local-time
:config :config
:constants :constants
:text-utils) :text-utils)
(:export (:export
:+characters-trouble-name+ :+characters-trouble-name+
:*connection* :*connection*
:fetch :fetch
:fetch-all :fetch-all
:close-db :close-db
:connectedp :connectedp
:with-db-transaction :with-db-transaction
:db-path :db-path
:quote-symbol :quote-symbol
:init-connection :init-connection
:with-ready-database :with-ready-database
:with-disabled-foreign :with-disabled-foreign
:do-rows :do-rows
:prepare-for-sql-like :prepare-for-sql-like
:object-exists-in-db-p :object-exists-in-db-p
:object-count-in-db :object-count-in-db
:query-low-level :query-low-level
:db-nil-p :db-nil-p
:db-not-nil-p :db-not-nil-p
:db-getf :db-getf
:db-nil->lisp :db-nil->lisp
:if-db-nil-else :if-db-nil-else
:count-all :count-all
:query :query
:query->sql :query->sql
:local-time-obj-now :local-time-obj-now
:decode-date-string :decode-date-string
:decode-datetime-string :decode-datetime-string
:encode-datetime-string :encode-datetime-string
:encoded-datetime-year :encoded-datetime-year
:make-insert :make-insert
:make-delete :make-delete
:make-update :make-update
:get-max-id :get-max-id
:get-min-id :get-min-id
:decode-blob :decode-blob
:rows->tsv :rows->tsv
:table-exists-p :table-exists-p
:prepare-for-db :prepare-for-db
:last-inserted-rowid)) :last-inserted-rowid))
(defpackage :db (defpackage :db
(:use (:use
@ -1182,58 +1182,59 @@
:selected-foreground)) :selected-foreground))
(defpackage :tui-utils (defpackage :tui-utils
(:use (:use
:cl :cl
:alexandria :alexandria
:cl-ppcre :cl-ppcre
:local-time :local-time
:croatoan :croatoan
:config :config
:constants :constants
:interfaces :interfaces
:text-utils) :text-utils)
(:nicknames :tui) (:nicknames :tui)
(:import-from :misc-utils :defalias) (:import-from :misc-utils :defalias)
(:export (:shadowing-import-from :text-utils :split-lines)
:make-win-background (:export
:make-croatoan-window :make-win-background
:make-blocking-croatoan-window :make-croatoan-window
:make-screen :make-blocking-croatoan-window
:make-tui-char :make-screen
:make-tui-string :make-tui-char
:tui-format :make-tui-string
:decode-key-event :tui-format
:colorize-tree-element :decode-key-event
:colorize-tree-line :colorize-tree-element
:text-length :colorize-tree-line
:find-max-line-width :text-length
:ncat-complex-string :find-max-line-width
:to-tui-string :ncat-complex-string
:cat-complex-string :to-tui-string
:cat-tui-string :cat-complex-string
:tui-char->char :cat-tui-string
:tui-string->chars-string :tui-char->char
:tui-string-subseq :tui-string->chars-string
:text-ellipsis :tui-string-subseq
:right-pad-text :text-ellipsis
:text->tui-attribute :right-pad-text
:assemble-attributes :text->tui-attribute
:attribute-reverse :assemble-attributes
:attribute-bold :attribute-reverse
:attribute-underline :attribute-bold
:attribute-italic :attribute-underline
:attribute-blink :attribute-italic
:attribute-dim :attribute-blink
:attribute-invisible :attribute-dim
:combine-attributes :attribute-invisible
:colorize-line :combine-attributes
:colorized-line->tui-string :colorize-line
:apply-coloring :colorized-line->tui-string
:standard-error-notify-life :apply-coloring
:with-notify-errors :standard-error-notify-life
:with-print-error-message :with-notify-errors
:make-tui-char :with-print-error-message
:make-tui-string)) :make-tui-char
:make-tui-string))
(defpackage :command-line (defpackage :command-line
(:use (:use
@ -1600,6 +1601,7 @@
:tui-utils) :tui-utils)
(:shadowing-import-from :misc :random-elt :shuffle) (:shadowing-import-from :misc :random-elt :shuffle)
(:shadowing-import-from :stack :stack :stack-push :stack-pop :stack-empty-p) (:shadowing-import-from :stack :stack :stack-push :stack-pop :stack-empty-p)
(:shadowing-import-from :text-utils :split-lines)
(:export (:export
:key-config-holder :key-config-holder
:key-config :key-config
@ -1682,6 +1684,7 @@
:windows :windows
:tui-utils) :tui-utils)
(:shadowing-import-from :misc :random-elt :shuffle) (:shadowing-import-from :misc :random-elt :shuffle)
(:shadowing-import-from :text-utils :split-lines)
(:export (:export
:notify-window :notify-window
:pending :pending
@ -1703,6 +1706,7 @@
:windows :windows
:tui-utils) :tui-utils)
(:shadowing-import-from :misc :random-elt :shuffle) (:shadowing-import-from :misc :random-elt :shuffle)
(:shadowing-import-from :text-utils :split-lines)
(:export (:export
:suggestions-window :suggestions-window
:paginated-info :paginated-info
@ -1724,7 +1728,7 @@
:specials :specials
:windows :windows
:suggestions-window) :suggestions-window)
(:shadowing-import-from :text-utils :split-lines)
(:shadowing-import-from :misc :random-elt :shuffle) (:shadowing-import-from :misc :random-elt :shuffle)
(:export (:export
:complete-window :complete-window
@ -1746,6 +1750,7 @@
:windows :windows
:suggestions-window :suggestions-window
:tui-utils) :tui-utils)
(:shadowing-import-from :text-utils :split-lines)
(:shadowing-import-from :misc :random-elt :shuffle) (:shadowing-import-from :misc :random-elt :shuffle)
(:export (:export
:keybindings-window :keybindings-window
@ -1817,6 +1822,7 @@
:windows :windows
:modeline-window :modeline-window
:tui-utils) :tui-utils)
(:shadowing-import-from :text-utils :split-lines)
(:shadowing-import-from :misc :random-elt :shuffle) (:shadowing-import-from :misc :random-elt :shuffle)
(:import-from :keybindings-window :update-keybindings-tree) (:import-from :keybindings-window :update-keybindings-tree)
(:export (:export
@ -1886,6 +1892,7 @@
:db-utils :db-utils
:db) :db)
(:nicknames :msg-utils) (:nicknames :msg-utils)
(:shadowing-import-from :text-utils :split-lines)
(:shadowing-import-from :misc :random-elt :shuffle) (:shadowing-import-from :misc :random-elt :shuffle)
(:export (:export
:+temp-mention-prefix+ :+temp-mention-prefix+
@ -1920,6 +1927,7 @@
:line-oriented-window :line-oriented-window
:tui-utils :tui-utils
:message-rendering-utils) :message-rendering-utils)
(:shadowing-import-from :text-utils :split-lines)
(:shadowing-import-from :misc :random-elt :shuffle) (:shadowing-import-from :misc :random-elt :shuffle)
(:import-from :keybindings-window :update-keybindings-tree) (:import-from :keybindings-window :update-keybindings-tree)
(:export (:export
@ -1964,6 +1972,7 @@
:modeline-window :modeline-window
:line-oriented-window :line-oriented-window
:tui-utils) :tui-utils)
(:shadowing-import-from :text-utils :split-lines)
(:shadowing-import-from :misc :random-elt :shuffle) (:shadowing-import-from :misc :random-elt :shuffle)
(:export (:export
:message-window :message-window
@ -2022,6 +2031,7 @@
:windows :windows
:line-oriented-window :line-oriented-window
:tui-utils) :tui-utils)
(:shadowing-import-from :text-utils :split-lines)
(:shadowing-import-from :misc :random-elt :shuffle) (:shadowing-import-from :misc :random-elt :shuffle)
(:export (:export
:open-attach-window :open-attach-window
@ -2047,6 +2057,7 @@
:windows :windows
:line-oriented-window :line-oriented-window
:tui-utils) :tui-utils)
(:shadowing-import-from :text-utils :split-lines)
(:shadowing-import-from :misc :random-elt :shuffle) (:shadowing-import-from :misc :random-elt :shuffle)
(:export (:export
:open-message-link :open-message-link
@ -2072,6 +2083,7 @@
:windows :windows
:line-oriented-window :line-oriented-window
:tui-utils) :tui-utils)
(:shadowing-import-from :text-utils :split-lines)
(:shadowing-import-from :misc :random-elt :shuffle) (:shadowing-import-from :misc :random-elt :shuffle)
(:export (:export
:open-gemini-certificates-window)) :open-gemini-certificates-window))
@ -2092,6 +2104,7 @@
:windows :windows
:line-oriented-window :line-oriented-window
:tui-utils) :tui-utils)
(:shadowing-import-from :text-utils :split-lines)
(:shadowing-import-from :misc :random-elt :shuffle) (:shadowing-import-from :misc :random-elt :shuffle)
(:export (:export
:open-gemini-subscription-window)) :open-gemini-subscription-window))
@ -2112,6 +2125,7 @@
:windows :windows
:line-oriented-window :line-oriented-window
:tui-utils) :tui-utils)
(:shadowing-import-from :text-utils :split-lines)
(:shadowing-import-from :misc :random-elt :shuffle) (:shadowing-import-from :misc :random-elt :shuffle)
(:export (:export
:open-toc-window)) :open-toc-window))
@ -2132,6 +2146,7 @@
:windows :windows
:point-tracker :point-tracker
:tui-utils) :tui-utils)
(:shadowing-import-from :text-utils :split-lines)
(:shadowing-import-from :misc :random-elt :shuffle) (:shadowing-import-from :misc :random-elt :shuffle)
(:import-from :keybindings-window :update-keybindings-tree) (:import-from :keybindings-window :update-keybindings-tree)
(:export (:export
@ -2167,6 +2182,7 @@
:modeline-window :modeline-window
:line-oriented-window :line-oriented-window
:tui-utils) :tui-utils)
(:shadowing-import-from :text-utils :split-lines)
(:shadowing-import-from :misc :random-elt :shuffle) (:shadowing-import-from :misc :random-elt :shuffle)
(:export (:export
:message-ready-to-send :message-ready-to-send
@ -2196,6 +2212,7 @@
:windows :windows
:line-oriented-window :line-oriented-window
:tui-utils) :tui-utils)
(:shadowing-import-from :text-utils :split-lines)
(:shadowing-import-from :misc :random-elt :shuffle) (:shadowing-import-from :misc :random-elt :shuffle)
(:export (:export
:follow-requests-window :follow-requests-window
@ -2218,6 +2235,7 @@
:windows :windows
:line-oriented-window :line-oriented-window
:tui-utils) :tui-utils)
(:shadowing-import-from :text-utils :split-lines)
(:shadowing-import-from :misc :random-elt :shuffle) (:shadowing-import-from :misc :random-elt :shuffle)
(:export (:export
:tags-window :tags-window
@ -2240,6 +2258,7 @@
:windows :windows
:line-oriented-window :line-oriented-window
:tui-utils) :tui-utils)
(:shadowing-import-from :text-utils :split-lines)
(:shadowing-import-from :misc :random-elt :shuffle) (:shadowing-import-from :misc :random-elt :shuffle)
(:export (:export
:conversations-window :conversations-window
@ -2262,6 +2281,7 @@
:windows :windows
:line-oriented-window :line-oriented-window
:tui-utils) :tui-utils)
(:shadowing-import-from :text-utils :split-lines)
(:shadowing-import-from :misc :random-elt :shuffle) (:shadowing-import-from :misc :random-elt :shuffle)
(:export (:export
:chats-list-window :chats-list-window
@ -2283,6 +2303,7 @@
:windows :windows
:line-oriented-window :line-oriented-window
:tui-utils) :tui-utils)
(:shadowing-import-from :text-utils :split-lines)
(:shadowing-import-from :misc :random-elt :shuffle) (:shadowing-import-from :misc :random-elt :shuffle)
(:export (:export
:push-db-stream :push-db-stream
@ -2343,6 +2364,7 @@
:specials :specials
:windows :windows
:tui-utils) :tui-utils)
(:shadowing-import-from :text-utils :split-lines)
(:shadowing-import-from :misc :random-elt :shuffle) (:shadowing-import-from :misc :random-elt :shuffle)
(:export (:export
:focused-window :focused-window
@ -2368,6 +2390,7 @@
:tui-utils :tui-utils
:program-events) :program-events)
(:nicknames :ui) (:nicknames :ui)
(:shadowing-import-from :text-utils :split-lines)
(:shadowing-import-from :misc :random-elt :shuffle) (:shadowing-import-from :misc :random-elt :shuffle)
(:export (:export
:delete-message-status-marked-to-delete :delete-message-status-marked-to-delete
@ -2552,6 +2575,7 @@
:misc-utils :misc-utils
:text-utils :text-utils
:specials) :specials)
(:shadowing-import-from :text-utils :split-lines)
(:shadowing-import-from :misc :random-elt :shuffle) (:shadowing-import-from :misc :random-elt :shuffle)
(:export (:export
:refresh-refresh-all-chats-data :refresh-refresh-all-chats-data
@ -2602,4 +2626,5 @@
:constants :constants
:text-utils :text-utils
:command-line) :command-line)
(:shadowing-import-from :text-utils :split-lines)
(:export)) (:export))